WMI获取计算机信息
2015-09-04 17:17
399 查看
On Error Resume Next
strComputer = "."
strInfo = ""
Set
objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
For
Each objItem in colItems
strInfo = strInfo & "SerialNumber: " &
objItem.SerialNumber & vbCrLf
Next
Set colItems = objWMIService.ExecQuery("Select * from
Win32_ComputerSystem",,48)
For Each objItem in colItems
strInfo = strInfo
& "UserName: " & objItem.UserName & vbCrLf
strInfo = strInfo
& "ComputerName: " & objItem.Name & vbCrLf
strInfo = strInfo
& "Domain: " & objItem.Domain & vbCrLf
strInfo = strInfo &
"Manufacturer: " & objItem.Manufacturer & vbCrLf
strInfo = strInfo
& "Model: " & objItem.Model & vbCrLf
strInfo = strInfo &
"TotalPhysicalMemory: " & Round(objItem.TotalPhysicalMemory/(1024^2),0)
& " M" & vbCrLf
Next
Set colItems = objWMIService.ExecQuery("Select * from
Win32_Processor",,48)
For Each objItem in colItems
If ProcessorNumber = 0
Then
strInfo = strInfo & "ProcessorMaxClockSpeed: " &
Round(objItem.MaxClockSpeed/1024,1) & " G" & vbCrLf
strInfo =
strInfo & "ProcessorName: " & objItem.Name & vbCrLf
End If
ProcessorNumber = ProcessorNumber + 1
Next
strInfo = strInfo &
"ProcessorNumber: " & ProcessorNumber & vbCrLf
WScript.Echo strInfo
strComputer = "."
strInfo = ""
Set
objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
For
Each objItem in colItems
strInfo = strInfo & "SerialNumber: " &
objItem.SerialNumber & vbCrLf
Next
Set colItems = objWMIService.ExecQuery("Select * from
Win32_ComputerSystem",,48)
For Each objItem in colItems
strInfo = strInfo
& "UserName: " & objItem.UserName & vbCrLf
strInfo = strInfo
& "ComputerName: " & objItem.Name & vbCrLf
strInfo = strInfo
& "Domain: " & objItem.Domain & vbCrLf
strInfo = strInfo &
"Manufacturer: " & objItem.Manufacturer & vbCrLf
strInfo = strInfo
& "Model: " & objItem.Model & vbCrLf
strInfo = strInfo &
"TotalPhysicalMemory: " & Round(objItem.TotalPhysicalMemory/(1024^2),0)
& " M" & vbCrLf
Next
Set colItems = objWMIService.ExecQuery("Select * from
Win32_Processor",,48)
For Each objItem in colItems
If ProcessorNumber = 0
Then
strInfo = strInfo & "ProcessorMaxClockSpeed: " &
Round(objItem.MaxClockSpeed/1024,1) & " G" & vbCrLf
strInfo =
strInfo & "ProcessorName: " & objItem.Name & vbCrLf
End If
ProcessorNumber = ProcessorNumber + 1
Next
strInfo = strInfo &
"ProcessorNumber: " & ProcessorNumber & vbCrLf
WScript.Echo strInfo
相关文章推荐
- 数据结构之单链表 C++实现
- HDU 4406 - GPA(网络流‘费用流)
- HTTP 错误 404.15 - Not Found 请求筛选模块被配置为拒绝包含的查询字符串过长的请求。
- http的请求方法
- [网络流24题] 21 最长k可重区间集(最大权不相交路径 ,最小费用最大流)
- 计算机网络之——DNS域名系统
- 深度网络概览
- 从自我学习到深层网络
- 神经网络向量化
- swift HTTP通信
- HTTP 请求方式: GET和POST
- 计算机硬盘分区方式
- 中国大学MOOC-陈越、何钦铭-数据结构 Maximum Subsequence Sum
- 【数据结构】图
- java开发如何使用HttpsConnection
- 3D游戏与计算机图形学中的数学方法-四元数
- Http学习笔记
- TCP/IP(1)基本概念
- 数据结构必须掌握 栈---压栈和出栈
- Linux TCP/IP通讯建立