Script qui permet d'avoir toues les proprietés des imprimantes installées

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 219 fois - Téléchargée 21 fois

Contenu du snippet

Liste les proprietés d Imprimantes installées et les mets dans un fichier Liste_Drivers_Imprimantes.txt

Source / Exemple :


' Liste les proprietés d Imprimantes installées
' et les mets dans un fichier Liste_Drivers_Imprimantes.txt

' Windows Server 2003 : Yes
' Windows XP : Yes
' Windows 2000 : No
' Windows NT 4.0 : No
' Windows 98 : No
'Enjoy!! bernes3@gmail.com

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer")

Dim fso, tf
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set tf = fso.CreateTextFile(".\Liste_Drivers_Imprimantes.txt", True)

For Each objPrinter in colInstalledPrinters
    tf.WriteLine("----------------------------")
    tf.WriteLine("Name: " & objPrinter.Name)
    tf.WriteLine("Location: " & objPrinter.Location)
 	tf.WriteLine("Description: " & objPrinter.Description)
    tf.WriteLine("DriverName: " & objPrinter.DriverName)
    tf.WriteLine("PortName: " & objPrinter.PortName)
    tf.WriteLine("ShareName: " & objPrinter.ShareName)
Next

tf.Close

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (bernes3)