You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Basic Scripting » kixlogon
Register User       Forum List       Calendar       FAQ
Page 1 of 1 1
Topic Options
#157984 - 2006-02-28 05:50 PM kixlogon
gavinski Offline
Fresh Scripter

Registered: 2006-02-28
Posts: 23
help with the kixlogon script please

i have just downloaded the kixlogon script from the kixforms web site i can generally get everything running apart from the mappings of drives can any 1 of the kix gurus out there help plz
Top
#157985 - 2006-02-28 05:57 PM Re: kixlogon
Radimus Moderator Offline
Moderator
*****

Registered: 2000-01-06
Posts: 5187
Loc: Tampa, FL
details...
_________________________
How to ask questions the smart way <-----------> Before you ask

Top
#157986 - 2006-02-28 06:07 PM Re: kixlogon
gavinski Offline
Fresh Scripter

Registered: 2006-02-28
Posts: 23


sorry here is the part of the script that i think maps the drives but i really dont know enough to tell



;***********************************************************************
;**
;** Connect Shares to Drives
;**
Function ConnectDrives()
$SharesRadioButton.Value=1
Progress( "Connecting Drives")
DbgMessage("Info","Connecting Drives:")
; ConnectHomeDrive()
ConnectDefaultDrives()
COnnectGroupDrives()
$SharesRadioButton.Value=0
$SharesRadioButton.Enabled =0
EndFunction

;***********************************************************************
;**
;** Connect Home Drive
;**
Function ConnectHomeDrive()
;******************************
; Home DriveShares
;******************************
Progress( "Connecting H:")
DbgMessage("Info"," - H: = " + @HOMESHR)

Use; H: /delete
If ($NT_mode = "no")
DelKey("HKEY_CURRENT_USER\Network\Persistent\H")
EndIf
Use H: @HOMESHR
If @ERROR = 0
DbgMessage ("Info","Home Share Connected")
Else
DBGMessage ("HOMESHR","No Home Share available")
Return
EndIf
EndFunction

;***********************************************************************
;**
;** Connect DefaultShares to Drives
;**
Function ConnectDefaultDrives()
;******************************
; Default DriveShares
;******************************
If Exist($shares.ini)
For $x = 1 to 10
$DriveDefinition = ReadProfileString($shares.ini)
If @ERROR = 0
If $DriveDefinition<>""
ConnectShare($DriveDefinition)
EndIf
Else
Return
EndIf
Next
EndIf
EndFunction

;***********************************************************************
;**
;** Connect GroupShares to Drives
;**
Function COnnectGroupDrives()
;******************************
; GroupShares
;******************************
If Exist($FileLocation + "\shares.ini")
If $group<>""
For $x = 1 to 10
$DriveDefinition = ReadProfileString($FileLocation + "\shares.ini", $group, "drive" + $x)
If @ERROR = 0
If $DriveDefinition<>""
ConnectShare($DriveDefinition)
EndIf
Else
Return
EndIf
Next
EndIf
EndIf
EndFunction

* Function: ConnectShare
;** Usage: ConnectShare ("H:, \\fileserver-2\home")
;**
Function ConnectShare( $DriveDefinition)
$DriveLetter=SubStr($DriveDefinition,1,InStr($DriveDefinition,")-1)
$DriveDefinition=Ltrim(Rtrim(SubStr($DriveDefinition,InStr($DriveDefinition,")+1)))
$Share=Ltrim(Rtrim(SubStr($DriveDefinition,1,InStr($DriveDefinition,")-1)))
$ShareDesc=Ltrim(Rtrim(SubStr($DriveDefinition,InStr($DriveDefinition,")+1)))
DbgMessage("Info"," - Disconnecting " + $DriveLetter + " on " + $Share)
; Use $DriveLetter /delete
; If @ERROR <> 0
; DBGMessage ( "DisMountError", $DriveLetter)
; EndIf
If ($NT_mode = "no")
DelKey("HKEY_CURRENT_USER\Network\Persistent\" + $DriveLetter)
EndIf
Progress( "Connecting " + $DriveLetter + " to " + $Share)
DbgMessage("Info"," - Connecting " + $DriveLetter + " on " + $Share)
Use $DriveLetter $Share
If @ERROR <> 0
DBGMessage ( "MountError", $DriveLetter + " on " + $Share )
EndIf
EndFunction
Top
#157987 - 2006-02-28 06:10 PM Re: kixlogon
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
If Exist($shares.ini)

it is trying to map from $shares.ini
do you have such declared?

in the connectgroupdrives it's then trying to map:
If Exist($FileLocation + "\shares.ini")

do you have such ini?
_________________________
!

download KiXnet

Top
#157988 - 2006-02-28 06:13 PM Re: kixlogon
gavinski Offline
Fresh Scripter

Registered: 2006-02-28
Posts: 23
yes i have a shares.ini file in the same directory as the kix script itself
Top
#157989 - 2006-02-28 06:56 PM Re: kixlogon
gavinski Offline
Fresh Scripter

Registered: 2006-02-28
Posts: 23
this is what my scripts.ini contains

Drive1="S:, \\10.1.4.2\shared"
Top
#157990 - 2006-02-28 07:20 PM Re: kixlogon
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
now you say you have scripts.ini

do you have shares.ini or scripts.ini?
do you have it in $fileLocation or do you specify the $shares.ini variable?
_________________________
!

download KiXnet

Top
#157991 - 2006-02-28 07:55 PM Re: kixlogon
gavinski Offline
Fresh Scripter

Registered: 2006-02-28
Posts: 23
sorry it is shares.ini and i know i sound dumb but what is $filelocation and $shares.ini variable the file is located on my hd at the moment just for testing
Top
#157992 - 2006-02-28 09:10 PM Re: kixlogon
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
like showed you earlier, these are the locations you are giving in your own script for kixtart to read from.
if you have no idea what these are, please try to study the UDFs.
also, see the manual for readprofilestring() and exist() and your own script.

there is no magic involved, just simple commands and functions.
_________________________
!

download KiXnet

Top
#157993 - 2006-03-01 02:41 AM Re: kixlogon
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11629
Loc: CA
But looks like he inherited a more complex script from someone else and he is still new at scripting.

Think he needs to do a little reading and basic testing with KiXtart first. ie. Learn to crawl before you Learn to fly.
Top
#157994 - 2006-03-01 10:33 AM Re: kixlogon
gavinski Offline
Fresh Scripter

Registered: 2006-02-28
Posts: 23
this is true i have learned where the file is located scripts.ini it is in my netlogon directory i have got the software ini working which checks to see if certain software is install i just cant get the mapped drives from working from the ini file ???? from what i can tell it should work

;**
;**
;** Connect DefaultShares to Drives
Function ConnectDefaultDrives()
;******************************
; Default DriveShares
;******************************
If Exist($FileLocation + "\shares.ini")
For $x = 1 to 10
$DriveDefinition = ReadProfileString($FileLocation + "\shares.ini", "[all]", "drive" + $x)
If @ERROR = 0
If $DriveDefinition<>""
ConnectShare($DriveDefinition)
EndIf
Else
Return
EndIf
Next
EndIf
EndFunction

and the ini file is

[all]
Drive1="S:, \\fileserver-2\shared, all"

should this work
Top
#157995 - 2006-03-01 10:34 AM Re: kixlogon
gavinski Offline
Fresh Scripter

Registered: 2006-02-28
Posts: 23
sorry i ment shares.ini
Top
#157996 - 2006-03-01 11:51 AM Re: kixlogon
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
$DriveDefinition = ReadProfileString($FileLocation + "\shares.ini", "[all]", "drive" + $x)


again, do you have $FileLocation set?
"[all]" is not supported section name. "all" is. remove the brackets.
_________________________
!

download KiXnet

Top
#157997 - 2006-03-01 12:05 PM Re: kixlogon
gavinski Offline
Fresh Scripter

Registered: 2006-02-28
Posts: 23
yes i have the file location set on my pdc

;$Lserver =
$LServer = "\\10.1.4.3"
$LoggingLocation="\\10.5.1.86\it\logs"
$FileLocation="\\10.1.4.3\netlogon"
;$FileLocation=@LDRIVE + "\new"
;$FileLocation="."
Top
#157998 - 2006-03-01 12:10 PM Re: kixlogon
gavinski Offline
Fresh Scripter

Registered: 2006-02-28
Posts: 23
i have removed the brackets on the all now and now i get this script error
script error: unknown or unexpected command []!
$DriveDefinition=Ltrim(Rtrim(SubStr($DriveDefinition,InStr($DriveDefinition,")+1)))
Top
#157999 - 2006-03-01 12:35 PM Re: kixlogon
Richard H. Administrator Offline
Administrator
*****

Registered: 2000-01-24
Posts: 4946
Loc: Leatherhead, Surrey, UK
Well, this is an unmatched double quote:
Code:
$DriveDefinition=Ltrim(Rtrim(SubStr($DriveDefinition,InStr($DriveDefinition,")+1)))


The code that you've posted is very broken. That line should look something more like:
Code:
$DriveDefinition=Ltrim(Rtrim(SubStr($DriveDefinition,InStr($DriveDefinition,' ')+1)))


Please post your entire code again, but this time make sure that you post it inside CODE tags. If you don't it will make it very hard for us to debug.
Top
#158000 - 2006-03-01 02:49 PM Re: kixlogon
gavinski Offline
Fresh Scripter

Registered: 2006-02-28
Posts: 23
this is the original code

Code:
 $TRUE 		= 1
$FALSE 		= 0
If $Debug=1 
	$DebugFlag = 1
Else
	$DebugFlag = 0
EndIf
$DebugLevel = "Info"							; Info, Debug, Error

$AdminEmail = "root@@semecs.com"              	; Where to send all of the warning messages
$MailServer = "10.0.0.1"

$Lserver = @LServer
;$LServer = "10.15.15.254"
$LoggingLocation="\\cobalt\packages$\log"
$FileLocation="\\oxygen\netlogon\new"
;$FileLocation=@LDRIVE + "\new"
;$FileLocation="."

;************************************************************ RAS
If @RAS > 0
	MessageBox("You are connecting to the Network with a Modem," +@CRLF +"the Logon script will be Skipped","RAS Detected",48)
	Exit
EndIf
;************************************************************

;Break Off
Break On

;Default Settings
$os=""
$os_type=""
$os_service_pack=""
$progressstep=3
$sleeptime=0
$numerrors=0
Global $time

Global $UpdateSoftware[0]
$Updates=0
$RunUpdates=$False

$tmpdir=ExpandEnvironmentVars("%tmp%")
$systemdrive=ExpandEnvironmentVars("%systemdrive%")
$windir=ExpandEnvironmentVars("%windir%")
$comspec=ExpandEnvironmentVars("%comspec%")

$CentralSoftwareIniFile=$FileLocation + "\Software.ini"
$LocalSoftwareIniFile=$windir + "\InstalledSoftware.ini"
$GeneralSourceLocation=ReadProfileString($CentralSoftwareIniFile, "Packages", "GeneralSourceLocation")

If Exist($systemdrive + "/program files/utils/kixtart")
	$KixDir=$systemdrive + "/program files/utils/kixtart"
Else
	$KixDir=@LDrive
	$KixDir="."
EndIf

Global $DebugMessages[0]
$NumMessages=0
$DebugMessages[$NumMessages]="-BEGIN--------------------------"

;Main Application

; Draw Form
	DrawForms()
; Get OperatingSystemInformation
	OperatingSystem()  
	$OSBox.Text=SubStr($os,1,22)
; Show News
	ShowNews()
; Syncing Time
	SyncTime()
	
; Connecting Drives
	ConnectDrives()

If FirstLogonToday()=$True
	; Check Software Versions
		CheckSoftwareVersions()
	; Update Software
		InstallSoftware()
		
	; Update Antivirus
		UpdateAntivirus()
Else
	$CheckSoftwareRadioButton.Value=0
	$CheckSoftwareRadioButton.Enabled =0	
	$InstallSoftwareRadioButton.Value=0
	$InstallSoftwareRadioButton.Enabled =0
	$AntiVirusRadioButton.Value=0
	$AntiVirusRadioButton.Enabled =0
EndIf

; Set machine to stanard Settings
	StandardSettings()

; Write Log File
	WriteLogFile()

; Fill Progressbar
While $ProgressBar.Value < 100
	Progress("Finalizing",20)
Loop

Exit 1

;***********************************************************************
;**
;**  Update the clock
;**
Function UpdateClock()
	If @Time<>$time
		$Clock.Text=@Time
		$time=@time
	EndIf
EndFunction

;***********************************************************************
;**
;**  Retrieve News File
;**
Function ShowNews()
	$NewsRadioButton.Value=1
	Progress( "Retrieving News")
	If Open(1, $FileLocation + "\News.txt") = 0
		$NewsLine = ReadLine(1)
		While @ERROR=0
			$NewsTextBox.Text=$NewsTextBox.Text + $NewsLine + Chr(13) + Chr(10)
			$NewsLine = ReadLine(1)
		Loop
		If Close (1) <> 0
			DbgMessage("Error","News File could not be closed", @SError)
		EndIf
	Else
		DbgMessage("Debug","No News")
	EndIf
	$NewsRadioButton.Value=0
	$NewsRadioButton.Enabled =0
EndFunction

;***********************************************************************
;**
;**  Syncronize the local system time with the logon server.  The PDC
;**  server Oxygen syncronizes with NTP server 
;**
Function SyncTime()
	$TimeRadioButton.Value=1
	DBGMessage ("Info", "Syncing Time:" )
	Progress( "Syncing Time")
	If $NT_Mode="yes"
		SetTime "\\" + $Lserver
		If @ERROR<>0
			DBGMessage ("Error", " - Error Finding Time Server : " + $Lserver )
		Else
			DbgMessage("Info"," - Synchronized time with : " + $Lserver)
		EndIf
	EndIf
	$TimeRadioButton.Value=0
	$TimeRadioButton.Enabled =0
EndFunction

;***********************************************************************
;**
;**  First time Logon.kix runs today
;**
Function FirstLogonToday()
	Progress( "Checking If FirstLogon today")
	DbgMessage("Info","Checking If FirstLogon today")
	$FirstLogonToday=$False
	If Exist($LoggingLocation + "\" + @Wksta + ".log")
		$FileDate=Left(GetFileTime ($LoggingLocation + "\" + @Wksta + ".log"),10)
		If $FileDate<>@Date
			$FirstLogonToday=$True		
		EndIf
	Else
		$FirstLogonToday=$True		
	EndIf
EndFunction

;***********************************************************************
;**
;**  Check Software Versions
;**
Function CheckSoftwareVersions()
	$CheckSoftwareRadioButton.Value=1
	Progress( "Checking Software Versions")
	DbgMessage("Info","Check Software Versions:")
	If Not Exist($LocalSoftwareIniFile)
		If Open(2, $LocalSoftwareIniFile,5) = 0
			If WriteLine(2, "# Created : " + @Date + @CRLF)<>0
				DbgMessage("Error","$LocalSoftwareIniFile could not be written")
			EndIf
			If Close(2)<>0
				DbgMessage("Error","$LocalSoftwareIniFile could not be closed")
			EndIf
		Else
			DbgMessage("Debug","$LocalSoftwareIniFile could not be written")
		EndIf
	EndIf	
	If Exist($CentralSoftwareIniFile)
		$Numpackages=1
		$CentralAppName = ReadProfileString($CentralSoftwareIniFile, "Packages", "" + $Numpackages + "_AppName")
		While $CentralAppName<>"" AND @Error=0
			$CentralAppVersion = ReadProfileString($CentralSoftwareIniFile, $CentralAppName, "Version")
			Progress( "Checking For : " + $CentralAppName + " v. " + $CentralAppVersion)
			DbgMessage("Info","Checking For : " + $CentralAppName + " v. " + $CentralAppVersion)
			; Check Version On Machine
			$LocalAppVersion = ReadProfileString($LocalSoftwareIniFile,$CentralAppName,"Version")
			If @Error = 0 
				If $LocalAppVersion <> $CentralAppVersion
					; Add to updating List
					Progress( $CentralAppName + " v. " + $LocalAppVersion + " needs updating")
					DbgMessage("Info",$CentralAppName + " v. " + $LocalAppVersion + " needs updating")
					$UpdateSoftware[$Updates]=$CentralAppName
					DbgMessage("Debug",$UpdateSoftware[$Updates])
					$RunUpdates=$True
					$Updates = $Updates + 1
					ReDim PRESERVE $UpdateSoftware[$Updates]	
				EndIf
			EndIf
			$Numpackages=$Numpackages+1
			$CentralAppName = ReadProfileString($CentralSoftwareIniFile, "Packages", "" + $Numpackages + "_AppName")
		Loop	
		If $Updates > 0
			$Updates = $Updates - 1
			ReDim PRESERVE $UpdateSoftware[$Updates]	
		EndIf	
	Else
		DbgMessage("Error",$CentralSoftwareIniFile + " Could not be opened")
	EndIf

	$CheckSoftwareRadioButton.Value=0
	$CheckSoftwareRadioButton.Enabled =0
EndFunction

;***********************************************************************
;**
;**  UpdateSoftware()
;**
Function InstallSoftware()
	$InstallSoftwareRadioButton.Value=1
	If $RunUpdates=$True
		For $Installing = 0 to $Updates 
			DbgMessage("Info","Updating : ------------ " + $UpdateSoftware[$Installing])
			$ActionFile = ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "ActionFile")
			$ActionType = ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "ActionType")
			Select
				Case $ActionType="KIX"
					$SourceLocation = $GeneralSourceLocation + ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "SourceLocation")
					$Destination = ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "Destination")
					$Script=$SourceLocation + "\" + $ActionFile 
					If Exist($Script)
						DbgMessage("Info","Call " + $Script)
						Call $Script
						If @ERROR=0
							DbgMessage("Info","Update : Success")
						Else
							DbgMessage("Error","Update : Error: " + @Error + " - " + @SERROR )
						EndIf
					Else
						DbgMessage("Error", $Script + " Could not be found")
					EndIf
					
				Case $ActionType="MSI"
					$SourceLocation = $GeneralSourceLocation + ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "SourceLocation")
					$Destination = $GeneralSourceLocation + ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "Destination")
					$Version = ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "Version")

					If MSIInstaller($SourceLocation,$Destination,$ActionFile)=0
						If WriteProfileString($LocalSoftwareIniFile, $UpdateSoftware[$Installing], "Version", $Version)<>0
							stpDbgMessage("Error","Ini File could not be updated")
						EndIf							
						DbgMessage("Info","Update : Success")
					Else
						DbgMessage("Error","Update : Error: " + @Error + " - " + @SERROR )
					EndIf	

				Case $ActionType="EXE"
					$SourceLocation = $GeneralSourceLocation + ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "SourceLocation")
; Not yet Implemented
					; Run Exe File
					;Shell "Exe"
					
				Case $ActionType="BAT"
					$SourceLocation = $GeneralSourceLocation + ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "SourceLocation")
; Not yet Implemented
					; Run Bat File
					;Shell "Bat"
					
				Case $ActionType="INF"
					$SourceLocation = $GeneralSourceLocation + ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "SourceLocation")
; Not yet Implemented
					; Run INF File
					;Shell "INF"
					
			EndSelect				
			DbgMessage("Info","Done     : ------------ " + $UpdateSoftware[$Installing])
		Next
	EndIf
	$InstallSoftwareRadioButton.Value=0
	$InstallSoftwareRadioButton.Enabled =0
EndFunction

;***********************************************************************
;**
;**  MSIInstaller()
;**
; MSIEXEC.EXE - the MSI executable, the program that performs the actual installation of the application. 
; /I - this switch informs the Windows Installer to install the specified application (as opposed to removing, reinstalling OR repairing the application) 
; /QB-  - this switch instructs the Windows Installer to perform the installation with a basic user interface requiring no dialog boxes to be displayed. 
; You might also Use /QN- to perform the installation with no user interface AT all. 
; /LWAMOE c:\temp\install.log - this switch instructs the Windows Installer to generate a log file AT the specified path AND file name (in this Case, "c:\temp\install.log")
; AND to include the following details: Non fatal errors, start up actions, out of memory OR fatal Exit information, out of disk space messages AND all error messages. There are several other options (see our FAQ For more details) to include all possible details in the log file Use "/L* c:\temp\install.log" 
; ALLUSERS=1 - including this will cause the shortcuts For the application to be placed in "all users" instead of the current user profile. 
; see http://appdeploy.com/faq/windowsinstaller/wi-faq-13.shtml for more options
;  /faums Reinstall

Function MSIInstaller($SourceLocation,$Destination,$ActionFile)
	;Check if MSI Installer is installed
		If Exist ($Destination + "\*.ini")
			$inifile=Dir($Destination + "\*.ini")
			CopyFiles($Destination, "*.ini", $tmpdir)
		EndIf	
		If NOT Exist($windir + "\Installer")
			If $NT_Mode="yes"
				Shell $GeneralSourceLocation + "\MSIInstaller\InstMsiW.exe /q"
				If @ERROR=0
					DbgMessage("Info","Update : Success")
				Else
					DbgMessage("Error","Update : Error: " + @Error + " - " + @SERROR )
				EndIf						
			Else
				Shell $GeneralSourceLocation + "\MSIInstaller\InstMsiA.exe /q"
				If @ERROR=0
					DbgMessage("Info","Update : Success")
				Else
					DbgMessage("Error","Update : Error: " + @Error + " - " + @SERROR )
				EndIf						
			EndIf
		EndIf
	
	;Run MSI File
		If Exist($windir + "\system32\msiexec.exe")
			$msiexec=$windir + "\system32\msiexec.exe"
		Else 
			$msiexec=$windir + "\system\msiexec.exe"
		EndIf
		$msiinstall=" /i " + $SourceLocation + "\" + $ActionFile
		$msioptions=" /QN"
		$msilogging=" /LWAMOE " + $windir + "\Install_" + $UpdateSoftware[$Installing] + ".log" 
		
		; DbgMessage("Info","SHELL " + $comspec + " /c " + $msiexec + $msiinstall + $msioptions + $msilogging)
		
		Shell $msiexec + $msiinstall + $msioptions + $msilogging
		If @Error<>0
			$MSIInstaller=@Error + " - Additional Info : " + @Serror
		Else
			$MSIInstaller=@Error
		EndIf
		If $inifile<>""
			CopyFiles($Destination, $inifile, $Destination)
		EndIf	
EndFunction

;***********************************************************************
;**
;**  UpdateAntivirus
;**
Function UpdateAntivirus()
	$AntiVirusRadioButton.Value=1
; Not yet Implemented
	$AntiVirusRadioButton.Value=0
	$AntiVirusRadioButton.Enabled =0
EndFunction

;***********************************************************************
;**
;**  Connect Shares to Drives
;**
Function ConnectDrives()
	$SharesRadioButton.Value=1
	Progress( "Connecting Drives")
	DbgMessage("Info","Connecting Drives:")
;	ConnectHomeDrive()
	ConnectDefaultDrives()
	COnnectGroupDrives()
	$SharesRadioButton.Value=0
	$SharesRadioButton.Enabled =0	
EndFunction

;***********************************************************************
;**
;**  Connect Home Drive
;**
Function ConnectHomeDrive()
	;******************************	
	; Home DriveShares
	;******************************	
	Progress( "Connecting H:")
	DbgMessage("Info","  - H: = " + @HOMESHR)
	
	Use; H: /delete
	If ($NT_mode = "no") 
		DelKey("HKEY_CURRENT_USER\Network\Persistent\H")
	EndIf
	Use H: @HOMESHR
		If @ERROR = 0
			DbgMessage ("Info","Home Share Connected")
		Else
			DBGMessage ("HOMESHR","No Home Share available")
			Return
		EndIf
EndFunction

;***********************************************************************
;**
;**  Connect DefaultShares to Drives
;**
Function ConnectDefaultDrives()
	;******************************	
	; Default DriveShares
	;******************************
	If Exist($FileLocation + "\shares.ini")
		For $x = 1 to 10 
			$DriveDefinition = ReadProfileString($FileLocation + "\shares.ini", "SemecsAll", "drive" + $x)
			If @ERROR = 0
				If $DriveDefinition<>""
			  		ConnectShare($DriveDefinition)
				EndIf
			Else
				Return
			EndIf
		Next
	EndIf
EndFunction

;***********************************************************************
;**
;**  Connect GroupShares to Drives
;**
Function COnnectGroupDrives()
	;******************************	
	; GroupShares
	;******************************
	If Exist($FileLocation + "\shares.ini")
		If $group<>""
			For $x = 1 to 10 
				$DriveDefinition = ReadProfileString($FileLocation + "\shares.ini", $group, "drive" + $x)
				If @ERROR = 0
					If $DriveDefinition<>""
						ConnectShare($DriveDefinition)
					EndIf
				Else
					Return
				EndIf
			Next 
		EndIf
	EndIf
EndFunction

;************************************************************************
;**
;** Set machine to default settings
;**
Function StandardSettings()
	$StandardSettingsRadioButton.Value=1
	Progress( "Setting Standard Settings")
	DbgMessage("Info","Setting standard settings:")	
	DisablePWDCaching()
	; ScreenSaver
	; Auto Logoff MfgPro Gui Client
	
	$StandardSettingsRadioButton.Value=0
	$StandardSettingsRadioButton.Enabled=0
EndFunction
;************************************************************************
;**
;** Disable Password Caching on Win9x machines
;** Password only has to be set for Network not for local machine anymore
;**
Function DisablePWDCaching()
DbgMessage("Info","Disable Password Caching Win9x")	

If (($OS = "Win95") OR ($OS = "Win98"))
	Progress( "Disable Password Caching")
	ExistKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\NETWORK")
	If @ERROR = 0
		ExistKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\NETWORK")
		If @ERROR = 0
		   WriteValue("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\NETWORK",  "DisablePwdCaching","1","REG_SZ")
		Else
		EndIf
	Else
		ExistKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES")
		If @ERROR = 0
			ExistKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\NETWORK")
			If @ERROR = 0
				ExistKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\NETWORK")
				If @ERROR = 0
				   WriteValue("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\NETWORK",  "DisablePwdCaching","1","REG_SZ")
				Else
				EndIf
			Else
			   AddKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\NETWORK")
			EndIf
		Else
		   AddKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES")
		EndIf
	EndIf
EndFunction ()

;************************************************************************
;**
;**  Used to send email to the NT Administrator defined in $AdminEmail.
;**  Attaches a copy of the local $DebugFile to the message so we can see
;**  if there's a history of problems on the machine.
;**
;**  Interprets the user's email address from their logon name.  Both
;**  logon names as well as email addresses are based on the employee's
;**  insurance (employee) number.
;**
Function SendAdminMail()
	If Len(DebugMessages)>1 
		Progress( "Sending Debug Report")
		$UserEmail = @USERID + "@@" + $MailServer
		; REM Run "POSTIE.exe -host:$MailServer -to:$AdminEmail -from:$UserEmail -s:Logon_Script_Error_on_@WKSTA -msg:" + Chr(34) + "$DebugMessages"
	EndIf
EndFunction

;************************************************************
;** Function: ConnectShare 
;** Usage: ConnectShare ("H:, \\OXYGEN\LOG_Procurement$, Logistics Procurement")
;**
Function ConnectShare( $DriveDefinition)
	$DriveLetter=SubStr($DriveDefinition,1,InStr($DriveDefinition,",")-1)
	$DriveDefinition=Ltrim(Rtrim(SubStr($DriveDefinition,InStr($DriveDefinition,",")+1)))
	$Share=Ltrim(Rtrim(SubStr($DriveDefinition,1,InStr($DriveDefinition,",")-1)))
	$ShareDesc=Ltrim(Rtrim(SubStr($DriveDefinition,InStr($DriveDefinition,",")+1)))
	DbgMessage("Info","  - Disconnecting " + $DriveLetter + " on " + $Share)
;	Use $DriveLetter /delete
;	If @ERROR <> 0
;		DBGMessage ( "DisMountError", $DriveLetter)
;	EndIf
	If ($NT_mode = "no") 
		DelKey("HKEY_CURRENT_USER\Network\Persistent\" + $DriveLetter)
	EndIf
	Progress( "Connecting " + $DriveLetter + " to " + $Share)
	DbgMessage("Info","  - Connecting " + $DriveLetter + " on " + $Share)
	Use $DriveLetter $Share
	If @ERROR <> 0
		DBGMessage ( "MountError", $DriveLetter + " on " + $Share )
	EndIf
EndFunction 

;***********************************************************************
;**
;**  Update Progress Bar
;**
Function Progress($ProgressText,optional $Step)
	If $Step=""
		$Step=$progressstep
	EndIf
	$ProgressTextBox.Text=$ProgressText
	If $ProgressBar.Value + $Step < 101
		$ProgressBar.Value=$ProgressBar.Value+$Step
		If $DebugFlag = $TRUE		 
			Sleep $sleeptime
		EndIf
	Else
		$ProgressBar.Value=100
	EndIf
	$=Execute($Form.DoEvents())
EndFunction

;************************************************************
;** Function: DBGMessage
;** Usage: DBGMessage( "Debug", "This is a debug Message" ) 
;** DebugType : Info, Debug, Error
;**
Function DBGMessage($DebugType, $DebugMessage, Optional $SError)
	Select
		Case $DebugLevel="Error"
			If $DebugType="Info" OR $DebugType="Debug"
				Return
			EndIf
		Case $DebugLevel="Info"
			If $DebugType="Debug"
				Return
			EndIf
	EndSelect
	
	If $DebugType="Error"
		$numerrors=$numerrors+1
	EndIf
	$NumMessages=$NumMessages + 1
	ReDim Preserve $DebugMessages[$NumMessages]
	
	$DebugTime="" + @Date + " - " + @Time +" >"
	$DebugText=$DebugType + " : " + $DebugMessage
	If $SError<>""
		 $DebugText=$DebugText + " | Additional Info: @SERROR"
	EndIf
	
	$DebugMessages[$NumMessages]=$DebugTime + $DebugText
	If $DebugFlag = $TRUE		 
		$DbgTextBox.Text=$DbgTextBox.Text + $DebugText + @CRLF
		Sleep $sleeptime
	EndIf		
EndFunction

;************************************************************
;** Function: WriteLogfile
;** Usage: WriteLogFIle() 
;**
Function WriteLogFile()
	; Display DebugMessage
	$WriteLogFileRadioButton.Value=1
	Progress( "Writing Logfile")
	$LogFile=$LoggingLocation + "\" + @Wksta + ".log"
	If Exist($LogFile)
		If GetFileSize($LogFile) > 1024 * 1024
			Del($LogFile)
		EndIf
	EndIf
	
	$NumMessages=$NumMessages + 1
	ReDim PRESERVE $DebugMessages[$NumMessages]
	$DebugMessages[$NumMessages]="-END----------------------------"
	
	If Open(1, $LogFile,5) = 0
		For $x=0 to $NumMessages
			If WriteLine(1, $DebugMessages[$x] + @CRLF)<>0
				DbgMessage("Error","DebugLine could not be written")
			EndIf
		Next
		If Close(1)<>0
			DbgMessage("Error","Log File could not be closed")
		EndIf
	Else
		DbgMessage("Debug","Log file could not be written")
	EndIf
	$WriteLogFileRadioButton.Value=0
	$WriteLogFileRadioButton.Enabled =0
EndFunction

;***********************************************************************
;**
;**  calculates OS version with service pack
;**
Function OperatingSystem() 
	DbgMessage("Info","Checking Operating System")
	Progress("Checking Operating System")
	
	If (@inwin = 1)
		$NT_mode="yes"
	Else
		$NT_mode="no"
	EndIf
	
	$os=""
	$os_dos=@dos
	$os_product=ReadValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptions","ProductType")
	$os_productSuite=ReadValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptions","ProductSuite")
	$os_service_pack=""
	$os_subversion=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion","SubVersionNumber")
	Select
		Case ($NT_mode = "yes") AND ($os_product <> "WinNT") AND ($os_dos = "5.1") AND (InStr($os_productSuite,"Terminal Server") <> 0)
			$os="XP_Terminal_Server"
		Case ($NT_mode = "yes") AND ($os_product <> "WinNT") AND ($os_dos = "5.1") ; - Windows XP Server
			$os="XP_Server"
		Case ($NT_mode = "yes") AND ($os_product = "WinNT") AND ($os_dos = "5.1")  ; - Windows XP Professional
			$os="XP_Professional"
		Case ($NT_mode = "yes") AND ($os_product <> "WinNT") AND ($os_dos = "5.0") AND (InStr($os_productSuite,"Terminal Server") <> 0)
			$os="W2K_Terminal_Server"
		Case ($NT_mode = "yes") AND ($os_product <> "WinNT") AND ($os_dos = "5.0") ; - Windows 2000 -
			$os="W2K_Server"
		Case ($NT_mode = "yes") AND ($os_product = "WinNT") AND ($os_dos = "5.0")
			$os="W2K_Professional"
		Case ($NT_mode = "yes") AND ($os_product = "LANMANNT")                     ; - Windows NT -
			$os="NT4_Domain_Controller"
		Case ($NT_mode = "yes") AND ($os_product = "ServerNT") AND (InStr($os_productSuite,"Terminal Server") <> 0)
			$os="NT4_Terminal_Server"
		Case ($NT_mode = "yes") AND ($os_product = "ServerNT")
			$os="NT4_Member_Server"
		Case ($NT_mode = "yes") AND ($os_product = "WinNT")
			$os="NT4"
		Case ($NT_mode <> "yes") AND (@dos = "4.90")
			$os="ME"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.10") AND (InStr(Lcase($os_subversion),"c") <> 0) ; - Windows 98 -
			$os="W98c"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.10") AND (InStr(Lcase($os_subversion),"b") <> 0)
			$os="W98b"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.10") AND (InStr(Lcase($os_subversion),"a") <> 0)
			$os="W98a"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.10")
			$os="W98"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.0") AND (InStr(Lcase($os_subversion),"c") <> 0) ; - Windows 95 -
			$os="W95c"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.0") AND (InStr(Lcase($os_subversion),"b") <> 0)
			$os="W95b"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.0") AND (InStr(Lcase($os_subversion),"a") <> 0)
			$os="W95a"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.0")
			$os="W95"
		Case 1
			$os="???" ; - undetermined -
	EndSelect
	;
	$os_service_pack=""
	Select
		Case ($NT_mode = "yes") AND ($os_dos = "5.1") ; - Windows XP
			$os_service_pack=ReadValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion","BuildLab")
			If (Len($os_service_pack) <> 0)
				$os=SubStr($os,1,3)+"_"+Ltrim(Rtrim($os_service_pack))
				$os_service_pack=Ltrim(Rtrim($os_service_pack))
			EndIf
		Case ($NT_mode = "yes") AND ($os_dos <> "5.1") ; Windows NT4 + W2K
			$os_service_pack=ReadValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion","CSDVersion")
			If (Len($os_service_pack) <> 0)
				$os=SubStr($os,1,3)+"_"+SubStr($os_service_pack,Len($os_service_pack),1)
				$os_service_pack=Ltrim(Rtrim($os_service_pack))
			EndIf
	Case 1
	; Windows 95, 98 + ME
	EndSelect
	;
	$os_type=""
	$os_dos=@dos
	Select
		Case ($NT_mode = "yes") AND ($os_dos = "5.1")   ; - Windows XP -
			$os_type="XP"
		Case ($NT_mode = "yes") AND ($os_dos = "5.0")   ; - Windows 2000 -
			$os_type="W2K"
		Case ($NT_mode = "yes")                         ; - Windows NT -
			$os_type="NT4"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.90") ; - Windows ME -
			$os_type="ME"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.10") ; - Windows 98 -
			$os_type="W98"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.0")  ; - Windows 95 -
			$os_type="W95"
		Case 1
			$os_type="???" ; - undetermined -
	EndSelect
	$os_type=Ltrim(Rtrim(SubStr($os_type+"   ",1,3)))
EndFunction

;***********************************************************************
;**
;**  DrawForms()
;**
Function DrawForms()

; Form
	$Form = CreateObject("Kixtart.Form")
	$Form.Caption = "Semecs Login Script"
	$Form.Width = 500
	$Form.Height = 400
	If $DebugFlag=$True
		$Form.Left=(1024 / 2) - (500 / 2)
		$Form.Top=(768  / 2) - (400 /2 )	
	Else
		$Form.Center
	EndIf
	; ClockTimer
		$Timer = $Form.Timer(600,0,0,15,15)
		$Timer.OnTimer = "UpdateClock()"

; Logo
	$Logo=$Form.PictureBox
	$Logo.Left=5
	$Logo.Top=5
	$Logo.Width=483
	$Logo.Height=50
	$Logo.Picture="logo.bmp"

; Info Frame 
	$InfoFrame = $Form.Frame("Information",5,55,240,140)
	
	$OSLbl = $InfoFrame.Label("Os", 5, 15, 115, 15)
	$OSBox = $InfoFrame.TextBox("", 120, 15, 115, 15)
	$OSBox.BackColor=$Form.BackColor
	$OSBox.Enabled=0
	$UserIdLbl = $InfoFrame.Label("UserId", 5, 30, 115, 15)
	$UserIdBox = $InfoFrame.TextBox(@USERID	, 120, 30, 115, 15)
	$UserIdBox.BackColor=$Form.BackColor
	$UserIdBox.Enabled=0
	$FullNameLbl = $InfoFrame.Label("Full Name", 5, 45, 115, 15)
	$FullNameBox = $InfoFrame.TextBox(@FULLNAME, 120, 45, 115, 15)
	$FullNameBox.BackColor=$Form.BackColor
	$FullNameBox.Enabled=0
	$PriviledgeLbl = $InfoFrame.Label("Priviledge", 5, 60, 115, 15)
	$PriviledgeBox = $InfoFrame.TextBox(@WKSTA, 120, 60, 115, 15)
	$PriviledgeBox.BackColor=$Form.BackColor
	$PriviledgeBox.Enabled=0
	$WorkStnLbl = $InfoFrame.Label("Workstation", 5, 75, 115, 15)
	$WorkStnBox = $InfoFrame.TextBox(@WKSTA, 120, 75, 115, 15)
	$WorkStnBox.BackColor=$Form.BackColor
	$WorkStnBox.Enabled=0
	$DomainLbl = $InfoFrame.Label("Domain", 5, 90, 115, 15)
	$DomainBox = $InfoFrame.TextBox(@DOMAIN, 120, 90, 115, 15)
	$DomainBox.BackColor=$Form.BackColor
	$DomainBox.Enabled=0
	$ServerLbl = $InfoFrame.Label("Server", 5, 105, 115, 15)
	$ServerBox = $InfoFrame.TextBox($LSERVER, 120, 105, 115, 15)
	$ServerBox.BackColor=$Form.BackColor
	$ServerBox.Enabled=0
	$MemberLbl = $InfoFrame.Label("Group Member", 5, 120, 115, 15)
	$MemberBox = $InfoFrame.TextBox(@group, 120, 120, 115, 15)
	$MemberBox.BackColor=$Form.BackColor
	$MemberBox.Enabled=0

; Action Frame
	$ActionFrame = $Form.Frame("Actions",250,55,240,140)
	
	$NewsRadioButton = $ActionFrame.RadioButton("Get News", 5, 15, 230, 15)
	$TimeRadioButton = $ActionFrame.RadioButton("Set Time", 5, 30, 230, 15)
	$SharesRadioButton = $ActionFrame.RadioButton("Connect Drives", 5, 45, 230, 15)
	$CheckSoftwareRadioButton = $ActionFrame.RadioButton("Check Software Versions", 5, 60, 230, 15)
	$InstallSoftwareRadioButton = $ActionFrame.RadioButton("Install Software", 25, 75, 230, 15)
	$AntiVirusRadioButton = $ActionFrame.RadioButton("Update Antivirus", 5, 90, 230, 15)			
	$StandardSettingsRadioButton = $ActionFrame.RadioButton("Standard Settings", 5, 105, 230, 15)			
	$WriteLogFileRadioButton = $ActionFrame.RadioButton("Write Logfile", 5, 120, 230, 15)			

; Logging Frame
	$NewsFrame = $Form.Frame("News",5,195,485,150)
	
	$NewsTextBox = $NewsFrame.TextBox("",5,15,475,130)
	$NewsTextBox.BackColor = $Form.BackColor
	$NewsTextBox.MultiLine=1
	$NewsTextBox.Enable=0
	$NewsTextBox.Text=""
	$NewsTextBox.ScrollBars=2
	$NewsTextBox.Wordwrap=1

; Progress Bar
	$ProgressTextBox= $Form.TextBox
	$ProgressTextBox.Left=5
	$ProgressTextBox.Top=350
	$ProgressTextBox.Width=200
	$ProgressTextBox.Height=20
	$ProgressTextBox.Enable=0
	$ProgressTextBox.BackColor = $Form.BackColor	
	
	$ProgressBar = $Form.ProgressBar
	$ProgressBar.Left=210
	$ProgressBar.Top=350
	$ProgressBar.Width=220
	$ProgressBar.Height=20
	$ProgressBar.Style = 1

; Clock
	$CurrentTime=@Time
	$Clock = $Form.TextBox("",435,350,55,20)
	$Clock.Alignment=2
	$Clock.Enabled=0
	$Clock.BackColor=$Form.BackColor

$Form.Show
; DebugForm
If $DebugFlag=$True
	$DbgForm = CreateObject("Kixtart.Form")	
	$DbgForm.Caption = "DebugBox"
	$DbgForm.Width = 260
	$DbgForm.Height = 500
	$DbgForm.Left=1024 -260
	$DbgFOrm.Top=768 - 550
	
	$DbgTextBox=$DbgForm.TextBox()
	$DbgTextBox.Left=5
	$DbgTextBox.Top=5
	$DbgTextBox.Width=245
	$DbgTextBox.Height=465
	$DbgTextBox.MultiLine=1
	$DbgTextBox.Enable=0
	$DbgTextBox.Text=""
	$DbgTextBox.ScrollBars=2
	$DbgTextBox.Wordwrap=1	
	
	$CurrentX=0
	$CurrentY=0
	$DbgForm.Show
EndIf	

EndFunction

Top
#158001 - 2006-03-01 02:52 PM Re: kixlogon
gavinski Offline
Fresh Scripter

Registered: 2006-02-28
Posts: 23
and this is the code i have modified hope this makes sense to what i have done wrong again i do have my shares.ini in the right place i think plz help people

Code:
 $TRUE 		= 1
$FALSE 		= 0
If $Debug=1 
	$DebugFlag = 1
Else
	$DebugFlag = 0
EndIf
$DebugLevel = "Info"							; Info, Debug, Error

$AdminEmail = "itsupport@melville.co.uk"              	; Where to send all of the warning messages
$MailServer = "10.1.4.10"

;$Lserver = 
$LServer = "\\10.1.4.3"
$LoggingLocation="\\10.5.1.86\it\logs"
$FileLocation="\\10.1.4.3\netlogon"
;$FileLocation=@LDRIVE + "\new"
;$FileLocation="."

;************************************************************ RAS
If @RAS > 0
	MessageBox("You are connecting to the Network with a Modem," +@CRLF +"the Logon script will be Skipped","RAS Detected",48)
	Exit
EndIf
;************************************************************

;Break Off
Break On

;Default Settings
$os=""
$os_type="xp"
$os_service_pack="2"
$progressstep=3
$sleeptime=0
$numerrors=0
Global $time

Global $UpdateSoftware[0]
$Updates=0
$RunUpdates=$False

$tmpdir=ExpandEnvironmentVars("%tmp%")
$systemdrive=ExpandEnvironmentVars("%systemdrive%")
$windir=ExpandEnvironmentVars("%windir%")
$comspec=ExpandEnvironmentVars("%comspec%")

$CentralSoftwareIniFile=$FileLocation + "\Software.ini"
$LocalSoftwareIniFile=$windir + "\InstalledSoftware.ini"
$GeneralSourceLocation=ReadProfileString($CentralSoftwareIniFile, "Packages", "GeneralSourceLocation")

If Exist($systemdrive + "/program files/utils/kixtart")
	$KixDir=$systemdrive + "/program files/utils/kixtart"
Else
	$KixDir=@LDrive
	$KixDir="."
EndIf

Global $DebugMessages[0]
$NumMessages=0
$DebugMessages[$NumMessages]="-BEGIN--------------------------"

;Main Application

; Draw Form
	DrawForms()
; Get OperatingSystemInformation
	OperatingSystem()  
	$OSBox.Text=SubStr($os,1,22)
; Show News
	ShowNews()
; Syncing Time
	SyncTime()
	
; Connecting Drives
	ConnectDrives()

If FirstLogonToday()=$True
	; Check Software Versions
		CheckSoftwareVersions()
	; Update Software
		InstallSoftware()
		
	; Update Antivirus
		UpdateAntivirus()
Else
	$CheckSoftwareRadioButton.Value=0
	$CheckSoftwareRadioButton.Enabled =0	
	$InstallSoftwareRadioButton.Value=0
	$InstallSoftwareRadioButton.Enabled =0
	$AntiVirusRadioButton.Value=0
	$AntiVirusRadioButton.Enabled =0
EndIf

; Set machine to stanard Settings
	StandardSettings()

; Write Log File
	WriteLogFile()

; Fill Progressbar
While $ProgressBar.Value < 100
	Progress("Finalizing",20)
Loop

Exit 1

;***********************************************************************
;**
;**  Update the clock
;**
Function UpdateClock()
	If @Time<>$time
		$Clock.Text=@Time
		$time=@time
	EndIf
EndFunction

;***********************************************************************
;**
;**  Retrieve News File
;**
Function ShowNews()
	$NewsRadioButton.Value=1
	Progress( "Retrieving News")
	If Open(1, $FileLocation + "\News.txt") = 0
		$NewsLine = ReadLine(1)
		While @ERROR=0
			$NewsTextBox.Text=$NewsTextBox.Text + $NewsLine + Chr(13) + Chr(10)
			$NewsLine = ReadLine(1)
		Loop
		If Close (1) <> 0
			DbgMessage("Error","News File could not be closed", @SError)
		EndIf
	Else
		DbgMessage("Debug","No News")
	EndIf
	$NewsRadioButton.Value=0
	$NewsRadioButton.Enabled =0
EndFunction

;***********************************************************************
;**
;**  Syncronize the local system time with the logon server.  The PDC
;**  server BES_SRV syncronizes with NTP server 
;**
Function SyncTime()
	$TimeRadioButton.Value=1
	DBGMessage ("Info", "Syncing Time:" )
	Progress( "Syncing Time")
	If $NT_Mode="yes"
		SetTime "\\10.5.1.42"
		If @ERROR<>0
			DBGMessage ("Error", " - Error Finding Time Server : " + $Lserver )
		Else
			DbgMessage("Info"," - Synchronized time with : " + $Lserver)
		EndIf
	EndIf
	$TimeRadioButton.Value=0
	$TimeRadioButton.Enabled =0
EndFunction

;***********************************************************************
;**
;**  First time Logon.kix runs today
;**
Function FirstLogonToday()
	Progress( "Checking If FirstLogon today")
	DbgMessage("Info","Checking If FirstLogon today")
	$FirstLogonToday=$False
	If Exist($LoggingLocation + "\" + @Wksta + ".log")
		$FileDate=Left(GetFileTime ($LoggingLocation + "\" + @Wksta + ".log"),10)
		If $FileDate<>@Date
			$FirstLogonToday=$True		
		EndIf
	Else
		$FirstLogonToday=$True		
	EndIf
EndFunction

;***********************************************************************
;**
;**  Check Software Versions
;**
Function CheckSoftwareVersions()
	$CheckSoftwareRadioButton.Value=1
	Progress( "Checking Software Versions")
	DbgMessage("Info","Check Software Versions:")
	If Not Exist($LocalSoftwareIniFile)
		If Open(2, $LocalSoftwareIniFile,5) = 0
			If WriteLine(2, "# Created : " + @Date + @CRLF)<>0
				DbgMessage("Error","$LocalSoftwareIniFile could not be written")
			EndIf
			If Close(2)<>0
				DbgMessage("Error","$LocalSoftwareIniFile could not be closed")
			EndIf
		Else
			DbgMessage("Debug","$LocalSoftwareIniFile could not be written")
		EndIf
	EndIf	
	If Exist($CentralSoftwareIniFile)
		$Numpackages=1
		$CentralAppName = ReadProfileString($CentralSoftwareIniFile, "Packages", "" + $Numpackages + "_AppName")
		While $CentralAppName<>"" AND @Error=0
			$CentralAppVersion = ReadProfileString($CentralSoftwareIniFile, $CentralAppName, "Version")
			Progress( "Checking For : " + $CentralAppName + " v. " + $CentralAppVersion)
			DbgMessage("Info","Checking For : " + $CentralAppName + " v. " + $CentralAppVersion)
			; Check Version On Machine
			$LocalAppVersion = ReadProfileString($LocalSoftwareIniFile,$CentralAppName,"Version")
			If @Error = 0 
				If $LocalAppVersion <> $CentralAppVersion
					; Add to updating List
					Progress( $CentralAppName + " v. " + $LocalAppVersion + " needs updating")
					DbgMessage("Info",$CentralAppName + " v. " + $LocalAppVersion + " needs updating")
					$UpdateSoftware[$Updates]=$CentralAppName
					DbgMessage("Debug",$UpdateSoftware[$Updates])
					$RunUpdates=$True
					$Updates = $Updates + 1
					ReDim PRESERVE $UpdateSoftware[$Updates]	
				EndIf
			EndIf
			$Numpackages=$Numpackages+1
			$CentralAppName = ReadProfileString($CentralSoftwareIniFile, "Packages", "" + $Numpackages + "_AppName")
		Loop	
		If $Updates > 0
			$Updates = $Updates - 1
			ReDim PRESERVE $UpdateSoftware[$Updates]	
		EndIf	
	Else
		DbgMessage("Error",$CentralSoftwareIniFile + " Could not be opened")
	EndIf

	$CheckSoftwareRadioButton.Value=0
	$CheckSoftwareRadioButton.Enabled =0
EndFunction

;***********************************************************************
;**
;**  UpdateSoftware()
;**
Function InstallSoftware()
	$InstallSoftwareRadioButton.Value=1
	If $RunUpdates=$True
		For $Installing = 0 to $Updates 
			DbgMessage("Info","Updating : ------------ " + $UpdateSoftware[$Installing])
			$ActionFile = ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "ActionFile")
			$ActionType = ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "ActionType")
			Select
				Case $ActionType="KIX"
					$SourceLocation = $GeneralSourceLocation + ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "SourceLocation")
					$Destination = ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "Destination")
					$Script=$SourceLocation + "\" + $ActionFile 
					If Exist($Script)
						DbgMessage("Info","Call " + $Script)
						Call $Script
						If @ERROR=0
							DbgMessage("Info","Update : Success")
						Else
							DbgMessage("Error","Update : Error: " + @Error + " - " + @SERROR )
						EndIf
					Else
						DbgMessage("Error", $Script + " Could not be found")
					EndIf
					
				Case $ActionType="MSI"
					$SourceLocation = $GeneralSourceLocation + ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "SourceLocation")
					$Destination = $GeneralSourceLocation + ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "Destination")
					$Version = ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "Version")

					If MSIInstaller($SourceLocation,$Destination,$ActionFile)=0
						If WriteProfileString($LocalSoftwareIniFile, $UpdateSoftware[$Installing], "Version", $Version)<>0
							stpDbgMessage("Error","Ini File could not be updated")
						EndIf							
						DbgMessage("Info","Update : Success")
					Else
						DbgMessage("Error","Update : Error: " + @Error + " - " + @SERROR )
					EndIf	

				Case $ActionType="EXE"
					$SourceLocation = $GeneralSourceLocation + ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "SourceLocation")
; Not yet Implemented
					; Run Exe File
					;Shell "Exe"
					
				Case $ActionType="BAT"
					$SourceLocation = $GeneralSourceLocation + ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "SourceLocation")
; Not yet Implemented
					; Run Bat File
					;Shell "Bat"
					
				Case $ActionType="INF"
					$SourceLocation = $GeneralSourceLocation + ReadProfileString($CentralSoftwareIniFile, $UpdateSoftware[$Installing], "SourceLocation")
; Not yet Implemented
					; Run INF File
					;Shell "INF"
					
			EndSelect				
			DbgMessage("Info","Done     : ------------ " + $UpdateSoftware[$Installing])
		Next
	EndIf
	$InstallSoftwareRadioButton.Value=0
	$InstallSoftwareRadioButton.Enabled =0
EndFunction

;***********************************************************************
;**
;**  MSIInstaller()
;**
; MSIEXEC.EXE - the MSI executable, the program that performs the actual installation of the application. 
; /I - this switch informs the Windows Installer to install the specified application (as opposed to removing, reinstalling OR repairing the application) 
; /QB-  - this switch instructs the Windows Installer to perform the installation with a basic user interface requiring no dialog boxes to be displayed. 
; You might also Use /QN- to perform the installation with no user interface AT all. 
; /LWAMOE c:\temp\install.log - this switch instructs the Windows Installer to generate a log file AT the specified path AND file name (in this Case, "c:\temp\install.log")
; AND to include the following details: Non fatal errors, start up actions, out of memory OR fatal Exit information, out of disk space messages AND all error messages. There are several other options (see our FAQ For more details) to include all possible details in the log file Use "/L* c:\temp\install.log" 
; ALLUSERS=1 - including this will cause the shortcuts For the application to be placed in "all users" instead of the current user profile. 
; see http://appdeploy.com/faq/windowsinstaller/wi-faq-13.shtml for more options
;  /faums Reinstall

Function MSIInstaller($SourceLocation,$Destination,$ActionFile)
	;Check if MSI Installer is installed
		If Exist ($Destination + "\*.ini")
			$inifile=Dir($Destination + "\*.ini")
			CopyFiles($Destination, "*.ini", $tmpdir)
		EndIf	
		If NOT Exist($windir + "\Installer")
			If $NT_Mode="yes"
				Shell $GeneralSourceLocation + "\MSIInstaller\InstMsiW.exe /q"
				If @ERROR=0
					DbgMessage("Info","Update : Success")
				Else
					DbgMessage("Error","Update : Error: " + @Error + " - " + @SERROR )
				EndIf						
			Else
				Shell $GeneralSourceLocation + "\MSIInstaller\InstMsiA.exe /q"
				If @ERROR=0
					DbgMessage("Info","Update : Success")
				Else
					DbgMessage("Error","Update : Error: " + @Error + " - " + @SERROR )
				EndIf						
			EndIf
		EndIf
	
	;Run MSI File
		If Exist($windir + "\system32\msiexec.exe")
			$msiexec=$windir + "\system32\msiexec.exe"
		Else 
			$msiexec=$windir + "\system\msiexec.exe"
		EndIf
		$msiinstall=" /i " + $SourceLocation + "\" + $ActionFile
		$msioptions=" /QN"
		$msilogging=" /LWAMOE " + $windir + "\Install_" + $UpdateSoftware[$Installing] + ".log" 
		
		; DbgMessage("Info","SHELL " + $comspec + " /c " + $msiexec + $msiinstall + $msioptions + $msilogging)
		
		Shell $msiexec + $msiinstall + $msioptions + $msilogging
		If @Error<>0
			$MSIInstaller=@Error + " - Additional Info : " + @Serror
		Else
			$MSIInstaller=@Error
		EndIf
		If $inifile<>""
			CopyFiles($Destination, $inifile, $Destination)
		EndIf	
EndFunction

;***********************************************************************
;**
;**  UpdateAntivirus
;**
Function UpdateAntivirus()
	$AntiVirusRadioButton.Value=1
; Not yet Implemented
	$AntiVirusRadioButton.Value=0
	$AntiVirusRadioButton.Enabled =0
EndFunction

;***********************************************************************
;**
;**  Connect Shares to Drives
;**
Function ConnectDrives()
	$SharesRadioButton.Value=1
	Progress( "Connecting Drives")
	DbgMessage("Info","Connecting Drives:")
;	ConnectHomeDrive()
	ConnectDefaultDrives()
	COnnectGroupDrives()
	$SharesRadioButton.Value=0
	$SharesRadioButton.Enabled =0	
EndFunction

;***********************************************************************
;**
;**  Connect Home Drive
;**
Function ConnectHomeDrive()
	;******************************	
	; Home DriveShares
	;******************************	
	Progress( "Connecting H:")
	DbgMessage("Info","  - H: = " + @HOMESHR)
	
	Use; H: /delete
	If ($NT_mode = "no") 
		DelKey("HKEY_CURRENT_USER\Network\Persistent\H")
	EndIf
	Use H: @HOMESHR
		If @ERROR = 0
			DbgMessage ("Info","Home Share Connected")
		Else
			DBGMessage ("HOMESHR","No Home Share available")
			Return
		EndIf
EndFunction

;***********************************************************************
;**
;**  Connect DefaultShares to Drives
;**
Function ConnectDefaultDrives()
	;******************************	
	; Default DriveShares
	;******************************
	If Exist($FileLocation + "\shares.ini")
		For $x = 1 to 10 
			$DriveDefinition = ReadProfileString($FileLocation + "\shares.ini", "SemecsAll", "drive" + $x)
			If @ERROR = 0
				If $DriveDefinition<>""
			  		ConnectShare($DriveDefinition)
				EndIf
			Else
				Return
			EndIf
		Next
	EndIf
EndFunction
;***********************************************************************
;**
;**  Connect GroupShares to Drives
;**
Function COnnectGroupDrives()
	;******************************	
	; GroupShares
	;******************************
	If Exist($FileLocation + "\shares.ini")
		If $group<>""
			For $x = 1 to 10 
				$DriveDefinition = ReadProfileString($FileLocation + "\shares.ini", "$SemecsAll", "drive" + $x)
				If @ERROR = 0
					If $DriveDefinition<>""
						ConnectShare($DriveDefinition)
					EndIf
				Else
					Return
				EndIf
			Next 
		EndIf
	EndIf
EndFunction

;************************************************************************
;**
;** Set machine to default settings
;**
Function StandardSettings()
	$StandardSettingsRadioButton.Value=1
	Progress( "Setting Standard Settings")
	DbgMessage("Info","Setting standard settings:")	
	DisablePWDCaching()
	; ScreenSaver
	; Auto Logoff MfgPro Gui Client
	
	$StandardSettingsRadioButton.Value=0
	$StandardSettingsRadioButton.Enabled=0
EndFunction
;************************************************************************
;**
;** Disable Password Caching on Win9x machines
;** Password only has to be set for Network not for local machine anymore
;**
Function DisablePWDCaching()
DbgMessage("Info","Disable Password Caching Win9x")	

If (($OS = "Win95") OR ($OS = "Win98"))
	Progress( "Disable Password Caching")
	ExistKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\NETWORK")
	If @ERROR = 0
		ExistKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\NETWORK")
		If @ERROR = 0
		   WriteValue("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\NETWORK",  "DisablePwdCaching","1","REG_SZ")
		Else
		EndIf
	Else
		ExistKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES")
		If @ERROR = 0
			ExistKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\NETWORK")
			If @ERROR = 0
				ExistKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\NETWORK")
				If @ERROR = 0
				   WriteValue("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\NETWORK",  "DisablePwdCaching","1","REG_SZ")
				Else
				EndIf
			Else
			   AddKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES\NETWORK")
			EndIf
		Else
		   AddKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\POLICIES")
		EndIf
	EndIf
EndFunction ()

;************************************************************************
;**
;**  Used to send email to the NT Administrator defined in $AdminEmail.
;**  Attaches a copy of the local $DebugFile to the message so we can see
;**  if there's a history of problems on the machine.
;**
;**  Interprets the user's email address from their logon name.  Both
;**  logon names as well as email addresses are based on the employee's
;**  insurance (employee) number.
;**
Function SendAdminMail()
	If Len(DebugMessages)>1 
		Progress( "Sending Debug Report")
		$UserEmail = @USERID + "@@" + $MailServer
		; REM Run "POSTIE.exe -host:$MailServer -to:$AdminEmail -from:$UserEmail -s:Logon_Script_Error_on_@WKSTA -msg:" + Chr(34) + "$DebugMessages"
	EndIf
EndFunction

;************************************************************
;** Function: ConnectShare 
;** Usage: ConnectShare ("H:, \\fileserver-2\home, Logistics Procurement")
;**
Function ConnectShare( $DriveDefinition)
	$DriveLetter=SubStr($DriveDefinition,1,InStr($DriveDefinition,",")-1)
	$DriveDefinition=Ltrim(Rtrim(SubStr($DriveDefinition,InStr($DriveDefinition,",")+1)))
	$Share=Ltrim(Rtrim(SubStr($DriveDefinition,1,InStr($DriveDefinition,",")-1)))
	$ShareDesc=Ltrim(Rtrim(SubStr($DriveDefinition,InStr($DriveDefinition,",")+1)))
	DbgMessage("Info","  - Disconnecting " + $DriveLetter + " on " + $Share)
;	Use $DriveLetter /delete
;	If @ERROR <> 0
;		DBGMessage ( "DisMountError", $DriveLetter)
;	EndIf
	If ($NT_mode = "no") 
		DelKey("HKEY_CURRENT_USER\Network\Persistent\" + $DriveLetter)
	EndIf
	Progress( "Connecting " + $DriveLetter + " to " + $Share)
	DbgMessage("Info","  - Connecting " + $DriveLetter + " on " + $Share)
	Use $DriveLetter $Share
	If @ERROR <> 0
		DBGMessage ( "MountError", $DriveLetter + " on " + $Share )
	EndIf
EndFunction 
EndFunction 
;***********************************************************************
;**
;**  Update Progress Bar
;**
Function Progress($ProgressText,optional $Step)
	If $Step=""
		$Step=$progressstep
	EndIf
	$ProgressTextBox.Text=$ProgressText
	If $ProgressBar.Value + $Step < 101
		$ProgressBar.Value=$ProgressBar.Value+$Step
		If $DebugFlag = $TRUE		 
			Sleep $sleeptime
		EndIf
	Else
		$ProgressBar.Value=100
	EndIf
	$=Execute($Form.DoEvents())
EndFunction

;************************************************************
;** Function: DBGMessage
;** Usage: DBGMessage( "Debug", "This is a debug Message" ) 
;** DebugType : Info, Debug, Error
;**
Function DBGMessage($DebugType, $DebugMessage, Optional $SError)
	Select
		Case $DebugLevel="Error"
			If $DebugType="Info" OR $DebugType="Debug"
				Return
			EndIf
		Case $DebugLevel="Info"
			If $DebugType="Debug"
				Return
			EndIf
	EndSelect
	
	If $DebugType="Error"
		$numerrors=$numerrors+1
	EndIf
	$NumMessages=$NumMessages + 1
	ReDim Preserve $DebugMessages[$NumMessages]
	
	$DebugTime="" + @Date + " - " + @Time +" >"
	$DebugText=$DebugType + " : " + $DebugMessage
	If $SError<>""
		 $DebugText=$DebugText + " | Additional Info: @SERROR"
	EndIf
	
	$DebugMessages[$NumMessages]=$DebugTime + $DebugText
	If $DebugFlag = $TRUE		 
		$DbgTextBox.Text=$DbgTextBox.Text + $DebugText + @CRLF
		Sleep $sleeptime
	EndIf		
EndFunction

;************************************************************
;** Function: WriteLogfile
;** Usage: WriteLogFIle() 
;**
Function WriteLogFile()
	; Display DebugMessage
	$WriteLogFileRadioButton.Value=1
	Progress( "Writing Logfile")
	$LogFile=$LoggingLocation + "\" + @Wksta + ".log"
	If Exist($LogFile)
		If GetFileSize($LogFile) > 1024 * 1024
			Del($LogFile)
		EndIf
	EndIf
	
	$NumMessages=$NumMessages + 1
	ReDim PRESERVE $DebugMessages[$NumMessages]
	$DebugMessages[$NumMessages]="-END----------------------------"
	
	If Open(1, $LogFile,5) = 0
		For $x=0 to $NumMessages
			If WriteLine(1, $DebugMessages[$x] + @CRLF)<>0
				DbgMessage("Error","DebugLine could not be written")
			EndIf
		Next
		If Close(1)<>0
			DbgMessage("Error","Log File could not be closed")
		EndIf
	Else
		DbgMessage("Debug","Log file could not be written")
	EndIf
	$WriteLogFileRadioButton.Value=0
	$WriteLogFileRadioButton.Enabled =0
EndFunction

;***********************************************************************
;**
;**  calculates OS version with service pack
;**
Function OperatingSystem() 
	DbgMessage("Info","Checking Operating System")
	Progress("Checking Operating System")
	
	If (@inwin = 1)
		$NT_mode="yes"
	Else
		$NT_mode="no"
	EndIf
	
	$os=""
	$os_dos=@dos
	$os_product=ReadValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptions","ProductType")
	$os_productSuite=ReadValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptions","ProductSuite")
	$os_service_pack=""
	$os_subversion=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion","SubVersionNumber")
	Select
		Case ($NT_mode = "yes") AND ($os_product <> "WinNT") AND ($os_dos = "5.1") AND (InStr($os_productSuite,"Terminal Server") <> 0)
			$os="XP_Terminal_Server"
		Case ($NT_mode = "yes") AND ($os_product <> "WinNT") AND ($os_dos = "5.1") ; - Windows XP Server
			$os="XP_Server"
		Case ($NT_mode = "yes") AND ($os_product = "WinNT") AND ($os_dos = "5.1")  ; - Windows XP Professional
			$os="XP_Professional"
		Case ($NT_mode = "yes") AND ($os_product <> "WinNT") AND ($os_dos = "5.0") AND (InStr($os_productSuite,"Terminal Server") <> 0)
			$os="W2K_Terminal_Server"
		Case ($NT_mode = "yes") AND ($os_product <> "WinNT") AND ($os_dos = "5.0") ; - Windows 2000 -
			$os="W2K_Server"
		Case ($NT_mode = "yes") AND ($os_product = "WinNT") AND ($os_dos = "5.0")
			$os="W2K_Professional"
		Case ($NT_mode = "yes") AND ($os_product = "LANMANNT")                     ; - Windows NT -
			$os="NT4_Domain_Controller"
		Case ($NT_mode = "yes") AND ($os_product = "ServerNT") AND (InStr($os_productSuite,"Terminal Server") <> 0)
			$os="NT4_Terminal_Server"
		Case ($NT_mode = "yes") AND ($os_product = "ServerNT")
			$os="NT4_Member_Server"
		Case ($NT_mode = "yes") AND ($os_product = "WinNT")
			$os="NT4"
		Case ($NT_mode <> "yes") AND (@dos = "4.90")
			$os="ME"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.10") AND (InStr(Lcase($os_subversion),"c") <> 0) ; - Windows 98 -
			$os="W98c"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.10") AND (InStr(Lcase($os_subversion),"b") <> 0)
			$os="W98b"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.10") AND (InStr(Lcase($os_subversion),"a") <> 0)
			$os="W98a"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.10")
			$os="W98"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.0") AND (InStr(Lcase($os_subversion),"c") <> 0) ; - Windows 95 -
			$os="W95c"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.0") AND (InStr(Lcase($os_subversion),"b") <> 0)
			$os="W95b"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.0") AND (InStr(Lcase($os_subversion),"a") <> 0)
			$os="W95a"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.0")
			$os="W95"
		Case 1
			$os="???" ; - undetermined -
	EndSelect
	;
	$os_service_pack=""
	Select
		Case ($NT_mode = "yes") AND ($os_dos = "5.1") ; - Windows XP
			$os_service_pack=ReadValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion","BuildLab")
			If (Len($os_service_pack) <> 0)
				$os=SubStr($os,1,3)+"_"+Ltrim(Rtrim($os_service_pack))
				$os_service_pack=Ltrim(Rtrim($os_service_pack))
			EndIf
		Case ($NT_mode = "yes") AND ($os_dos <> "5.1") ; Windows NT4 + W2K
			$os_service_pack=ReadValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion","CSDVersion")
			If (Len($os_service_pack) <> 0)
				$os=SubStr($os,1,3)+"_"+SubStr($os_service_pack,Len($os_service_pack),1)
				$os_service_pack=Ltrim(Rtrim($os_service_pack))
			EndIf
	Case 1
	; Windows 95, 98 + ME
	EndSelect
	;
	$os_type=""
	$os_dos=@dos
	Select
		Case ($NT_mode = "yes") AND ($os_dos = "5.1")   ; - Windows XP -
			$os_type="XP"
		Case ($NT_mode = "yes") AND ($os_dos = "5.0")   ; - Windows 2000 -
			$os_type="W2K"
		Case ($NT_mode = "yes")                         ; - Windows NT -
			$os_type="NT4"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.90") ; - Windows ME -
			$os_type="ME"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.10") ; - Windows 98 -
			$os_type="W98"
		Case ($NT_mode <> "yes") AND ($os_dos = "4.0")  ; - Windows 95 -
			$os_type="W95"
		Case 1
			$os_type="???" ; - undetermined -
	EndSelect
	$os_type=Ltrim(Rtrim(SubStr($os_type+"   ",1,3)))
EndFunction

;***********************************************************************
;**
;**  DrawForms()
;**
Function DrawForms()

; Form
	$Form = CreateObject("Kixtart.Form")
	$Form.Caption = "Melville Exhibition Services Logon Script"
	$Form.Width = 500
	$Form.Height = 400
	If $DebugFlag=$True
		$Form.Left=(1024 / 2) - (500 / 2)
		$Form.Top=(768  / 2) - (400 /2 )	
	Else
		$Form.Center
	EndIf
	; ClockTimer
		$Timer = $Form.Timer(600,0,0,15,15)
		$Timer.OnTimer = "UpdateClock()"

; Logo
	$Logo=$Form.PictureBox
	$Logo.Left=5
	$Logo.Top=5
	$Logo.Width=483
	$Logo.Height=50
	$Logo.Picture="logo.bmp"

; Info Frame 
	$InfoFrame = $Form.Frame("Information",5,55,240,140)
	
	$OSLbl = $InfoFrame.Label("Os", 5, 15, 115, 15)
	$OSBox = $InfoFrame.TextBox("", 120, 15, 115, 15)
	$OSBox.BackColor=$Form.BackColor
	$OSBox.Enabled=0
	$UserIdLbl = $InfoFrame.Label("UserId", 5, 30, 115, 15)
	$UserIdBox = $InfoFrame.TextBox(@USERID	, 120, 30, 115, 15)
	$UserIdBox.BackColor=$Form.BackColor
	$UserIdBox.Enabled=0
	$FullNameLbl = $InfoFrame.Label("Full Name", 5, 45, 115, 15)
	$FullNameBox = $InfoFrame.TextBox(@FULLNAME, 120, 45, 115, 15)
	$FullNameBox.BackColor=$Form.BackColor
	$FullNameBox.Enabled=0
	$PriviledgeLbl = $InfoFrame.Label("Priviledge", 5, 60, 115, 15)
	$PriviledgeBox = $InfoFrame.TextBox(@WKSTA, 120, 60, 115, 15)
	$PriviledgeBox.BackColor=$Form.BackColor
	$PriviledgeBox.Enabled=0
	$WorkStnLbl = $InfoFrame.Label("Workstation", 5, 75, 115, 15)
	$WorkStnBox = $InfoFrame.TextBox(@WKSTA, 120, 75, 115, 15)
	$WorkStnBox.BackColor=$Form.BackColor
	$WorkStnBox.Enabled=0
	$DomainLbl = $InfoFrame.Label("Domain", 5, 90, 115, 15)
	$DomainBox = $InfoFrame.TextBox(@DOMAIN, 120, 90, 115, 15)
	$DomainBox.BackColor=$Form.BackColor
	$DomainBox.Enabled=0
	$ServerLbl = $InfoFrame.Label("Server", 5, 105, 115, 15)
	$ServerBox = $InfoFrame.TextBox($LSERVER, 120, 105, 115, 15)
	$ServerBox.BackColor=$Form.BackColor
	$ServerBox.Enabled=0
	$MemberLbl = $InfoFrame.Label("Group Member", 5, 120, 115, 15)
	$MemberBox = $InfoFrame.TextBox(@group, 120, 120, 115, 15)
	$MemberBox.BackColor=$Form.BackColor
	$MemberBox.Enabled=0

; Action Frame
	$ActionFrame = $Form.Frame("Actions",250,55,240,140)
	
	$NewsRadioButton = $ActionFrame.RadioButton("Get News", 5, 15, 230, 15)
	$TimeRadioButton = $ActionFrame.RadioButton("Set Time", 5, 30, 230, 15)
	$SharesRadioButton = $ActionFrame.RadioButton("Connect Drives", 5, 45, 230, 15)
	$CheckSoftwareRadioButton = $ActionFrame.RadioButton("Check Software Versions", 5, 60, 230, 15)
	$InstallSoftwareRadioButton = $ActionFrame.RadioButton("Install Software", 25, 75, 230, 15)
	$AntiVirusRadioButton = $ActionFrame.RadioButton("Update Antivirus", 5, 90, 230, 15)			
	$StandardSettingsRadioButton = $ActionFrame.RadioButton("Standard Settings", 5, 105, 230, 15)			
	$WriteLogFileRadioButton = $ActionFrame.RadioButton("Write Logfile", 5, 120, 230, 15)			

; Logging Frame
	$NewsFrame = $Form.Frame("News",5,195,485,150)
	
	$NewsTextBox = $NewsFrame.TextBox("",5,15,475,130)
	$NewsTextBox.BackColor = $Form.BackColor
	$NewsTextBox.MultiLine=1
	$NewsTextBox.Enable=0
	$NewsTextBox.Text=""
	$NewsTextBox.ScrollBars=2
	$NewsTextBox.Wordwrap=1

; Progress Bar
	$ProgressTextBox= $Form.TextBox
	$ProgressTextBox.Left=5
	$ProgressTextBox.Top=350
	$ProgressTextBox.Width=200
	$ProgressTextBox.Height=20
	$ProgressTextBox.Enable=0
	$ProgressTextBox.BackColor = $Form.BackColor	
	
	$ProgressBar = $Form.ProgressBar
	$ProgressBar.Left=210
	$ProgressBar.Top=350
	$ProgressBar.Width=220
	$ProgressBar.Height=20
	$ProgressBar.Style = 1

; Clock
	$CurrentTime=@Time
	$Clock = $Form.TextBox("",435,350,55,20)
	$Clock.Alignment=2
	$Clock.Enabled=0
	$Clock.BackColor=$Form.BackColor

$Form.Show
; DebugForm
If $DebugFlag=$True
	$DbgForm = CreateObject("Kixtart.Form")	
	$DbgForm.Caption = "DebugBox"
	$DbgForm.Width = 260
	$DbgForm.Height = 500
	$DbgForm.Left=1024 -260
	$DbgFOrm.Top=768 - 550
	
	$DbgTextBox=$DbgForm.TextBox()
	$DbgTextBox.Left=5
	$DbgTextBox.Top=5
	$DbgTextBox.Width=245
	$DbgTextBox.Height=465
	$DbgTextBox.MultiLine=1
	$DbgTextBox.Enable=0
	$DbgTextBox.Text=""
	$DbgTextBox.ScrollBars=2
	$DbgTextBox.Wordwrap=1	
	
	$CurrentX=0
	$CurrentY=0
	$DbgForm.Show
EndIf	

EndFunction

Top
Page 1 of 1 1


Moderator:  Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 1376 anonymous users online.
details
Newest Members
batdk82, StuTheCoder, M_Moore, BeeEm, min_seow
17885 Registered Users
My Cookies · Mark all read Powered by UBB.threads™ Contact Us · KiXtart.org website · Top

Generated in 0.074 seconds in which 0.029 seconds were spent on a total of 12 queries. Zlib compression enabled.
Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org