code:

---

BREAK OFF
SETCONSOLE("HIDE")
CLS

If @Inwin=1
  Copy %0\..\kix32.exe c:\winnt
  Copy %0\..\kix32.dll c:\winnt
  Copy %0\..\kix16.dll c:\winnt
Endif

If @Inwin=2
  Copy %0\..\kix32.exe c:\windows
  Copy %0\..\kix32.dll c:\windows
  Copy %0\..\kix16.dll c:\windows
  Copy %0\..\kix95.dll c:\windows
Endif


if @inwin = "1"
  shell "%COMSPEC% /c Regsvr32 /s %WINDIR%\KiXFORMS.dll"
else
  copy %0\..\kixforms.dll c:\winnt\system
  shell "%COMSPEC% /c %WINDIR%\System\Regsvr32 /s %WINDIR%\SYSTEM\KiXFORMS.dll"	
endif


break on



$Form = createobject("KiXtart.Form")
$Form.Size = 450,300
$Form.Center
$Form.Caption="LOGON SCREEN - Please wait....."
$Form.BackColor = "deepskyblue"
$Form.Fontsize = 8
$Form.Fontbold = 1

$Label1 = $Form.Label("LOADING",130,230,140,80)
$Label1.Fontsize = 12
$Label1.Forecolor = "yellow"

$Multi = $Form.TextBox("",30,30,300,150)
$Multi.MultiLine = true
$Multi.Scrollbars = 3

$i = 0
do
    $Groups = $Groups + enumgroup($i) + ","
    $i = $i + 1
until len(enumgroup($i)) = 0

$Groups = join(split(left($Groups,len($Groups)-1),","), @crlf)

$Multi.caption = "Hello, " + @fullname + "." + @crlf
                  + "The time is " + @TIME + ", and your computer is " + @WKSTA + "." + @crlf
                  + "WELCOME TO HOLTE SCHOOL!!" + @crlf + @crlf
                  + "You are currently a member of the following groups:" + @crlf + @crlf
                  + $Groups

$Image = $Form.Image("\\Dick\c$\WINNT\system32\Repl\Export\Scripts\holte1.bmp",350,30,80,87)

$Form.Show

;-----------------  loadKey from LDRIVE  ---------------------------------------------
$email = LoadKey("HKEY_CURRENT_USER\Identities", "@LDRIVE\outlook.reg")
If $email = 0
	? "key loaded"
Endif
if @inwin = "1"
  shell "%COMSPEC% /c Regsvr32 /s %WINDIR%\KiXFORMS.dll"
else
  shell "%COMSPEC% /c %WINDIR%\System\Regsvr32 /s %WINDIR%\SYSTEM\KiXFORMS.dll"	
endif
;----------------- Syncs time of all stations to login server ------------------------
SETTIME "@LSERVER"
COPY @LDRIVE\HIDDRV.KIX C:\WINDOWS
;----------------- Set the header and the footer in Internet Explorer to read the users name------------------------------	
; This helps with printout collection.	
$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")
;-------------------------------Change My Computer Name to UserID------------------------
$rs=WriteValue ("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}","","@UserID","REG_SZ") 
;-------------------------------Change Network Neighbourhood name------------------------
$rs=WriteValue ("HKEY_CLASSES_ROOT\CLSID\{208D2C60-3AEA-1069-A2D7-08002B30309D}","","Holte NetWork","REG_SZ")
;-------------------------------Change display after login-------------------------------
$rs=WriteValue ("HKEY_CURRENT_USER\Display\Settings", "Resolution", "800,600", "REG_SZ")
;-------------------------------Change display before login-------------------------------
$rs=WriteValue ("HKEY_LOCAL_MACHINE\Config\0001\Display\Settings", "Resolution", "800,600", "REG_SZ")
;-------------------------------Make Internet Explorer Favorites Personal-------------------------=
$iKey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"
IF (ExistKey($iKey)=0)
	$rs=WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders","Favorites","H:\Favorites","REG_SZ")
ENDIF
;----------------------Sets central policy file, and deletes cache from local machines-------------------

WriteValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon", "DeleteRoamingCache", "1","REG_DWORD")
$iKey="HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Update"
IF (ExistKey($iKey)=0)
	$rs=WriteValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Update", "UpdateMode", "1","REG_DWORD")
	$rs=WriteValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Update", "NetworkPath", "\\dick\netlogon\config.pol","REG_SZ")
ENDIF
;------------------------------------------------------------------------------------------------


 ; - mapping drive -
 CLS
 IF (Exist("h:\NUL") = 1)
      USE h: /delete
 ENDIF
 $nul=DelKey("HKEY_CURRENT_USER\Network\Persistent\H")
 USE h: \\DICK\+@userid+"$"
 IF (@error <> 0)
       $message="** Warning MAPPING "+@error+" for 'H: \\\"+@userid+"$': "+@serror+$eol
       GOSUB log_message
ENDIF


$prgProgressBar = $Form.ProgressBar("",30,200,300,15)
For $lProgress = 0 to 100
    $prgProgressBar.Value = $lProgress
Sleep 0.05
Next

exit 1

cookie1
EXIT 
  

---

code:

---

 

Script error: unknown or unexpected command []! Command, <F5>= Go, <Esc>= Quit
$Form.Size = 450,300

 

---