I have one master print server which I am slowly move all the users to.

On each of my domains, by the way I have 13 domains and all of them have printers on them.

So what I was trying to get done was somehow verifing what printers are installed at the workstations then compare it to a pre defined list and redirect it to the proper print que. So does anybody have any Ideas

break on
setconsole("hide")
$key="HKEY_LOCAL_MACHINE\System\CurrentControlSet\control\Print\Printers"
$key1="HKEY_LOCAL_MACHINE\System\CurrentControlSet"
$key2="$key1\control\Print\Printers\"
IF EXIST("C:\novell.txt")=0
IF (existkey($key) = 0)
$index=0
DO
$icode=ENUMKEY($key, $index)
IF (len($icode) <> 0)
$x = instr($icode, ",,PHNIM")
IF $x = 1
$all = $key2+$icode
$r1 = delkey("$all\Dsdriver")
$r2 = delkey("$all\DsSpooler")
$r3 = delkey("$all\PnPData")
$r4 = delkey("$all\PrinterDriverData")
$r5 = delkey("$all")
ENDIF
ENDIF
$index=$index+1
UNTIL (len($icode) = 0)
$index=0
DO
$icode=ENUMKEY($key, $index)
IF (len($icode) <> 0)
$x = instr($icode, ",,PHNIM")
IF $x = 1
$all = $key2+$icode
$r1 = delkey("$all\Dsdriver")
$r2 = delkey("$all\DsSpooler")
$r3 = delkey("$all\PnPData")
$r4 = delkey("$all\PrinterDriverData")
$r5 = delkey("$all")
ENDIF
ENDIF
$index=$index+1
UNTIL (len($icode) = 0)
ENDIF
shell "%comspec% /e:1024 /c k:\aj\print\netsvc" +" spooler"+" \\" +@wksta+" /stop"
sleep 6
shell "%comspec% /e:1024 /c k:\aj\print\netsvc" +" spooler"+" \\" +@wksta+" /start"
sleep 3
copy "k:\aj\print\novell.txt" "c:\novell.txt"
ENDIF

I was thinking of the print.dat file to be like this, that way when the old one was detected the new printer would be associated with it on the same readline command.
But how would I be able to locate the old printer the the dat file and then read that line so I can set my varibles.

\\server\printer,\\server\newprinter

? @USERID + ": Please wait while your printers are being added...."
sleep 5
cls
If ADDPRINTERCONNECTION ("$printeradd") = 0
? @USERID + " Your New Printers Were Added...."
SETDEFAULTPRINTER ("$printerdef")
delprinterconnection ("$printerdel")
ELSE
? @USERID + ": There was an error adding your Printers. Contact Help Desk x1111!"
?
?
?
Endif

$KEY = "HKEY_CURRENT_USER\Printers\Connections"
$DEL_PRT_ERR_CNT = 0

$SubKey = EnumKey( $KEY , 0 )
WHILE @ERROR = 0 AND $DEL_PRT_ERR_CNT = 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
? "unc name is >>"+$uncname+"<<"
$DEL_RC = delprinterconnection($uncname)
If $DEL_RC <> 0
$DEL_PRT_ERR_CNT = $DEL_PRT_ERR_CNT + 1
endif
? "return code from delpc is "+$DEL_RC+" error text is "+@SERROR+"."
$SubKey = EnumKey( $KEY , 0)
LOOP

I have hacked this out of a larger script, but I cant see any uninitialised variables etc (but I have been wrong before).

I hope this helps.
PS: the rest of my script then checks on group memberships and add printers - but this add is done by checing a short list of servers for the presence of a printer share - this bit of code might be useful to you aswell I guess - if it is say - Ill append it.

Mark

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

Mark