[VBS]recenser les imprimantes
Bonjour,
je fais un script de connexion en VB. Dans ce script je recupere des infos sur les imprimantes installées grace à ce genre de commande :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
Wscript.Echo "Name: " & objPrinter.Name
Wscript.Echo "Default: " & objPrinter.Default
Wscript.Echo "Port: " & objPrinter.PortName
Wscript.Echo "Imprimante Reseau: " & objPrinter.Network
Next |
Lorsque j'execute ce script depuis un poste en XP il me donne les infos mais depuis un poste en W2000 il plante:
il me donne le nom de l'imprimante OK
puis il me met : "Cet objet ne gere pas cette proriete ou cette methode: objPrinter.Default"
Pareil pour objPrinter.Network
Quelqu'un a t il une idée ?? Merci d'avance !!!
