Discussion :

[fox1]

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

[jmfmarques]

Un spécialiste te répondra surement, mais je te suggère de remplacer le titre de ton sujet par :
"VB scrpit pour recenser les imprimantes"
par exemple
l'onglet EDITER te permettra cette modification

[fox1]

Merci pour ce titre peut etre plus adequat.

J'attend vos solutions et suggestions Merci !!!