VBScript: определение версии браузера Internet Explorer

Код примера на Visual Basic Script:

Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
ieversion = objFSO.GetFileVersion(WshShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\Internet Explorer\IExplore.exe")
MsgBox "Current IE version is " & ieversion
MsgBox "Current IE major version is " & Split(ieversion,".")(0)

Первый MessageBox выводит полное(вплоть до сборки) значение версии, находящееся в переменной "ieversion".
Второй MessageBox выводит мажорную версию браузера. Достигается это путем разбора строки "ieversion" с помощью функции "Split". А сам номер мажорной версии оказывается в нулевом элементе полученного массива: " Split(ieversion,".")(0) "