Basically yes, though personally I'd prefer something a bit more like this:
Code:
Dim $colInstalledPrinters,$objPrinter
 
$colInstalledPrinters=GetWMIPrinters(".")
If @ERROR "Could not retrieve printers: ["+@ERROR+"] "+@SERROR+@CRLF Exit @ERROR EndIf
 
For Each $objPrinter in $colInstalledPrinters
	"Name: " + $objPrinter.Name + @CRLF
	"Location: " + $objPrinter.Location + @CRLF
	"Default: " + $objPrinter.Default + @CRLF
Next

Function GetWMIPrinters($Computer)
	Dim $objWMIService
	$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + $Computer + "\root\cimv2")
	If @ERROR Exit @ERROR EndIf
	If VarType($objWMIService)<>9 Exit 2 EndIf
	$GetWMIPrinters=$objWMIService.ExecQuery("Select * from Win32_Printer")
	Exit @ERROR
EndFunction

Edited by Richard H. (2006-12-14 03:53 PM)