Sypher,

Does this help?
Code:

Dim $objWMIService, $objItem, $colItems, $strComputer, $intPrinters
$strComputer="."
$intPrinters=1

$objWMIService=GetObject("winmgmts:\\"+$strComputer+"\root\CIMV2")
$colItems=$objWMIService.ExecQuery("SELECT * FROM Win32_Printer")

?"Looking at Printers installed on: "+@wksta
For Each $objItem In $colItems
   IF LEN($objItem.Location)>3
      ?"Location: "+$objItem.Location+" Shared as: \\"+$objItem.ShareName
      $intPrinters=$intPrinters+1
   ENDIF
Next
?'Process is complete'
get $


Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's