break on



$logfile = readprofilestring(@scriptdir+"\config.ini","Usage","Logfile")

$ = open(1,$logfile,5)



$autoit = CreateObject("AutoItX.Control")

if @error

	shell '%comspec% /c regsvr32 "@scriptdir\AutoItX.dll" -s'

	$autoit = CreateObject("AutoItX.Control")

	if @error

		beep beep beep

		Quit

	endif

endif



while not @error

	$currentwindow = $autoit.WinGetActiveTitle

	if $currentwindow <> $lastWindow

		$lastwindow = $currentwindow

		$ = writeline(1,@userid + "	" + @date + "	" + @time+"	"+$currentWindow+@crlf)

	endif

	sleep (1)

loop

$logfile = @scriptdir+"\dump.txt"

 

$ltext= "WARNING! By accessing this system you are consenting to system monitoring"	+@crlf+

	"and agreeing to follow the Agency's policies regarding acceptable use,"		+@crlf+

	"protection of information resources, and confidential health care information."	+@crlf+

	"Improper or illegal use of this computer may subject you to an investigation"	+@crlf+

	"and could result in either disciplinary action in accordance with the Agency's"	+@crlf+

	"standards, or possible civil or criminal penalties."					+@crlf

$=WriteValue("$HKLMSMWNTCV\Winlogon","LegalNoticeCaption","Unauthorized Use Prohibited",REG_SZ)

$=WriteValue("$HKLMSMWNTCV\Winlogon","LegalNoticeText",$ltext,REG_SZ) 

Quote:

---

If the company wants to monitor their users it should be ok. Since the company owns the computers and all the data on the copmuters.

---