几个 WMI 的例子（初级） - 3

获取远程机器的目录以及文件信息：Imports SystemImports 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 SubEnd Module ---------------------------------------------------------------------------------------获取物理内存大小：Imports SystemImports 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 SubEnd Module ---------------------------------------------------------------------------------------获取可用内存大小：Imports SystemImports System.Management Module Module1 Public Sub Main() Dim strComputer As String = ".", i, intValue As Integer Dim colItems, objWMIService, objItem objWMIService = GetObject("winmgmts:/" & strComputer & "ootcimv2")'重复执行 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 SubEnd Module ---------------------------------------------------------------------------------------获取服务名：Imports SystemImports 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 SubEnd Module