|
发表于 2023-12-30 18:45:16
|
显示全部楼层
广东省佛山市
.版本 2
.子程序 系统_取系统版本_对象, 文本型, 公开, 支持XP到WIN11
.局部变量 objWbemLocator, 对象
.局部变量 objWMIService, 对象
.局部变量 colClasses, 对象
.局部变量 Properties, 对象
.局部变量 value, 文本型
.局部变量 value1, 文本型, , "0"
.局部变量 局部_版本, 文本型
.如果真 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, )) ' 创建WMI对象
objWMIService = objWbemLocator.对象型方法 (“ConnectServer”, “.”, “root\CIMV2”, , , , , , ) ' 连接服务器
.如果真 (objWMIService.是否为空 () = 假)
colClasses = objWMIService.对象型方法 (“ExecQuery”, “SELECT * FROM Win32_Thread”)
.如果真 (colClasses.是否为空 () = 假)
Properties = colClasses.对象型方法 (“ItemIndex”, 1).读对象型属性 (“Properties_”, )
value = Properties.对象型方法 (“Item”, “OSName”).读文本属性 (“value”, )
value1 = 分割文本 (value, “|”, )
.如果真 (取数组成员数 (value1) ≥ 2)
局部_版本 = value1 [1]
.如果真结束
colClasses.清除 ()
.如果真结束
objWMIService.清除 ()
.如果真结束
objWbemLocator.清除 ()
.如果真结束
返回 (局部_版本)
这个可以获取系统版本.XP到WIN11
|
|