$array=printerlist() 
for each $printer in $array 
  ? $printer 
next 

Quote:

---

Hi, how would I list ALL installed printers on a remote print server? I've tried the PrinterList() UDF but it will only display locally installed printers. This is what I've tried:

Thanks for any suggestions!

Hoopes

---

$array='system1,system2,system3'
for each $printer in $array 
  printerlist($printer) 
next 

Dim $PrinterArray, $Printer
$PrinterArray=PrinterList('printserver') ; is it supposed to be \\printsever or printserver?  I've tried both and neither work.
For Each $Printer In $PrinterArray
   'Computer: ' + $Printer ?
Next 

$ComputerList = Split('system1,system2,system3,system4,system5',',')

$ComputerList = Split('printserver',',')

Break On
For Each $Printer in Printerlist('FFPrint')
	$Printer ?
Next
Function PrinterList(optional $remotepc, optional $displaymode)
  dim $service,$printer,$printers,$printerdesc[0],$counter,$portname,$printername
  if $remotepc=""
    $remotepc="."
  endif
  $Service = GetObject("winmgmts:\\" + $remotepc + "\root\cimv2")
  if @error
    exit @error
  endif
  $Printers=$service.execquery ('select * from Win32_Printer')
  for each $printer in $printers
    redim preserve $printerdesc[$counter]
    if $displaymode & 1
      $portname = "," + $printer.portname
    endif
    select
      case $displaymode & 4 ;remote printers 
        if left($printer.portname,2)="\\"
          $printername=$printer.name
        endif
      case $displaymode & 2 ;local printers 
        if left($printer.portname,2)<>"\\"
          $printername=$printer.name
        endif
      case 1 ; all printers 
        $printername=$printer.name
    endselect
    if $printername<>""
      $printerdesc[$counter]=$printername + $portname
      $counter=$counter + 1
      $printername=""
    endif   
  next
  $PrinterList=$printerdesc
endfunction
 

break on
dim $SO
$SO=setoption('explicit','on')
$SO=setoption('novarsinstrings','on')
$SO=setoption('nomacrosinstrings','on')
 
dim $COMPUTERlIST, $PRINTERARRAY, $COMP, $PRINTER
$COMPUTERLIST = split('forest',',')
for each $COMP in $COMPUTERLIST
  if $COMP
    $PRINTERARRAY=printerlist($COMP)
    for each $PRINTER in $PRINTERARRAY
      'Computer: ' + $COMP + '  ' + $PRINTER ?
    next 
  endIf
next

wmic.exe printerconfig get caption /format:table | qgrep.exe -v Caption 

$Service = GetObject("winmgmts:\\" + $remotepc + "\root\cimv2")
If @error
    ? "Errors dicovered. " + @ERROR
    Exit @error
EndIf