WMI Script,將產生結果寫入文字檔,分享WMI語法如下:
On Error Resume Next
strComputer =InputBox("請輸入本機電腦.或電腦名稱或IP位址:","訊息")
'開啟文字檔案c:\Computer.txt
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set OutputFile=objFSO.OpenTextFile("c:\Computer.txt",8,true)
OutputFile.WriteLine date()
'查詢電腦名稱與作業系統版本
Set objWMIService = GetObject("winmgmts:\\" & CSTR(strComputer) & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each objItem in colItems
OutputFile.WriteLine "電腦名稱: " & objItem.CSName
OutputFile.WriteLine "作業系統與版本: " & objItem.Caption & objItem.CSDVersion & objItem.BuildNumber
Next
'查詢登入電腦的使用者名稱
Set objWMIService = GetObject("winmgmts:\\" & CSTR(strComputer) & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objItem in colItems
OutputFile.WriteLine "使用者名稱: " & objItem.UserName
Next
'查詢CPU型號
Set objWMIService = GetObject("winmgmts:\\" & CSTR(strComputer) & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor")
For Each objItem in colItems
OutputFile.WriteLine "CPU:" & objItem.Name
Next
'查詢RAM大小
Set objWMIService = GetObject("winmgmts:\\" & CSTR(strComputer) & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalMemoryConfiguration")
For Each objItem in colItems
OutputFile.WriteLine "記憶體:" & Int((objItem.TotalPhysicalMemory+1023)/1024) & "MB"
Next
'查詢磁碟容量
Set objWMIService = GetObject("winmgmts:\\" & CSTR(strComputer) & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive")
For Each objItem in colItems
OutputFile.WriteLine "磁碟型號: " & objItem.Caption
OutputFile.WriteLine "磁碟容量:" & Int( objItem.Size / 1073741824 ) & " GB"
Next
'查詢主機板型號
Set objWMIService = GetObject("winmgmts:\\" & CSTR(strComputer) & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard")
For Each objItem in colItems
OutputFile.WriteLine "主機板型號: " & objItem.Manufacturer & objItem.product
Next
'查詢光碟機型號
Set objWMIService = GetObject("winmgmts:\\" & CSTR(strComputer) & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_CDROMDrive")
For Each objItem in colItems
OutputFile.WriteLine "光碟機型號: " & objItem.Caption
Next
'查詢顯示卡型號
Set objWMIService = GetObject("winmgmts:\\" & CSTR(strComputer) & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DisplayConfiguration")
For Each objItem in colItems
OutputFile.WriteLine "顯示卡型號: " & objItem.Caption
Next
'查詢網路卡名稱和MAC Address
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")
For Each objItem in colItems
OutputFile.WriteLine "網路卡名稱: " & objItem.Caption
OutputFile.WriteLine "MAC Address: " & objItem.MACAddress
Next
Wscript.echo "ok"