Ce script permet d'exporter la liste des imprimantes installé sur un serveur d'impression par exemple. Dans mon exemple, créé un fichier texte nommé "imp.txt" sur le disque "D:" :

Set WshNetwork = WScript.CreateObject("WScript.Network" )
Set oPrinters = WshNetwork.EnumPrinterConnections
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("D:\imp.txt", ForWriting,true)
 
For i = 0 to oPrinters.Count - 1 Step 2
   f.write(oPrinters.Item(i+1))
   f.write(VbCrLf)
Next

Résultat :

Microsoft XPS Document Writer
Fax
Envoyer à OneNote 2010
\\ROMAIN-PC\Canon Inkjet iP1600

A bientôt,
Romain