SetOption('NoVarsInStrings','ON')
 SetOption('Explicit','ON')
 ; Set user's default floor. This is set in an NDS group.
 IF EXIST ("C:\WINNT\NOV\VAR3.W01") $DefaultLocation="W01" 
 ENDIF
 IF EXIST ("C:\WINNT\NOV\VAR3.W02") $DefaultLocation="W02" 
 ENDIF
 IF EXIST ("C:\WINNT\NOV\VAR3.W03") $DefaultLocation="W03" 
 ENDIF
 IF EXIST ("C:\WINNT\NOV\VAR3.W04") $DefaultLocation="W04" 
 ENDIF
 IF EXIST ("C:\WINNT\NOV\VAR3.W05") $DefaultLocation="W05" 
 ENDIF
 IF EXIST ("C:\WINNT\NOV\VAR3.W06") $DefaultLocation="W06" 
 ENDIF
 IF EXIST ("C:\WINNT\NOV\VAR3.W07") $DefaultLocation="W07" 
 ENDIF
 IF EXIST ("C:\WINNT\NOV\VAR3.W08") $DefaultLocation="W08" 
 ENDIF
 IF EXIST ("C:\WINNT\NOV\VAR3.L02") $DefaultLocation="L02" 
 ENDIF
 ? "Check 1 for Defaultlocation " + $defaultlocation

 ; Set users's current floor. This is done through checking of the IP subnet.

 $ip3 = LTRIM(SUBSTR(@ipaddress0, 9, 3))
 IF $ip3="121"
       $location="Lalaing building" + $location
       $array="02_L HP4050 BW Computer Service", "02_L HP4500 Colour Computer Ser" 
 ENDIF
 IF $ip3="122"
       $location="Floor #2 + $Location
; -------> Warning KIXSTRIP: 22 line incomplete "double quotation".
; -------> Warning KIXSTRIP: 22 line incompleted.
       $array="" 
 ENDIF
 IF $ip3="123"
       $location="Floor #3" + $location
       $array="" 
 ENDIF
 IF $ip3="124"
       $location="Floor #4" + $location
       $array="" 
 ENDIF
 IF $ip3="125"
       $location="Floor #5" + $location
       $array="" 
 ENDIF
 IF $ip3="126"
       $location="Floor #6" + $location
       $array="" 
 ENDIF
 IF $ip3="127"
       $location="Floor #7" + $location
       $array="" 
 ENDIF
 IF $ip3="128"
       $location="Floor #8" + $location
       $array="" 
 ENDIF

 ? "Check 2 for Defaultlocation " +$defaultlocation
 ? "LOCATION : " + $location
 FOR EACH $element IN $array
       SHELL 'c:\winnt\system32\iprntcmd.exe "ipp://BR_CLUSTER_NDPS_VOL/ipp/$Element" /ADD'
 NEXT


;($begin)
;
;            kixstrip 4.03e - kixtart 4.22
;
;                       tue 07-dec-2004 12:10:28
;
;Warning     KIXSTRIP:    1 line is incompleted.
;Warning     KIXSTRIP: some lines contains errors or possible errors.
;                         1 line incomplete "double quotation".
;                         1 line incompleted.
;Informative KIXSTRIP:   18 block_structures found.
;Informative KIXSTRIP:   no UDF's found.
;Informative KIXSTRIP:   no labels found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP:    1 SHELL
;
;($end)
;($begin)
;
;Warning KIXSTRIP: 22 line incomplete "double quotation".
;Warning KIXSTRIP: 22 line incompleted.
;
;($end)