WMI获取计算机信息
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
最新文章
- chrome浏览器的跨域设置——包括版本49前后两种设置
- Spring源码分析——BeanFactory体系之抽象类、类分析（二）
- 那些年我们写过的T-SQL（中篇）
- 3n+1b 备忘录方法
- URAL 1244. Gentlemen(DP)
- java14-4 Pattern和Matcher类的使用
- 转载：javascript 拖拽排序，简洁示例备忘
- 【HDOJ】1263 水果
- 【索引】XBox360玩机心得
- Android使用自带JSONObject解析JSON数据
- Linux的起源、特点和版本号
- <Win32_14>__win32控件(2)__教你自学掌握所有控件的玩法
- return 使用和闭包
- python 字典操作方法详解
- adc指令
- 20155203 2016-2017-4 《Java程序设计》第6周学习总结
- sql嵌套更新
- 【8】memcached实例
- U3D 基础
- [解决] User [dr.who] is not authorized to view the logs for application