code:

---

 $homeserver=Substr(@homeshr,1,7)
 $apps=$homeserver+"\APPS"
 $group=@comment
 $groupall=$homeserver+"\"+Substr(@comment,1,3)+"-All"
 $common=$homeserver+"\"+$group
 $homeshare=@homeshr
 $ras=@ras
 ;
 ; Get IP addresses
 ;
 ;Added 3/10/03 to prevent SMS from running over VPN -
 $vpnipaddr=Substr(@ipaddress0, 1, 12)
 ;
 ; Drive mappings
 ;
 USE k: $apps
 USE n: $common
 USE s: $groupall
 USE u: $homeshare
 ;
 IF Exist (%windir% + "\SkipLS")
       EXIT
 ENDIF
 ;
 SELECT
       ;
 CASE 
       InGroup("DBASSE-ALL")
       ;  DBASSE-ALL staff
       USE s: "\\NRC03\DBASSE-ALL"
       ;
 CASE 
       InGroup("DELS-ALL")
       ;  DELS-ALL staff at HA and NAS
       USE s: "\\NRC03\DELS-ALL"
       ;
 CASE 
       InGroup("DEPS-ALL")
       ;  DEPS-ALL staff
       USE s: "\\NRC03\DEPS-ALL"
       ;
 CASE 
       InGroup("IOM-PRS")
       ; IOM Pres. staff at NAS
       USE s: "\\NRC05\IOM-ALL"
       ;
 CASE 
       InGroup("ITS-ERO")
       ; ITS-ERO staff at NAS
       USE s: "\\NRC06\ITS-ALL"
       ;
 CASE 
       InGroup("PGA-IOAC")
       ;  PGA-IOAC staff at NAS
       USE s:/d
       USE s: "\\NRC05\PGA-ALL"
       ;
 CASE 
       InGroup("PeopleSoft")
       ; PeopleSoft Users
       ; Made the changes for the users to be able to use payroll data 8/14/99
       USE q: "\\NRC01\APPS"
       ;
 CASE 
       InGroup("NAS-NPI")
       ; NAS-NPI staff at NAS
       USE v: "\\NRC04\NAS-VID"
       ;
 CASE 
       InGroup("OOA-ALL")
       ; Admin staff at NAS
       USE v: "\\NRC04\NAS-VID"
       ;
 CASE 
       InGroup("Avanti")
       ;  Avanti users
       USE l: "\\NRC02\APPS"
       ;
 CASE 
       InGroup("Cats")
       ;  Cats users
       USE h: "\\NRC08\APPS"
       ;
 CASE 
       InGroup("Memsys")
       ; Membership System
       USE r: $groupall
       USE s:/d
       USE s: "\\NRC04\Apps"
       ;
 ENDSELECT
 ;
 ;===============Added 3/10/03 to prevent SMS from running over Remote connections ====
 ;
 IF $ras=1  ;If a dial connection exists, exit.
       EXIT
 ENDIF
 IF $vpnipaddr="144.171.  1." ;DMZ1 Subnet
       EXIT
 ENDIF
 IF $vpnipaddr="144.171. 11." ;DMZ2 Subnet
       EXIT
 ENDIF
 IF $vpnipaddr="144.171. 20." ;NAP web host network
       EXIT
 ENDIF
 IF $vpnipaddr="144.171.  7." ;ISDN Commserver
       EXIT
 ENDIF
 IF $vpnipaddr="144.171.  8." ;Commserver Subnet
       EXIT
 ENDIF
 IF $vpnipaddr="144.171.  9." ;Commserver Subnet
       EXIT
 ENDIF
 IF $vpnipaddr="144.171. 12." ;Commserver Subnet
       EXIT
 ENDIF
 IF $vpnipaddr="144.171. 24." ;Security Subnet
       EXIT
 ENDIF
 IF $vpnipaddr="144.171. 68." ;VPN Server Network
       EXIT
 ENDIF
 IF $vpnipaddr="144.171. 69." ;VPN Server Network
       EXIT
 ENDIF
 IF $vpnipaddr="144.171. 70." ;VPN Server Network
       EXIT
 ENDIF
 IF $vpnipaddr="144.171. 71." ;VPN Server Network
       EXIT
 ENDIF
 IF $vpnipaddr="198. 83.  4." ;Beckman VPN Server Network
       EXIT
 ENDIF
 IF $vpnipaddr="198.133.209." ;Woodshole VPN Server Network
       EXIT
 ENDIF
 ;
 ;==================SMS & Time Exclusions=================================
 ;
 ;Set Time
 SETTIME "\\na01"  ;Set time to na01
 ;

;($begin)
;
;                       mon 06-oct-2003 20:21:53       (kix 4.20 vs 4.00e)
;
;Informative KIXSTRIP:   no errors found (input=134 output=134 skip=0).
;
;Summary     KIXSTRIP:      block structures
;                           - do:until                 [0:0]
;                           - for|each:in|to:step|next [0|0:0|0:0|0]
;                           - function:endfunction     [0:0]
;                           - if:else:endif            [16:0:16]
;                           - select:case:endselect    [1:12:1]
;                           - while:loop               [0:0]
;Informative KIXSTRIP:   17 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:   16 EXIT
;Informative KIXSTRIP:   19 USE
;
;($end)

---