Thursday, September 09, 2010
   
Text Size

Search

hits.

purpleender

Rep

Gamerscore33992

ZoneUnderground

Return Internet Explorer Version

To display the version of Internet Explorer Installed:

Dim IEVer

IEVer=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Internet Explorer\Version")

select case UCase(left(IEVer, 1))
        case "5"
                MSGBOX ("Internet Explorer v5 Installed")
        case "6"
                MSGBOX ("Internet Explorer v6 Installed")

        case "7"
                MSGBOX ("Internet Explorer v7 Installed")

        case "8"
                MSGBOX ("Internet Explorer v8 Installed")

        case else
                MSGBOX ("Unknown Internet Explorer Version Installed.
end select

Please Note: Append to Template.vbs to run this script.