As an answer to your question here two examples. The first writes to the screen the second writes to a file on c:\

Code:

Break on  
$RC=SetOption("WrapAtEOL","on") 
 
;shows the printers on your screen.
$array=printerlist()  
For Each $printer in $array  
  ? $printer  
Next 

;Writes all printer to a file.
$array=printerlist()
$rc = Open (1, "c:\installedprinters.txt", 5)
For Each $printer in $array  
  $rc = WriteLine (1, $printer + " is installed on: " + @WKSTA + @CRLF)  
Next 
$rc = Close(1)

;Function:  
;    PrinterList()  
;  
;Author:  
;    Allen Powell (Al_Po)  
;  
;Version:  
;    1.3.1  (2006/05/10 fixed error detecting Print Servers sharing IP Printers) 
; 
;Revisions 
;    1.3.0  (2005/10/21 added options to distinguish local or remote printers) 
;    1.2.0  (2005/07/19 optimized code) 
;    1.1.0  (2004/08/09 undimmed variable fix) 
;    1.0.0  (2003/06/26 Original) 
;  
;Action:  
;    Creates an array/list of Printers, and optionally their ports installed, on a local or remote computer.&n bsp;  
;  
;Syntax:  
;    Printerlist(optional $remotepc,optional $displaymode)  
;  
;Parameters:  
;       $RemotePC: (Optional)  
;             Remote Computer. If omitted defaults to localpc.  
;       $DisplayMode (Optional)  
;        0 - show all printers, don't display port info (Default)  
;        1 - show all printers, display port info  
;        2 - show local printers, don't display port info  
;        3 - show local printers, display port info  
;        4 - show remote printers, don't display port info  
;        5 - show remote printers, display port info  
;Returns:  
;     Array of Printers  
;  
;Dependencies:  
;     WMI  
;  
;Example:  
;  
;break on  
;$RC=Setoption("WrapAtEOL","on") 
; 
;$array=printerlist()  
;for each $printer in $array  
;  ? $printer  
;next  
;  
;Source:  
;  
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)="\\" OR Left($printer.name,2)=="\\"
          $printername=$printer.name
        EndIf
      Case $displaymode & 2 ;local printers 
        If Left($printer.portname,2)<>"\\" AND Left($printer.name,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