Would come to something like this.

Code:

$key = ReadValue("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinWord.exe", "Path")
$fullversion = GetFileVersion ($key + "\winword.exe", "ProductVersion")
$cleanversion = SubStr ($fullversion, 1, 2)
?$cleanversion
Sleep 3


Version 11 is Office 2003
Version 10 is Office XP aka Office 2002
Version 9 is Office 2000
And so on......
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.