This is not silver platter stuff, but does show how WMI can be used.
Code:
Break ON
$objWMIService = GetObject("winmgmts:\\" + @WKSTA + "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_Printer",,48)
For Each $objItem in $colItems
   ? "Default: " + $objItem.Default
   ? "Description: " + $objItem.Description
   ? "Local: " + $objItem.Local
   ? "Name: " + $objItem.Name
   ? "PortName: " + $objItem.PortName
Next
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.