code:

---

SetConsole ("Hide") 

	;Setup the GUI
	$Form = CreateObject("Kixtart.Form")
	$form.text = "Logon In Progress....."
	$Form.Size = 300,400
	$form.backcolor = 255,255,255
	$Form.Center

	$pbar = $Form.progressbar
	$pbar.width = 240
	$pbar.height = 10
	$pbar.min = 0
	$pbar.max = 20
	$pbar.center
	$pbar.top = 350
	$pbar.borderstyle = 0

	$logo = $form.image(login.bmp)
	$logo.center
	$logo.top = 15
	$logo.borderstyle = 0

	$text = $form.textbox
	$text.locked = 1
	$text.width = 240
	$text.height = 20
	$text.center
	$text.top = 320
	$text.value = HELLO!

	$form.show

$pbar.value = 0
$text.value = "Starting Login Progess"
	Sleep 1

$pbar.value = 1
$text.value = "Defining Variables"

	$public = "y:\"
	$scriptpath = "y:\system32\scripts"
	$clientname = "Customer"
	$clientabbr = "CUS"
	$logpath = "y:\system32\log"

$pbar.value = 2
$text.value = "Starting Logging"
? RedirectOutput ("$logpath\@userid.log", 1)

;Logging some things.....

? "@userid, @fullname logging on to @wksta on @day, @month @mdayno, @year at @time"
? "System Processor is a @cpu, @mhz MHz"
$tmem = MemorySize(0) ;Calculate total system memory
$amem = MemorySize(1) ;Calculate available system memory
$spag = MemorySize(2) ;Calculate size of page file
? "$amem MB available of $tmem MB total system memory. Page file is $spag MB"
? "Logon Server = @lserver"
? "Logging to $logpath\@userid.log"
? "Priveledge Level = @priv"
? "Client OS = @producttype"
? "Public Drive = $public"
? "Path to scripts = $scriptpath"
? "Client Name = $clientname , $clientabbr"

$pbar.value = 4
$text.value = "Connecting Network Drives"
Call conndrvs.kix

$pbar.value = 8
$text.value = "Application Delivery"
Call appsdel.kix

$pbar.value = 16
$text.value = "Configuring Workstation"
Call appscfg.kix

$pbar.value = 18
$text.value = "Updating Anti-Virus"
? "Launching AntiVirus Script..."
Shell "vplogon.bat"


$pbar.value = 19
$text.value = "Completing Login"
Call complete.kix

$pbar.value = 20
$text.value = "Logon Script Complete"
Sleep 1

---