请问如何通过VB获得OFFICE和IE的版本号？（分不够再加！解决问题就行）

请给源程序！谢谢同时我还想得到其他一些系统信息
比如；windows的版本啊，光区的型号啊，硬盘的大小等等~~~
越多越好

解决方案 »

  1.   

    版本号查注册表，不过一般都是双字节的值其他的可以用wmi来查，有很多例子的
      

  2.   

    我这里有系统相关的程序40kb,winrar压缩的，谁要贴出邮箱
      

  3.   

    [email protected]
    我也有例子，要的发消息给我，交换
      

  4.   

    [email protected]
    谢谢jennyvenus(怎么给我锁定的？) 
    另：我现在急切的想知道如何读出CPU的速度
    能知道是486，586，或者P3，P4就行
      

  5.   

    在注册表中查：
    IE:
    HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Internet Explorer\\VersionOffice:
    HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Office\\Word
    Office的不太准，你用Regedit打开注册表看一下，具体键名是什么；原来用InstallShield做安装的时候用脚本查过系统的相关信息。
      

  6.   

    IE到是好查
    可OFFICE确实困难点
    有无代码？
      

  7.   

    jennyvenus(怎么给我锁定的？) ( 两星(中级)) [email protected]
      

  8.   

    jennyvenus(怎么给我锁定的？)我还没有收到你的EMAIL？
    请问你发了吗？
    谢谢
    [email protected]
      

  9.   

    Office中各个组件可以分别安装,如WORD装97版,EXCEL装2000版,不过一般不会这么装,
    可以建立一个WORD实例,它有Version属性
    Set wd=new Word.Application
    msgbox wd.Version
      

  10.   

    操作版本号的方法：
    Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
    1、利用GetVersionEx(OSInfo)得到
    2、判断
    Select Case OSInfo.dwPlatformId
            Case 0
                GetWindowsVersion = "Windows 32s "
            Case 1
                GetWindowsVersion = "Windows 95/98"
            Case 2
                GetWindowsVersion = "Windows NT"
    End Select
      

  11.   

    TO hhjjhjhj(大头) ( ) 
    你的方法对WORD 还有 EXCEL都管用
    但为什么对ACCESS不管用那？
      

  12.   

    TO:sprite14(鬼怪) 
    怎么不管用呢?
    '引用ACCESS
    Sub hh()
    Dim ss As Access.Application
    Set ss = New Access.Application
    ss.Visible = True
    MsgBox ss.Version
    End Sub
      

  13.   

    这句ss.Version
    提示未找到方法或数据成员