;Break on gives the ability to end the script and not get logged off.
Break on
;
;Set the required version.
$Version = "10.19"
;
;Open the logfile, if it does not exist create it.
$rc = Open (1, "c:\log.txt", 5)
;
;This is the key for MS Office 2003 Pro.
$key = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
$app = "{90110409-6000-11D3-8CFE-0150048383C9}"
;
;Check if the app is installed.
$keyexists = KeyExist($key + $app)
If $keyexists <> "0"
	;Find the displayname and the display version.
	$dispname = ReadValue($key + $app, "Displayname")
	$dispversion = ReadValue($key + $app, "Displayversion")
	;Write name and version to the logfile.
	WriteLine(1, "Application: " + $dispname + " version: " + $dispversion + " is installed." + @CRLF)
	$version is SubStr($version, 1, 5)
	If $version <> "10.19"
		WriteLine(1, "Application: " + $dispname + " update required." + @CRLF)
		;Start upadte
		Run "pathtoupdatefile\update.exe"
	Else
		WriteLine(1, "Application: " + $dispname + " update NOT required." + @CRLF)
	EndIf
Else
	WriteLine(1, "Application: " + $app + " is NOT installed." + @CRLF)
EndIf
;
;Close the logfile.
$rc = Close(1)