This script seams to work fine for the local computer but if I try to use a remote computer name it does not work. I have all windows firewalls disabled so that should not have anything to do with it. Could you test this script on your network then let me know how it works?

Code:
GetWMIPrinters("NetAdmin2")

Function GetWMIPrinters($Computer)
	$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + $Computer + "\root\cimv2")
	$colInstalledPrinters = $objWMIService.ExecQuery("Select * from Win32_Printer")
	For Each $objPrinter in $colInstalledPrinters
		? "Name: " + $objPrinter.Name
		? "Location: " + $objPrinter.Location
		? "Default: " + $objPrinter.Default
	Next
EndFunction
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)