;**** Last Modified on 8/7/2008 by zhovney ****
;**** Last Modified on 12/4/2008 by Jason Land ****
;**** Last Modified on 6/17/2009 by Jason Land ****
;**** Last Modified on 8/19/2009 by landjr ****
; ***********************************************
; * BODY OF LOCAL LOGON SCRIPT *
; ***********************************************
;
GOSUB MAPDRIVES
If InStr(@WKSTA, "CITWTS")
OR InStr(@WKSTA, "CITTS")
OR InStr(@WKSTA, "TRYWTS")
GOTO END
EndIf
GOSUB INSTALL_SAV
GOSUB LOCAL_APPS
;GOSUB INSTALL_SUS
;GOSUB SUSVER
;GOSUB WIN_2000
;GOSUB WIN_XP
GOSUB UNKNOWN_OS
GOSUB SUSOFF
; **********************************************
; * MAP SITE SPECIFIC DRIVES *
; **********************************************
:MAPDRIVES
CLS
AT (20,15) "Mapping Department Drives and Checking Symantec AntiVirus Status..."
AT (24,79)
USE T: /DEL
USE T: "\\USAHSARMP038\Transfer"
$HOMEDIR=@UserID
USE G: /DEL
USE H: /DEL
USE N: /DEL
USE Q: /DEL
USE R: /DEL
USE S: /DEL
USE X: /DEL
USE G: "\\USAHSARMP038\Apps"
USE H: "\\USAHSARMP038\users\$HOMEDIR"
USE N: "\\USAHSARMP038\Dshares\SAP\Documents"
USE Q: "\\HEBfpS01\QS9000"
USE R: "\\USAHSARMP038\DShares"
USE S: "\\USAHSARMP038\GShares"
USE X: "\\USAHSVUAM163\Scan\Wabco_Scan"
COPY "\\tryads006\sysvol\na.autoedir.com\scripts\sites\HEB\Desktop" %userprofile%\Desktop\
COPY "\\tryads006\sysvol\na.autoedir.com\scripts\sites\HEB\Favorites" %userprofile%\Favorites\
If InGroup ("tplxtestgroup")
Use I: /Del
Use I: "\\usahsarmp038\Gshares\TestGroup"
EndIf
RETURN
; **********************************************
; * INSTALL SAV SPECIFIC TO THE SITE *
; **********************************************
:INSTALL_SAV
SHELL \\USAHSARMP038\VPLOGON\VPLOGON.BAT
RETURN
; **********************************************
; * INSTALL APPLICATIONS SPECIFIC TO THE SITE *
; **********************************************
:LOCAL_APPS
RETURN
; **********************************************
; * INSTALL/VERIFY SUS INSTALLATION *
; **********************************************
:INSTALL_SUS
Color y+/n
$SUSSERVER = ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\","WUServer")
If $SUSSERVER = "http://nasus.arvinmeritor.com/"
AT (15,10)
"SUS SERVER ="
AT (15,23) "$SUSSERVER"
GOTO END
Else
AT (16,10)
Color y+/n
"Verifying SUS Client..."
GOTO SUSVER
ENDIF
:SUSVER
Color y+/n
$WINVER = ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","CurrentVersion")
If $WINVER = "5.0"
AT (17,10)
"Windows 2000 Detected"
GOTO WIN_2000
ELSE
IF $WINVER = "5.1"
AT (17,10)
"Windows XP Detected"
GOTO WIN_XP
ELSE
GOTO UNKNOWN_OS
:WIN_2000
AT (18,10)
;Use Z: /DEL
;Use Z: "\\TRYSMS001\PACKAGES"
"Installing SUS Services... "
SHELL "%logonserver%\netlogon\SUS\TRY\W2K\SUSUpdateW2k2.EXE"
;Use Z: /DEL
GOTO END
:WIN_XP
AT (18,10)
;Use Z: /DEL
;Use Z: "\\TRYSMS001\PACKAGES"
"Installing SUS Services... "
SHELL "%logonserver%\netlogon\SUS\TRY\WXP\SUSUpdateXP.EXE"
;Use Z: /DEL
GOTO END
:UNKNOWN_OS
GOTO END
:END