‘On Error Resume Next
Option Explicit
Dim ReturnString, OfficePath, strValue, FSO
set FSO=CreateObject(“Scripting.FileSystemObject”)
OfficePath=”C:\Program Files (x86)\Microsoft Office\Office14\”
ReturnString=FSO.getfileversion(OfficePath & “winword.exe”)
strValue = Left(ReturnString,2)
msgbox strValue
‘Session.Property(“OFFVER”) = strValue
set fso=nothing