We are in the progress of moving from Netware printers to NT. SO I created a script that detects if a Netware printer is installed by searching for the text "PHNIM" in a registry area, and then deleting that key. Here's the program: (note that I had to do the DO UNTIL statement twice as for some reason there would sometime be one printer still remaining, this fixed it.
Also note that the lines in this example have been cropped to the next line, so hope you understand that. Cheersbreak 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
