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

 
获取远程机器的目录以及文件信息：<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

Imports System

Imports System.Management

 

Module Module1

    Public Sub <?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" />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.Thre
cc19
ad.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
作者Blog：http://blog.csdn.net/xDotNet/