2010-07-16 20:49

/* Lists all the printer connections on a computer */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2")
colinstalledprinters =  objwmiservice~execquery("Select * from Win32_Printer")
DO objprinter OVER colinstalledprinters
	SAY "Name:" objprinter~name
	SAY "Location:" objprinter~location
	SAY "Default:" objprinter~default
	SAY
END

2010-07-16 20:49