Impossible de récupérer les Commentaires d'une imprimante

[macgor]

Bonjour



J’utilise le script ci-dessous pour récupérer dans un fichier, la liste des imprimantes, ainsi qu’un certain nombre d’autres informations… Dont “la Description”…



Mon problème, c’est que ce champ reste VIDE dans mon fichier… Je ne comprends pas pourquoi… Si quelqu’un a une solution !!! Merci d’avance





’ 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!!

strComputer = “.“

Set objWMIService = GetObject(“winmgmts:” _

& “{impersonationLevel=impersonate}!” & strComputer & “rootcimv2”)

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("Description: " & objPrinter.Description)
tf.WriteLine("Location: " & objPrinter.Location)
tf.WriteLine("DriverName: " & objPrinter.DriverName)
tf.WriteLine("PortName: " & objPrinter.PortName)
tf.WriteLine("ShareName: " & objPrinter.ShareName)
Next
tf.Close

[system]

Bizarre ton code semble correct, la description n’est pas un tableau de string comme dans l’AD.

http://msdn.microsoft.com/en-us/library/aa394363(VS.85).aspx



C’est idem à cela :

http://www.computerperformance.co.uk/vbscript/wmi_printer.htm

[macgor]

Merci pour les liens, mais en réalité… Euh ca ne m’aide pas, car mes compétences en scripting sont trop limitées… :’(



Bref, pour le moment, tous les scripts que j’ai pu récupéré sur le net, ne me permettent pas de récupérer les commentaires des imprimantes…



C’est dingue quand même !!! :o



Bref, si jamais quelqu’un a un script magique qui fait ça, faite moi signe !!! ;D

[ThinIsFat]

dites ça serait pas plutot la propriété Comment au lieu de Description ?





un exemple de script :

http://www.robvanderwoude.com/files/showprn_vbs.txt



http://www.microsoft.com/technet/scriptcenter/resources/qanda/jul05/hey0719.mspx

[macgor]

Et le prix de la meilleure aide revient à ThinIsFat… :laugh:



Oui, s’était bien juste ça.



Pour ceux que ça intéresse, je mets le script complet corrigé :



’ 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!!

strComputer = “.“

Set objWMIService = GetObject(“winmgmts:” _

& “{impersonationLevel=impersonate}!” & strComputer & “rootcimv2”)

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("Description: " & objPrinter.Comment)
tf.WriteLine("Location: " & objPrinter.Location)
tf.WriteLine("DriverName: " & objPrinter.DriverName)
tf.WriteLine("PortName: " & objPrinter.PortName)
tf.WriteLine("ShareName: " & objPrinter.ShareName)
Next
tf.Close

Encore merci !!! A TOUS

[ThinIsFat]

quand on commence à parler de problèmes d’impression, autant le demande à l’expert EMEA dans le domaine…