獲取當前windows系統 及 版本
Dim strComputer : strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem In colOperatingSystems
MsgBox objOperatingSystem.Caption
MsgBox objOperatingSystem.Version
Next
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem In colOperatingSystems
MsgBox objOperatingSystem.Caption
MsgBox objOperatingSystem.Version
Next
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
fieldset相關知識
iteye_10654
2020-07-03 02:04:00
Vbscript 將數組轉換爲字符串
'Convert array to string 'Writer Markin.Q.Li 'Create Date 2013-4-28 'arrayName arrayName 'separator
markinlqx
2020-06-30 14:33:31
VBScript Empty, Null, Nothing
markinlqx
2020-06-30 14:33:31
VBScript Sub and Function Demo
markinlqx
2020-06-30 14:33:31
Vbscript在DataGridView中折半查找某一行
markinlqx
2020-06-30 14:33:31
VBS深入CreateObject函數
moonhillcity
2020-06-28 18:56:45
QTP中類的使用
Call Test Class Tester Dim mvarTesterName,mvarAge,mvarGender Sub Class_Initialize '
十亿萝莉的夢
2020-06-26 13:24:33
一次性登陸密碼的實現
聲明:1.歡迎大家批評指正 2.測試環境:windows 7 32位 + 聯網 + 163郵箱 + 騰訊管家 + 網易郵箱客戶端 測試通過 第一步:在控制面板開啓win7 telnet客戶端,見圖1:
humors221
2020-07-04 06:02:44
windows中運行 sh文件
心飞路漫
2020-07-01 18:14:15
vbs- 16進制寫成文件
辉子
2020-06-27 01:30:56
vbs-二進制轉16進制
辉子
2020-06-27 01:30:56
vbs-文件變讀成16進制
辉子
2020-06-27 01:30:56
vbs-16進制轉2進制
辉子
2020-06-27 01:30:56