code:

---

 CLS
 $userid=@userid
 $fullname=@fullname
 $workstation=@wksta
 $domain=@domain

 IF @inwin = 1
       GOTO WINNT
 ELSE
       GOTO WIN9X
 ENDIF

:winnt
 USE F: /del /persistent
 USE G: /del /persistent
 USE H: /del /persistent
 USE J: /del /persistent
 USE K: /del /persistent
 USE L: /del /persistent
 USE M: /del /persistent
 USE N: /del /persistent
 USE P: /del /persistent
 USE S: /del /persistent
 USE T: /del /persistent
 USE U: /del /persistent
 USE V: /del /persistent
 USE W: /del /persistent
 USE X: /del /persistent
 USE Y: /del /persistent
 USE Z: /del /persistent

 IF INGROUP("Domain Users") = 1
       USE O: "\\server1\common" /persistent
 ENDIF

 IF INGROUP("IT") = 1
       USE q: "\\server1\it" /persistent
       USE i: "\\server2\installs" /persistent

       GOTO END

:win9x
       USE F: /del /persistent
       USE G: /del /persistent
       USE H: /del /persistent
       USE J: /del /persistent
       USE K: /del /persistent
       USE L: /del /persistent
       USE M: /del /persistent
       USE N: /del /persistent
       USE P: /del /persistent
       USE S: /del /persistent
       USE T: /del /persistent
       USE U: /del /persistent
       USE V: /del /persistent
       USE W: /del /persistent
       USE X: /del /persistent
       USE Y: /del /persistent
       USE Z: /del /persistent

       IF INGROUP("Domain Users") = 1
             USE O: "\\server1\Common" /persistent
       ENDIF

       IF INGROUP("IT") = 1
             USE q: "\\server1\it" /persistent
             USE i: "\\server2\installs" /persistent

             CLS
:end
             EXIT

;($begin)
;
;                       mon 02-dec-2002 05:08:12       (kix 4.10 vs 3.20e)
;
;Informative KIXSTRIP:      input=71 output=71 skip=0
;
;Warning     KIXSTRIP:    2 errors in block structure(s). missing statement(s).
;                           - do:until                 [0:0]
;                           - for|each:in|to:step|next [0|0:0|0:0|0]
;                           - function:endfunction     [0:0]
;                   -ERROR- - if:else:endif            [5:1:3]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Warning     KIXSTRIP: some lines contains errors or possible errors.
;Informative KIXSTRIP:    5 block_structures found.
;Informative KIXSTRIP:   no UDF's found.
;Informative KIXSTRIP:    3 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 EXIT
;Informative KIXSTRIP:    3 GOTO
;Informative KIXSTRIP:   40 USE
;
;($end)
;($begin)
;
;
;($end)

---