break off
WriteValue("HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}","","My Computer %computername%","REG_SZ")
:start
$locale = readvalue("HKEY_CURRENT_USER\Control Panel\International", "Locale")
If $locale = "00000409"
GOTO "changecountry"
else
? "Locale is United Kingdom"
exit
endif
sleep 5:changecountry
writevalue("HKEY_CURRENT_USER\Control Panel\International", "Locale", "00000809", "REG_SZ")
If @error = 0
GOTO "start"
endif
;***************** Display Info to User ***********************
;
CLS
;
small
Color r+/n
BOX (7,10,17,71,FULL)
;
at (8,26) "Pickering High School Network"
Color w+/n
;
IF ((@time > "00:00:00") AND (@time < "12:00:00"))
at (9,15) "Good Morning,"
ELSE
IF ((@time >= "12:00:00") AND (@time < "18:00:00"))
at (9,15) "Good Afternoon,"
ELSE
at (9,15) "Good Evening,"
ENDIF
ENDIF
;
at (10,15) @fullname
at (12,15) "Please Wait Logging On"
at (13,15) "Connecting to Printers, Please wait "
at (15,15)
;*****************Section 4***********************
$SysNo = substr(@wksta,LEN(@WKSTA)-7,7)
IF $SysNo = "SCIENCE"
call \\upperserver\netlogon\science.kix
endif
;*****************************************************
$SysNop = substr(@wksta,LEN(@WKSTA)-8,7)
IF $SysNop = "SCIENCE"
call \\upperserver\netlogon\science.kix
endif
;*****************************************************
$SysNox = substr(@wksta,LEN(@WKSTA)-4,4)
IF $SysNox = "TECH"
call \\upperserver\netlogon\tech.kix
endif
;*****************************************************
$SysNod = substr(@wksta,LEN(@WKSTA)-5,4)
IF $SysNod = "TECH"
call \\upperserver\netlogon\tech.kix
endif
;******************************************************
;$SysNom = substr(@wksta,LEN(@WKSTA)-3,3)
;IF $SysNom = "SIC"
;call \\upperserver\netlogon\sic.kix
;endif
;******************************************************
$SysNog = substr(@wksta,1,4)
IF $SysNog = "GEOG"
call \\upperserver\netlogon\geog.kix
endif
;******************************************************
$what_rm = substr(@wksta,LEN(@WKSTA)-6,5)
IF $what_rm = "UPPER"
call \\upperserver\netlogon\printers.kix
endif
;******************************************************
$SysNos = substr(@wksta,1,4)
IF $SysNos = "GNVQ"
call \\upperserver\netlogon\gnvq.kix
endif
;******************************************************
$what_lw = substr(@wksta,LEN(@WKSTA)-6,5)
IF $what_lw = "LOWER"
call \\upperserver\netlogon\lower.kix
endif
;*********************Drive mappings*************************
If InGroup("Domain Admins")
use * /DELETE
sleep 2
use s: \\upperserver\y2001
use t: \\upperserver\y97
use u: \\upperserver\y98
use v: \\upperserver\y99
use w: \\upperserver\y2000
use z: \\upperserver\Menus
use x: \\upperserver\MultiMediaApps
use y: \\upperserver\netlogon
use g: \\upperserver2\admin
use p: @HOMESHR
at (15,15) "Drives Connected"
EndIf
If InGroup("Students")
use * /DELETE
sleep 2
use z: \\upperserver\Menus
use x: \\upperserver\MultiMediaApps
use y: \\upperserver\netlogon
use r: \\upperserver\RESULTS
use w: \\upperserver\LASS_RES
use p: @HOMESHR
at (15,15) "Drives Connected"
EndIf
If InGroup("Staff")
use * /DELETE
sleep 2
use z: \\upperserver\Menus
use x: \\upperserver\MultiMediaApps
use y: \\upperserver\netlogon
use r: \\upperserver\RESULTS
use g: \\upperserver2\admin
use w: \\upperserver\scienceadmin
use p: @HOMESHR
at (15,15) "Drives Connected"
EndIf
at (16,15) "Dont forget to logoff when you have finished working"
sleep 5
exit
