利用GetObject("WinMgmts:")获取系统信息

最新推荐文章于 2024-09-06 13:22:34 发布

璀璨_帝禹

最新推荐文章于 2024-09-06 13:22:34 发布

阅读量3.5k

点赞数

分类专栏： Excel VBA 文章标签： GetObject WinMgmts WMI对象 GetObjectWinMgmts EXCEL

本文链接：https://blog.csdn.net/wijaya/article/details/16342157

版权

Excel VBA 专栏收录该内容

65 篇文章 10 订阅

订阅专栏

利用GetObject("WinMgmts:")获取系统信息

用WMI对象列出系统所有进程:
----Instance.vbs----
程序代码
Dim WMI,objs
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_Process")
For Each obj In objs
Enum1 = Enum1 + obj.Description + Chr(13) + Chr(10)
Next
msgbox Enum1

取得系统所有服务及运行状态
----service.vbs----
程序代码
Set ServiceSet =GetObject("winmgmts:").InstancesOf("Win32_Service")
Dim s,infor
infor=""
for each s in ServiceSet
infor=infor+s.Description+" ==>"+s.State+chr(13)+chr(10)
next
msgbox infor

获得物理内存的容量:
-----physicalMemory.vbs-----
程序代码
strComputer = "."

Set wbemServices = GetObject("winmgmts:\" &strComputer)
Set wbemObjectSet =wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration")

For Each wbemObject In wbemObjectSet
WScript.Echo "物理内存 (MB): " &CInt(wbemObject.TotalPhysicalMemory/1024)
Next

取得系统所有服务及运行状态
----service.vbs----
程序代码
Set ServiceSet =GetObject("winmgmts:").InstancesOf("Win32_Service")
Dim s,infor
infor=""
for each s in ServiceSet
infor=infor+s.Description+" ==>"+s.State+chr(13)+chr(10)
next
msgbox infor

CPU的序列号:
---CPUID.vbs---
程序代码
Dim cpuInfo
cpuInfo = ""
set moc =GetObject("Winmgmts:").InstancesOf("Win32_Processor")
for each mo in moc
cpuInfo = CStr(mo.ProcessorId)
msgbox "CPU SerialNumber is : " & cpuInfo
next

硬盘型号:
---HDID.vbs---
程序代码
Dim HDid,moc
set moc=GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
for each mo in moc
HDid = mo.Model
msgbox "硬盘型号为:" & HDid
next

网卡MAC物理地址:
---MACAddress.vbs---
程序代码
Dim mc
setmc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
for each mo in mc
if mo.IPEnabled=true then
msgbox "网卡MAC地址是: " & mo.MacAddress
exit for
end if
next

测试你的显卡:
程序代码
On Error Resume Next
Dim ye
Dim yexj00
setyexj00=GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")
for each ye in yexj00
msgbox " 型号: " & ye.VideoProcessor& vbCrLf & " 厂商: "& ye.AdapterCompatibility & vbCrLf& " 名称: " & ye.Name& vbCrLf & " 状态: "& ye.Status & vbCrLf& " 显存: " &(ye.AdapterRAM\1024000) & "MB" &vbCrLf & "驱动 (dll): " &ye.InstalledDisplayDrivers & vbCrLf& "驱动 (inf): " & ye.infFilename& vbCrLf & " 版本: "& ye.DriverVersion