Lister les imprimantes

Bonjour à tous,

je voudrait savoir si il est possible de lister les imprimantes qui sont partagé sur le serveur d'impression.

Car je connais ce script:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

strComputer = "MONSERVEURIMPRESSION" 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 "Location: " & objPrinter.Location Wscript.Echo "Default: " & objPrinter.Default Next

---

mais cela ne marche uniquement en administrateur.

Je voudrait en fait lister les imprimante partagé du serveur (\\servimpression) depuis une session user.

Merci

guigui69