vba通过读取注册表获得浏览器版本

    Dim OpSys
    Dim WSH As Object
    Dim RegStr As String
   
    Set WSH = CreateObject("Wscript.Shell")
    OpSys = Split(Application.OperatingSystem, " ")
   
    If LCase(OpSys(0)) = "windows" Then
        Select Case Int(OpSys(UBound(OpSys)))
            Case 5 To 9: RegStr = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version Vector\IE"
            Case Is < 5: RegStr = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version\IE"
        End Select
        ieVer = CInt(WSH.RegRead(RegStr))
    End If