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