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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !!!