Well, a fairly direct translation losing the wooly bits is:
Code:
Dim $objWMIService, $objItem, $colItems, $strComputer
 
$strComputer ="."
 
$objWMIService = GetObject("winmgmts:\\" + $strComputer + "\root\CIMV2")
$colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Printer")
 
For Each $objItem In $colItems
	"Location: '" + $objItem.Location + "' shared as: \\" + $objItem.ShareName+@CRLF
Next
 
Exit 0