BREAK ON
$Key = "HKEY_CURRENT_USER\Printers\Connections"
$prt_log = "C:\Printers.txt"

DEL $prt_log

$SubKey = EnumKey( $Key , 0 )
$INDEX = 0
WHILE @ERROR = 0
$wrk = SUBSTR($Subkey,3,30)
$comma = instr($wrk,",")
$svrend = $comma - 1
$prtsrt = $comma + 1
$svr = RTRIM(SUBSTR($wrk,1,$svrend))
$prt = RTRIM(SUBSTR($wrk,$prtsrt,20))
$uncname = "\\"+$svr+"\"+$prt
$rc = open(1,$prt_log,5)
$rc = writeline(1,$uncname+chr(13)+chr(10))
$rc = close(1)
$INDEX = $INDEX + 1
$SubKey = EnumKey( $Key ,$INDEX)
LOOP
$Total_printers = $INDEX - 1
? "Written "+$Total_printers+" entries to "+$prt_log

It works for my environment where I have 100% printer connections (no local printers) and I am on 2000 (although I am certain it runs on NT aswell)

Is that what you wanted ?
Mark