code:

---

 SHELL "winset.exe USERNAME=@USERID"
 BREAK ON ;(re)set Ctrl-C/Break handling
 COLOR r+/n

 ;
 CLS
 ;
 SMALL
 COLOR b+/n
 BOX (7,20,17,61,FULL)
 ;
 COLOR w+/n
 ;
 IF ((@time > "00:00:00") AND (@time < "12:00:00"))
       at (9,22) "Good Morning,"
 ELSE
       IF ((@time >= "12:00:00") AND (@time < "18:00:00"))
             at (9,22) "Good Afternoon,"
       ELSE
             at (9,22) "Good Evening,"
       ENDIF
 ENDIF
 ;
 at (10,22) @fullname
 at (12,22) "Please Wait For Logon script Execution"
 at (13,22) "Progress"

 $drive="\\FS2\"+@userid+chr(36)
 USE U: $drive
 SLEEP 5

 DelKey("HKEY_CURRENT_USER\Software\KiXtart\TokenCache")



 IF INGROUP("ESCROW-REO")
       USE S: /delete /persistent
       USE S: "\\FS2\REO$"
       ? "Member of ESCROW-REO group"
 ENDIF


 IF INGROUP("ESCROW-UNIT1")
       USE S: /delete /persistent
       USE S: "\\FS2\ESCROW-UNIT1$"
       ? "Member of ESCROW-UNIT1 group"
 ENDIF


 IF INGROUP("ESCROW-UNIT2")
       USE S: /delete /persistent
       USE S: "\\FS2\ESCROW-UNIT2$"
       ? "Member of ESCROW-UNIT2 group"
 ENDIF


 IF INGROUP("ESCROW-UNIT3")
       USE S: /delete /persistent
       USE S: "\\FS2\ESCROW-UNIT3$"
       ? "Member of ESCROW-UNIT3 group"
 ENDIF


 IF INGROUP("ESCROW-UNIT4")
       USE S: /delete /persistent
       USE S: "\\FS2\ESCROW-UNIT4$"
       ? "Member of ESCROW-UNIT4 group"
 ENDIF

 IF INGROUP("ESCROW-UNIT5")
       USE S: /delete /persistent
       USE S: "\\FS2\ESCROW-UNIT5$"
       ? "Member of ESCROW-UNIT5 group"
 ENDIF

 IF INGROUP("Everyone")
       ? "Member of Everyone group"
       USE I: /delete /persistent
       USE I: "\\FS2\APPS"
       IF Exist ("c:\windows\RD.bat") = 0
             IF Exist ("c:\windows\RD.pif") = 0
                   IF Exist ("c:\windows\MSTSc.exe") = 0
                         IF Exist ("c:\windows\MSTSCAX.DLL") = 0
                               COPY "\\W2K2\netlogon\RD.BAT" "c:\windows"
                               COPY "\\W2K2\netlogon\RD.PIF" "c:\windows"
                               COPY "\\W2K2\netlogon\MSTSC.EXE" "c:\windows"
                               COPY "\\W2K2\netlogon\MSTSCAX.DLL" "c:\windows"
                         ENDIF
                   ENDIF
             ENDIF
       ENDIF
 ENDIF

 IF INGROUP("LED")
       ? "Member of LED group"
       USE G: /delete /persistent
       USE G: "\\ATC-CORP\VOL2"
       USE S: /delete /persistent
       USE S: "\\FS2\LED$"
       IF Exist ("c:\windows\DESKTOP\TRAKKE~1.PIF") = 0
             COPY "\\W2K2\netlogon\TRAKKE~1.PIF" "c:\windows\desktop" ;copies Trakker Star shortcut to desktop
             IF Exist ("c:\windows\DESKTOP\TRAKKE~2.PIF") = 0
                   COPY "\\W2K2\netlogon\TRAKKE~2.PIF" "c:\windows\desktop" ;copies Trakker Lend shortcut to desktop
                   IF Exist ("c:\windows\DESKTOP\STARDO~1.PIF") = 0
                         COPY "\\W2K2\netlogon\STARDO~1.PIF" "c:\windows\desktop" ;copies Star Docnet shortcut to desktop
                   ENDIF
             ENDIF
       ENDIF
 ENDIF

 IF INGROUP("REALEC")
       USE R: /del /persistent
       USE R: "\\FS1\REALEC"
       ? "Member of REALEC group"
 ENDIF
 SLEEP 5

 IF INGROUP("TRAKKER")
       USE L: /delete /persistent
       USE L: "\\TK2\TRAKKER"
       ? "Member of Trakker group"
 ENDIF
 SLEEP 5

 ;if INGROUP("USBANK")
 ;USE I: /delete /Persistent
 ;use I: "\\FS2\Apps"
 ;? "Member of USBANK group"
 ;USE U: /delete /Persistent
 ;USE H: $drive
 ;endif

 ;if INGROUP("LANEGUIDE")
 ;USE I: /delete /Persistent
 ;use I: "\\FS1\LANE GUIDE"
 ;? "Member of LANEGUIDE group"
 ;endif


 IF INGROUP("Domain Admins")
       ? "Member of Domain Admins group"
       SLEEP 5
       USE G: /delete /persistent
       USE G: "\\ATC-CORP\VOL2"
       USE L: /delete /persistent
       USE L: "\\TK2\TRAKKER"
       IF Exist ("c:\windows\DESKTOP\TRAKKE~1.PIF") = 0 ;Checks for the existance of Trakker Star shortcut
             IF Exist ("c:\windows\DESKTOP\TRAKKE~2.PIF") = 0 ;Checks for the existance of Trakker Lend shortcut
                   IF Exist ("c:\windows\DESKTOP\ESCROW~1.PIF") = 0 ;Checks for the existance of Escrow Docnet shortcut
                         IF Exist ("c:\windows\DESKTOP\REOESC~1.PIF") = 0 ;Checks for the existance of Reo Escrow Docnet shortcut
                               IF Exist ("c:\windows\DESKTOP\STARDO~1.PIF") = 0 ;Checks for the existance of Star Docnet shortcut

                                     COPY "\\W2K2\netlogon\TRAKKE~1.PIF" "c:\windows\desktop" ;copies Trakker Star shortcut to desktop
                                     COPY "\\W2K2\netlogon\TRAKKE~2.PIF" "c:\windows\desktop" ;copies Trakker Lend shortcut to desktop
                                     COPY "\\W2K2\netlogon\ESCROW~1.PIF" "c:\windows\desktop" ;copies Escrow Docnet shortcut to desktop
                                     COPY "\\W2K2\netlogon\REOESC~1.PIF" "c:\windows\desktop" ;copies Reo Escrow Docnet shortcut to desktop
                                     COPY "\\W2K2\netlogon\STARDO~1.PIF" "c:\windows\desktop" ;copies Star Docnet shortcut to desktop
                               ENDIF
                         ENDIF
                   ENDIF
             ENDIF
       ENDIF
 ENDIF


;($begin)
;
;                       mon 02-dec-2002 22:19:31       (kix 4.10 vs 3.20e)
;
;Informative KIXSTRIP:   no errors found (input=164 output=164 skip=0).
;
;Informative KIXSTRIP:   25 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 SHELL
;Informative KIXSTRIP:    4 SLEEP
;Informative KIXSTRIP:   27 USE
;
;($end)

---