code:

---

 BREAK ON ;(re)set Ctrl-C/Break handling
 SMALL
 ? "USER INFORMATION"
 ?
 At (4,4)  "HI, @userid"
 ?
 At (6,4)  @fullname ;full name of current user
 ?
 At (8,4)  @comment ;user comment in User Manager
 ?
 SLEEP 1
 CLS
 ?
 ?
 ? "COMPUTER INFORMATION"
 ?
 ? "MAC Address of your Network Card:"
 ? @address
 ?
 ? "Netbios Computer Name:"
 ? @wksta
 ?
 SLEEP 1
 CLS
 ?
 ?
 ? "NETWORK INFORMATION"
 ?
 ? "Logon Domain Name:"
 ? @domain
 ?
 ? "Logon Server:"
 ? @lserver ;logon server
 ?
 ? "Your Password is " @pwage " Days Old."
 ? "The Maximum Password Age is " @maxpwage " Days."
 ? "You Are Logged on With " @priv " Privileges."
 ?
 SLEEP 1
 CLS
 ?
 ?
 USE u: "\\AUSOPEN1\@userid"
 USE t: "\\AUSOPEN1\USERS"
 USE p: "\\AUSOPEN1\PUBLIC"
 ?
 IF InGroup ("AODB") = 1
       ?"User is member of AOBD"
       SLEEP 3
       SHELL '%comspec% /c xcopy p:\ausopen\*.* c:\ausopen\*.* /d'
 ENDIF
 ?
 IF InGroup ("NWGateway") = 1
       USE o: "\\AUSOPEN1\ODRIVE"
 ENDIF

 IF InGroup("Commercial") = 1
       USE f: "\\AUSOPEN1\COMMERCIAL"
 ENDIF

 IF InGroup ("Communications") = 1
       USE f: "\\AUSOPEN1\COMMUNICATIONS"
 ENDIF

 IF InGroup ("Corporates") = 1
       USE f: "\\AUSOPEN1\CORPORATES"
 ENDIF

 IF InGroup ("Marketing") = 1
       USE f: "\\AUSOPEN1\MARKETING"
 ENDIF

 IF InGroup ("AOIT") = 1
       USE e: "\\TAINTRA\E"
       USE s: "\\AUSOPEN1\AOSETUP"
       USE f: "\\AUSOPEN1\IT"
       USE t: "\\AUSOPEN1\USERS"
       USE g: "\\AUSOPEN1\DEPARTMENTS"
       USE y: "\\AUSOPEN1\FROOT"
       USE h: "\\TAINTRA\SOFTWARE"
 ENDIF

 IF InGroup ("AdminDpt") = 1
       USE f: "\\AUSOPEN1\ADMINISTRATION"
 ENDIF

 IF InGroup ("Operations") = 1
       USE f: "\\AUSOPEN1\OPERATIONS"
 ENDIF

 IF InGroup ("Ticketing")= 1
       USE f: "\\AUSOPEN1\TICKETING"
 ENDIF

 IF InGroup ("Vision") = 1
       USE w: "\\FINANCESQL\SUNDATA"
 ENDIF

 IF InGroup ("Charity") = 1
       USE l: "\\TAINTRA\CHARITY"
 ENDIF

 IF InGroup ("CorpBanking") = 1
       USE q: "\\FINANCESQL\CORPORATE"
 ENDIF

 IF InGroup ("AOShopBanking") = 1
       USE q: "\\FINANCESQL\AOSHOP"

       RUN '%comspec% /c /start /wait P:\VETAUTO\SETUP32.EXE /waitstart=20'

       SHELL '%comspec% /c xcopy p:\hosts\*.* c:\hosts\*.* /d'

       SHELL '%comspec% /c xcopy p:\fonts\placmcc_.ttf c:\windows\fonts\placmcc_.ttf /d'

       $rs = WriteValue ( "Software\Microsoft\Internet Explorer\Main", "Start Page", "http://10.21.0.223", "REG_SZ" )

       SLEEP 2

       EXIT


;($begin)
;
;                       tue 21-may-2002 09:56:56       (kix 4.10 vs 3.04e)
;
;Informative KIXSTRIP:      input=125 output=125 skip=0
;
;Warning     KIXSTRIP:    1 error in block structure. 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            [14:0:13]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Warning     KIXSTRIP: some lines contains errors or possible errors.
;Informative KIXSTRIP:   14 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 BREAK
;Informative KIXSTRIP:    1 EXIT
;Informative KIXSTRIP:    1 RUN
;Informative KIXSTRIP:    3 SHELL
;Informative KIXSTRIP:    5 SLEEP
;Informative KIXSTRIP:   22 USE
;
;($end)
;($begin)
;
;
;($end)

---