获取系统版本号

来源:互联网 发布:梦幻西游数据号 编辑:程序博客网 时间:2024/06/06 00:49


Dim str

Set object = GetObject("winmgmts:")
Set os = object.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each obj In os
 str = "System Version:" & obj.Version & Chr(13) 
next 
MsgBox str
原创粉丝点击