cls
break on
; -- USING IDEAS FROM - http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Number=81569
; -- "Default Printer Configuration"
$reg='HKCU\Software\Microsoft\Windows NT\CurrentVersion'
$dev=$reg+'\Devices'
$nprt=split(READVALUE($reg+'\Windows','Device'),',')[0]
$NEW='HSCXNTFP0101'
$OLD='TYPHOON'
; -- CHECK FOR AND SET THE DEFAULT PRINTER
If $nprt<>''
        $srv=SPLIT($nprt,'\')[2] ; SERVER
        IF $srv=$old
           $prn=SPLIT($nprt,'\')[3] ; PRINTER
           $rc=ADDPRINTERCONNECTION('\\'+$new+'\'+$prn)
           $rc=DELPRINTERCONNECTION('\\'+$srv+'\'+$prn)
           $rc=SETDEFAULTPRINTER('\\'$new+'\'+$prn)
        ENDIF
ENDIF
; -- NOW ENUMERATE INSTALLED PRINTERS AND MOVE
$i=0
DO
    IF '\\'=LEFT($x,2)
        $priReg=$priReg+$x
        $srv=SPLIT($dev,'\')[2]
        IF $srv=$old
           $prn=SPLIT($dev,'\')[3]
           $rc=ADDPRINTERCONNECTION('\\'$new+'\'+$prn)
           $rc=DELPRINTERCONNECTION('\\'+$srv+'\'+$prn)
        ENDIF
    ENDIF
    $x=ENUMVALUE($dev,$i)
    $i=$i+1
UNTIL @error