Function CallScript($ScriptFile)

	dim $ScriptFile

	WriteLog("Calling " + $ScriptFile)

	If Exist($ScriptFile)

		WriteLog("Executing "  + $ScriptFile)

		Call $ScriptFile

		WriteLog ("Returned from " + $ScriptFile)

	Else

		WriteLog ("File Not Found: " + $ScriptFile )

	Endif

Endfunction  



Function WriteLog($text)

    dim $RC, $text, $LogFile, $Filehandle

    $Filehandle = 1

    $LogFile = "%temp%\logon.log"

    $RC=Writeline ($Filehandle, "@Date @Time - $Text" + Chr(13) + Chr(10))

    if $RC<0

        $RC=Close ($Filehandle)

        $RC=Open ($Filehandle, $LogFile, 5)

        Select

            Case $RC=-1

                $RC=MessageBox ("Invalid file name ($LogFile) specified for log file.","Logon Script Error",48)

            Case $RC=0

                WriteLog ($Text)

            Case $RC=>0

                $RC=MessageBox ("Error($RC) while attempting to open log file ($LogFile).","Logon Script Error",48)

        Endselect

    Endif

EndFunction