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

阿杰

1. 用WMI对象列出系统所有进程:
   
2. 
   
3. ----Instance.vbs----
   
4. 
   
5. Dim WMI,objs
   
6. Set WMI = GetObject("WinMgmts:")
   
7. Set objs = WMI.InstancesOf("Win32_Process")
   
8. For Each obj In objs
   
9. Enum1 = Enum1 + obj.Description + Chr(13) + Chr(10)
   
10. Next
    
11. msgbox Enum1
    
12. 
    
13. 获得物理内存的容量:
    
14. 
    
15. -----physicalMemory.vbs-----
    
16. 
    
17. strComputer = "."
    
18. 
    
19. Set wbemServices = GetObject("winmgmts:\" & strComputer)
    
20. Set wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration")
    
21. 
    
22. For Each wbemObject In wbemObjectSet
    
23. WScript.Echo "物理内存 (MB): " & CInt(wbemObject.TotalPhysicalMemory/1024)
    
24. Next
    
25. 
    
26. 取得系统所有服务及运行状态
    
27. 
    
28. ----service.vbs----
    
29. Set ServiceSet = GetObject("winmgmts:").InstancesOf("Win32_Service")
    
30. Dim s,infor
    
31. infor=""
    
32. for each s in ServiceSet
    
33. infor=infor+s.Description+" ==> "+s.State+chr(13)+chr(10)
    
34. next
    
35. msgbox infor
    
36. 
    
37. CPU的序列号:
    
38. 
    
39. ---CPUID.vbs---
    
40. 
    
41. Dim cpuInfo
    
42. cpuInfo = ""
    
43. set moc = GetObject("Winmgmts:").InstancesOf("Win32_Processor")
    
44. for each mo in moc
    
45. cpuInfo = CStr(mo.ProcessorId)
    
46. msgbox "CPU SerialNumber is : " & cpuInfo
    
47. next
    
48. 
    
49. 硬盘型号:
    
50. ---HDID.vbs---
    
51. Dim HDid,moc
    
52. set moc =GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
    
53. for each mo in moc
    
54. HDid = mo.Model
    
55. msgbox "硬盘型号为:" & HDid
    
56. next
    
57. 
    
58. 网卡MAC物理地址:
    
59. 
    
60. ---MACAddress.vbs---
    
61. Dim mc
    
62. set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
    
63. for each mo in mc
    
64. if mo.IPEnabled=true then
    
65. msgbox "网卡MAC地址是: " & mo.MacAddress
    
66. exit for
    
67. end if
    
68. next
    
69. 
    
70. 测试你的显卡:
    
71. 
    
72. On Error Resume Next
    
73. Dim ye
    
74. Dim yexj00
    
75. set yexj00=GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")
    
76. for each ye in yexj00
    
77. 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
    
78. next
    
79. 
    

复制代码

Tesla.Angela

比较喜欢后面几个和硬件相关的

upring

谢谢 您的分享