Get IE version

[Jyobtech]

Hi Guin Anirban,
Please find the code ,Its working fine

Code:

Dim fso, ver, version
Set fso = CreateObject("Scripting.FileSystemObject")
ver = fso.GetFileVersion("C:\Program Files\Internet Explorer\iexplore.exe")
msgbox ver
If Len(ver) Then
    Reporter.ReportEvent micPass,"Step 01:", "Internet Explorer version determined sucessfully"
Else
    Reporter.ReportEvent micFail, "Step 01:", "Internet Explorer version could not be determined sucessfully"
End If
version=cint(Left(ver, 1))

'This line is required only if you want the first digit of the version number