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
本文介绍了一段使用VBA代码查询并显示Windows操作系统的版本信息的方法。通过创建一个对象来执行查询，获取到Win32_OperatingSystem类的所有实例，并遍历这些实例以收集系统版本的数据。
Set os = object.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each obj In os
str = "System Version:" & obj.Version & Chr(13)
next
MsgBox str
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
