#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) nextThe idea is to figure if the local printer is shared. However, I don't have local printer to test.