COLOR w+/b

break on

$array=printerlist()

for each $printer in $array

? $printer

next

;if delprinterconnection($printer) = 0
;        ? "Deleted printers!"
;else
;        ? "Unable to remove printers!"
;endif

;if addprinterconnection("\\Calvin\Canon") = 0
;        ? "Added printer \\Calvin\Canon"
;else
;        ? "ERROR: Unable to add printer \\Calvin\Canon!"
;endif

;if setdefaultprinter("\\Calvin\Canon") = 0
;        ? "Default printer is now set to \\Calvin\Canon"
;else
;        ? "ERROR: Unable to set a default printer!"
;endif

EXIT

Function Printerlist(optional $remotepc,optional $displaymode)

  dim $service,$printer,$printers,$printerdesc

  if $remotepc=""

    $remotepc='\\'+ @wksta

  else 

    if not left($remotepc,2)="\\"

      $remotepc='\\' + $remotepc

    endif

  endif

  $Service=GetObject("winmgmts:{impersonationLevel=impersonate}!" + $remotepc + "\root\cimv2")

  if not @error=0

    exit @error

  endif

  $Printers=$service.execquery ('select * from Win32_Printer')

  for each $printer in $printers

    select

      case $displaymode=1

        if $printerdesc=""

          $printerdesc=$printer.name + "," + $printer.portname

        else

          $printerdesc=$printerdesc + "|" + $printer.name + "," + $printer.portname

        endif

      case $displaymode=0

        if $printerdesc=""

          $printerdesc=$printer.name 

        else

          $printerdesc=$printerdesc + "|" + $printer.name

        endif

    endselect

  next

 $printerlist=split($printerdesc,"|")

endfunction

Quote:

---

ERROR: -2147217467
Number of printers: -11

---

Quote:

---

Error: 0
Number of printers: 61
SnagIt 7
pdfFactory Pro
Microsoft Office Document Image Writer
HP LaserJet 2300 Series PCL 5e
hp deskjet 990c
\\Calvin\Canon
\\CALVIN\PC Lab Laserjet

---

 
cerror @error " " @serror

Function Cerror() 
  exit Iif(@error<0,VAL("&"+Right(DecToHex(@error),4)),@error) 
Endfunction
 

Quote:

---

4097 Error (317 / 13D) while retrieveing error information for 1001Win32_Printer
Error: 0

---

It's now outputting the correct # of printers

COLOR w+/b

break on

$array=printerlist()

? "Error: " + @error
;? "Number of printers: " + ubound($array) + 1
? "Number of Printers: " + (val(ubound($array)) + 1)

for each $printer in $array

? $printer

next

;if delprinterconnection($printer) = 0
;        ? "Deleted printers!"
;else
;        ? "Unable to remove printers!"
;endif

;if addprinterconnection("\\Calvin\Canon") = 0
;        ? "Added printer \\Calvin\Canon"
;else
;        ? "ERROR: Unable to add printer \\Calvin\Canon!"
;endif

;if setdefaultprinter("\\Calvin\Canon") = 0
;        ? "Default printer is now set to \\Calvin\Canon"
;else
;        ? "ERROR: Unable to set a default printer!"
;endif

EXIT

Function Printerlist(optional $remotepc,optional $displaymode)

  dim $service,$printer,$printers,$printerdesc

  if $remotepc=""

    $remotepc='\\'+ @wksta

  else 

    if not left($remotepc,2)="\\"

      $remotepc='\\' + $remotepc

    endif

  endif

  $Service=GetObject("winmgmts:{impersonationLevel=impersonate}!" + $remotepc + 

"\root\cimv2")

;  if not @error=0

;    exit @error

;  endif

cerror @error " " @serror

  $Printers=$service.execquery ('select * from Win32_Printer')

  for each $printer in $printers

    select

      case $displaymode=1

        if $printerdesc=""

          $printerdesc=$printer.name + "," + $printer.portname

        else

          $printerdesc=$printerdesc + "|" + $printer.name + "," + $printer.portname

        endif

      case $displaymode=0

        if $printerdesc=""

          $printerdesc=$printer.name 

        else

          $printerdesc=$printerdesc + "|" + $printer.name

        endif

    endselect

  next

 $printerlist=split($printerdesc,"|")

endfunction

Function Cerror() 
  exit Iif(@error<0,VAL("&"+Right(DecToHex(@error),4)),@error) 
Endfunction

Quote:

---

Thanks for explaining... and that is odd. Are you logging in as the same user on the different PCs? If not you might try it to see if its a permissions issue.

When I wrote this UDF, I'm sure it was done on Windows 2000 SP4 or SP3. So I feel pretty confident XP would work as well, regardless of it SP.

---

Yes, I'm logging in as the exact same administrator account on both machines. Since the script is kept on a account share over the network, I even tried copying it to the local machine but it didn't make a difference.

This is very strange, has me completely stumped.

Quote:

---

Windows Management Instrumentation (WMI) makes Windows extremely manageable using a single consistent, standards-based, extensible and object-orientated interface. WMI is the Microsoft implementation of Web-Based Enterprise Management (WBEM), an industry initiative to develop a standard technology for accessing management information in an enterprise environment. This initiative helps companies lower their total cost of ownership by enabling powerful management of systems, applications and devices.

---