Etat du script: Fonctionnel
Présentation:
Le script:
'Retrouver les infos sur les lecteurs réseaux et les imprimantes d'un poste 'Version 0.1 20090327 by Clockover 'Variables de configuration strPath = "c:\" ou "\\srv.domaine.local\partage" 'Chemin d'enregistrement du résultat 'Script 'Noter le nom du poste Set WshNetwork = WScript.CreateObject("WScript.Network") strComputer = WshNetwork.ComputerName 'Ouverture d'un fichier de résultat Const ForWriting = 2 Dim fso, file Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.OpenTextFile( strPath & strComputer & ".txt", ForWriting,true) 'Enumérer les lecteurs réseaux et les imprimantes installées Set oDrives = WshNetwork.EnumNetworkDrives Set oPrinters = WshNetwork.EnumPrinterConnections 'LECTEURS RESEAUX 'Remplir le fichier avec les données sur les lecteurs Réseaux file.write(strComputer & vbCr) file.write("-Lecteurs réseaux:" & vbCr) For i = 0 to oDrives.Count - 1 Step 2 file.write(vbTab & "Unité " & oDrives.Item(i) & " = " & oDrives.Item(i+1) & vbCr) Next 'IMPRIMANTES 'Remplir le fichier avec les données sur les imprimantes: Méthode simple 'file.write("-Imprimantes:" & vbCr) 'For i = 0 to oPrinters.Count - 1 Step 2 ' file.write(vbTab & "Nom:" & oPrinters.Item(i+1) & " => Port: " & oPrinters.Item(i) & vbCr) 'Next 'Trouver l'imprimante par défaut set colItems = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery("SELECT * FROM Win32_Printer") If err.number<>0 Then wscript.echo "Erreur : " & err.description wscript.quit End If 'Rechercher l'imprimante par défaut attr=array(1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192) For Each objItem in colItems 'Remplir le fichier avec les données sur les imprimantes: Méthode plus détaillée 'file.write("-Imprimantes:" & vbCr) 'file.write(vbTab & "Nom:" & objItem.Caption & " => Port: " & objItem.PortName & vbCr) Attrib=Cint(objItem.Attributes) For i=lbound(attr) To ubound(attr) 'Trouver l'imprimante qui a l'attribut à 4bits (imprimante par défaut) If (Attrib and attr(i))= 4 Then 'Remplir le fichier avec la donnée file.write("-Imprimantes par défaut: ") file.write(objItem.Caption) end if Next Next
TODO Liste:
Historique:
Page générée en 0.006 secondes