Exporter la liste des imprimantes
Par Romain Tiennot le mercredi 23 novembre 2011, 13:21 - VBS - Lien permanent
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
Il y a 4 commentaires
If you are having similar spirit as your counterparts, make sure the you hire android os application development producer for assistance. Ping will make you check from your ultimate Android phone. http://www.moviesafar.com/z4root.ht... z4root apk
Merci pour ce script qui est intéressant je vais essayer de m'en servir à titre d'information sans perdre une précieuse minute. Je vais revenir afin de visiter ton site pour voir si tu as posté de nouvelles astuces.
They will most likely send you some questions to answer to give them a
better idea of what you. Even within your given budget, you have various choices of professional designers to chhoose from who wil be sucdcessful in fulfilling your business
requiorements related to a customized design. It is not a review of
the products or services of the business.
<p>ハイドロボールを敷き詰めたガラス鉢がお部屋のインテリアにオススメです。<br /> <a href="http://www.antiquespectacular.com/u..." rel="nofollow">a2フライトジャケット</a></p>