Hi everybody,

Can you please test the following code:

#define CRLF chr(13) + chr(10)
strComputer = "."
 objWMIService = GetObject("winmgmts:" + "{impersonationLevel=impersonate}!\\" + strComputer + "\root\cimv2")
colShares = objWMIService.ExecQuery("SELECT * FROM Win32_Share") 
FOR EACH loShare IN colShares
   =MESSAGEBOX('Name: ' + loShare.Name + ;
CRLF + 'Description: '+   loShare.Description + ;
CRLF + 'Path:' + loShare.Path)
next

The idea is to figure if the local printer is shared. However, I don't have local printer to test.

-------------------
Never mind, it's easy to use from Win32_Printer and Share_Name. I didn't find this property myself.