code:

---

  

SetConsole ("HIDE")
IF @USERID="MARGARET.COX" AND @DATE="2002/10/10"
PLAY "0g256t 0g4d1047f f 1g8d1175f 1047f 1397f 2g16d1319f 0g4d1047f f 1g8d1175f 1047f 1568f 2g16d1397f 0g4d1047f f 1g8d2093f 1760f 1397f 1319f 2g16d1175f 0g6d1865f f 1g11d1760f 1397f 1568f 3g21d1397f256t 0g 18d 0ffff 2d"
ENDIF
If @DAY = "Friday"
call "c:\windows\cleanup.kix"
ENDIF

;---------------------------------------Removes internet access    ----------------------------
;disable proxy
IF INGROUP("Administrators")  
shell "regedit /s c:\windows\disanet.reg"
? "Key loaded" ; this doesnt work!
ENDIF
IF INGROUP("YEAR8")  
shell "regedit /s c:\windows\disanet.reg"
ENDIF 
IF INGROUP("YEAR9")
shell "regedit /s c:\windows\disanet.reg"  
ENDIF 
IF INGROUP("YEAR10")
shell "regedit /s c:\windows\disanet.reg"  
ENDIF 
IF INGROUP("YEAR11")
shell "regedit /s c:\windows\disanet.reg"  
ENDIF 
;-------------------  Deletes Key First----------------------------
$rmv = DelKey("HKEY_CURRENT_USER\Identities")
If $rmv = 0
	? "Key deleted..."
Endif
;-----------------  loadKey from c:  ---------------------------------------------
shell "regedit /s c:\windows\outlook.reg"
? "key loaded" ; works fine!

;-----------------  loadKey from c:  ---------------------------------------------
shell "regedit /s c:\windows\internet.reg"
? "key loaded"

$hidedrv="HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies" 
   IF (WriteValue("$hidedrv"+"\Explorer","NoDrives","8650812",REG_DWORD) <> 0)
         ? "Warning "@error+": "@serror
ENDIF
$pubsve="HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Publisher"
   IF (WriteValue("$pubsve","DefaultPath","H:","REG_SZ") <> 0)
ENDIF
;-----------------------------  Showing Username in Internet Exp---------------------------------------------
$rs=WriteValue ("Software\Microsoft\Internet Explorer\PageSetup", "header", "@FULLNAME&bPage &p of &P", "REG_SZ")	
$rs=WriteValue ("Software\Microsoft\Internet Explorer\PageSetup", "footer", "&u", "REG_SZ")
;------------------------------  Inserting Fullname and email address in outlook-----------------
$rs=WRITEVALUE ("Identities\{00000001-0000-0000-0000-000000000000}\Software\Microsoft\Internet Account Manager\Accounts\00000002", "SMTP Display Name", "@FULLNAME", "REG_SZ")
$add=@USERID+"@@HOLTE.BHAM.SCH.UK"
  IF(WriteValue("Identities\{00000001-0000-0000-0000-000000000000}\Software\Microsoft\Internet Account Manager\Accounts\00000002", "SMTP Email Address", "$add", "REG_SZ") <> 0)
ENDIF
;-----------------------  Setting favorites  ---------------------------------------------
IF (WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Favorites","H:\MyWork\AppData\Favorite","REG_SZ") <> 0)
ENDIF
cd windows
shell "%comspec% /c deltree /Y c:\windows\*.bmp"
; - homepage -    
$ikey="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main"    
IF (ExistKey($ikey) = 0)      
  IF ($debug_mode = "yes")       
 ? "input  -> ["+$ikey+"]"      
  ENDIF      
;      
$default_start_page="http://www.holte.bham.sch.uk" ; - set it to your homepage -      
$ikey_ex="Start Page"      
$ivalue=ReadValue($ikey, $ikey_ex)      
IF (ExistKey($ikey+"\"+$ikey_ex) = 0)        
$result_data_type=ReadType($ikey, $ikey_ex)      
ELSE        
  $result_data_type="REG_SZ"      
ENDIF      
  IF ($debug_mode = "yes")        
  ? "                           "+$ikey_ex+"="+ReadValue($ikey, $ikey_ex)+" "+ReadType($ikey, $ikey_ex)      
ENDIF      
IF ($ivalue <> $default_start_page)        
  IF (writevalue($ikey, $ikey_ex, $default_start_page, $result_data_type) = 0)          
    IF (writevalue($ikey, $ikey_ex, $default_start_page, "REG_SZ") = 0)          
    ENDIF          
$info=$info+" IExplorer.Start_Page[old]=('"+$ivalue+"' > '"+$default_start_page+"')"        
ENDIF      
ENDIF    
ENDIF    
? "Update completed. Result: "+$info
cookie1
EXIT

---