几个 WMI 的例子（初级） - 3
获取远程机器的目录以及文件信息：
Imports System
Imports System.Management
Module Module1
Public Sub Main()
Dim disk As ManagementObject = New ManagementObject("win32_logicaldisk.deviceid=""c:""")
disk.Get()
Console.WriteLine("硬盘容量大小（bytes）： " & disk("Size"))
End Sub
End Module
---------------------------------------------------------------------------------------
获取物理内存大小：
Imports System
Imports System.Management
Module Module1
Public Sub Main()
Dim strComputer = "ComputerName" '计算机名
Dim wbemServices, wbemObjectSet, wbemObject
wbemServices = GetObject("winmgmts:\\" & strComputer)
wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration")
For Each wbemObject In wbemObjectSet
Console.WriteLine("物理内存的大小 （kb）：" & wbemObject.TotalPhysicalMemory)
Next
End Sub
End Module
---------------------------------------------------------------------------------------
获取可用内存大小：
Imports System
Imports System.Management
Module Module1
Public Sub Main()
Dim strComputer As String = ".", i, intValue As Integer
Dim colItems, objWMIService, objItem
objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'重复执行 20 次检查
For i = 1 To 20
'产生内存快照
colItems = objWMIService.ExecQuery("Select * From Win32_PerfRawData_PerfOS_Memory")
For Each objItem In colItems
intValue = objItem.AvailableMbytes
Console.WriteLine("可用内存大小 （MB）： " & intValue )
'延时 5 秒
Threading.Thread.Sleep(5000)
Next
Next
End Sub
End Module
---------------------------------------------------------------------------------------
获取服务名：
Imports System
Imports System.Management
Module Module1
Public Sub Main()
Dim strComputer = " ComputerName"
Dim wbemServices, wbemObjectSet, wbemObject
wbemServices = GetObject("winmgmts:\\" & strComputer)
wbemObjectSet = wbemServices.InstancesOf("Win32_Service")
For Each wbemObject In wbemObjectSet
Console.WriteLine("服务名称：" & wbemObject.DisplayName)
Console.WriteLine("当前状态：" & wbemObject.State)
Console.WriteLine("启动模式：" & wbemObject.StartMode)
Next
End Sub
End Module