利用WMI获取硬盘信息

Windows Management Instrumentation (WMI) 是可伸缩的系统管理结构，它采用一个统一的、基于标准的、可扩展的面向对象接口。WMI 为您提供与系统管理信息和基础 WMI API 交互的标准方法。WMI 主要由系统管理应用程序开发人员和管理员用来访问和操作系统管理信息。

我们需要使用.net Framwork里面System.Management命名空间下提供的类来实现。

 

Imports System.Management

 

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim disk As ManagementBaseObject

        Dim strResult As String

        Dim diskClass = New ManagementClass("Win32_LogicalDisk")

        Dim disks As ManagementObjectCollection

        disks = diskClass.GetInstances()

        For Each disk In disks

            strResult = ""

            strResult += "设备ID:" & disk("DeviceID") & vbCrLf

            strResult += "磁盘名称:" & disk("Name") & vbCrLf

            strResult += "磁盘卷标:" & disk("VolumeName") & vbCrLf

            If disk("FileSystem") <> "" Then strResult += "文件系统:" & disk("FileSystem") & vbCrLf

            strResult += "磁盘描述:" & disk("Description") & vbCrLf

            If System.Convert.ToInt64(disk("Size")) > 0 Then

                strResult += "磁盘大小:" & System.Convert.ToInt64(disk("Size").ToString()) & vbCrLf

                strResult += "磁盘类型:" & System.Convert.ToInt16(disk("DriveType").ToString())

            End If

            MsgBox(strResult)

        Next

    End Sub