Option Explicit
Dim objWMIService, objItem, colItems, strComputer, intPrinters

strComputer ="."
intPrinters = 1

Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery _
("SELECT * FROM Win32_Printer")

Call Wait() ' Goto Sub Routine at the end

' On Error Resume Next
For Each objItem In colItems
WScript.Echo "Location: " & objItem.Location & " Shared as: \\" & objItem.ShareName
intPrinters = intPrinters + 1
Next

sub Wait()
If strComputer = "." then
strComputer = "Local Host"
else strComputer = strComputer
end if

End Sub

WScript.Quit

Quote:

---

....
My workstations are all running under Windows XP SP2.
....

---

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 $

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

Quote:

---

Smells like a supervisor brainfart.

---