;:DoAntiVirus



   $lblJob.Text = $Blanker
   $lblJob.Text = "Updating Antivirus... "

   $lblTask.Text = $Blanker

   $LSD = @LServer + "\Netlogon"
   IF Exist("$LSD\patches.kix")
      Call "$LSD\patches.kix"
   endif

   Function DoProgress($Step)
	DoProgress(5)
EndFunction
;Return 

 ;************************************************
;**   DoAudit.kix JD5PS2Z0J SYSTEMS  **
;**                                            **
;**   V1.00                          **
;**                                            **
;************************************************

	$fraMain.fontsize = 10
	$lblJob.Text = $Blanker
	$lblJob.Text = "Running Workstation Audit... "
	
	;AUDIT STUFF IN HERE
	;
	;Audit what????
	;
	; Hardware: (Check for changes?)
	; Installed Software (Check for changes?)
	
	$lblTask.Text = $Blanker
	$lblTask.Text = "Hardware"
	sleep $WaitTime
	Function DoProgress($Step)
	DoProgress (20)
EndFunction


	
	$lblTask.Text = $Blanker
	$lblTask.Text = "Software"
	sleep $WaitTime
	Function DoProgress($Step)
	DoProgress (20)
EndFunction

;Return 

 ;************************************************
;**  LogUser.kix    **
;**                                            **
;**      **
;**                                            **
;************************************************
	
	$lblJob.Text = $Blanker
	$lblJob.Text = "Collecting Logon Info... "
	$prgProgress.value = $prgProgress.value + $Step

														;** Dim some vars
	$LogFolder = @LServer + "\netlogon\logs\"			;** Path to log dir
	$FileName = @MONTH + "--" + @WKSTA + ".csv"			;** Get Log File Name
	$MyFile = $LogFolder + $FileName				;** Set full path to file
	$CRLF= Chr(13) + Chr(10)  					;** Set Carriage Return + Line feed
	$MyDateTime = @DATE + " : " + @TIME				;** Date and time string
	
	Function DoProgress($Step)
	DoProgress (10)
EndFunction
	
	IF OPEN(1,$MyFile,5) = 0 					;** Open file for write. Create if doesn't exist
												
															;** Date and time
		$Silent = WriteLine (1, $MyDateTime + $CRLF)   
		$lblTask.Text = $Blanker
		$lblTask.Text = "Time and Date"
		sleep $WaitTime
		Function DoProgress($Step)
	DoProgress (10)
EndFunction
	
															;** User Details
		$Silent = WriteLine (1, "User: " + @USERID + " Full Name: " + @FULLNAME + $CRLF);Write data to file
		$lblTask.Text = $Blanker
		$lblTask.Text = "User Name"
		sleep $WaitTime
		Function DoProgress($Step)
	DoProgress (10)
EndFunction
		
															;** IP 0
		$Silent = WriteLine (1, "IP: " + @IPAddress0 + $CRLF)      
		$lblTask.Text = $Blanker
		$lblTask.Text = "IP Address"
		sleep $WaitTime
		Function DoProgress($Step)
	DoProgress (10)
EndFunction
		
						
		
		$Silent = WriteLine (1, $CRLF) 
		                
		$Silent = Close (1)                             ;Close file
	ENDIF
;	Sleep 1
	
;Return 

 ;************************************************
;**  MapDrives.kix D5PS2Z0J Systems **
;**                                            **
;**  25/05/2005 V1.00                          **
;**                                            **
;************************************************

	$lblJob.Text = $Blanker
	$lblJob.Text = "Mapping Network Drives... "
	
	USE * /DELETE

;** Common mappings: Everyone gets these **

	Sleep $WaitTime
	Function DoProgress($Step)
	DoProgress (5)
EndFunction

	$DriveToMap = "\\d5ps2z0j\PUBLIC"
	$lblTask.Text = $Blanker
               $lblTask.Text = "Public"
	USE L: $DriveToMap		
	Function DoProgress($Step)
	DoProgress (5)
EndFunction

	$DriveToMap = "\\d5ps2z0j\netlogon"
	$lblTask.Text = $Blanker
               $lblTask.Text = "netlogon"
	USE N: $DriveToMap		
	Function DoProgress($Step)
	DoProgress (5)
EndFunction
$DriveToMap = "\\d5ps2z0j\cache"
	$lblTask.Text = "SmartCache"
	USE S: $DriveToMap		
	Function DoProgress($Step)
	DoProgress (5)
EndFunction
; RETURN 

               $lblJob.Text = $Blanker
	$lblJob.Text = "Logon has been successful"
play file @ldrive+"chimes.wav"
sleep 2
Function DoProgress($Step)
	DoProgress (5)
EndFunction 

 ;======= Sync Time with Domain Controller 
;Sync Time

$lblJob.Text = $Blanker
	$lblJob.Text = "Synchronizing time "
If Exist ("$LSD\TimeSync.bat")
  Shell "$COMSPEC /e:1024 /c $LSD\TimeSync.bat"
EndIf