VB.NET下获取硬盘信息的几种方法

 

VB.NET下获取硬盘信息的几种方法

1 、用 API 函数 GetDiskFreeSpaceEx 获取磁盘空间

 

    Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" _

        ( ByVal lpDirectoryName As String , ByRef lpFreeBytesAvailableToCaller As Long , _

        ByRef lpTotalNumberOfBytes As Long , ByRef lpTotalNumberOfFreeBytes As Long ) As Long

 

   Private Sub btnDisk_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisk.Click

        Dim BytesFreeToCalller As Long , TotalBytes As Long

        Dim TotalFreeBytes As Long , TotalBytesUsed As Long

        Dim strResult As String

        Const RootPathName = "C:/"

        Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)

        strResult = " Drive " & "C:/" & vbCrLf

        strResult += " 磁盘容量 (MB):" & Format( CDbl ((TotalBytes / 1024 ) / 1024 ), "###,###,##0.00" ) & vbCrLf

        strResult += " 可用空间 (MB):" & Format( CDbl ((TotalFreeBytes / 1024 ) / 1024 ), "###,###,##0.00" ) & vbCrLf

        strResult += " 已用空间 (MB):" & Format( CDbl (((TotalBytes - TotalFreeBytes) / 1024 ) / 1024 ), "###,###,##0.00" ) & vbCrLf

        MsgBox(strResult)

    End Sub

 

 

2 、用 FSO( 文件系统对象模型 ) 实现

FSO 对象模型包含在 SCRIPTING 类型库 (SCRRUN.DLL) 中。调用方法如下：

在项目菜单中选择引用，在 COM 中选择 Microsoft Scripting Runtime

在代码最顶端添加 Imports Scripting ，在按钮的单击事件中加入以下代码：

 

Imports Scripting

 

    Private Sub btnFso_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFso.Click

        Dim Fso As New FileSystemObject

        Dim drvDisk As Drive, strResult As String

        drvDisk = Fso.GetDrive( "C:/" )

        strResult = "Drive " & "C:/" & vbCrLf

        strResult += " 磁盘卷标 :" & drvDisk.VolumeName & vbCrLf

        strResult += " 磁盘序列号 :" & drvDisk.SerialNumber & vbCrLf

        strResult += " 磁盘类型 :" & drvDisk.DriveType & vbCrLf

        strResult += " 文件系统 :" & drvDisk.FileSystem & vbCrLf

        strResult += " 磁盘容量 (G): " & FormatNumber(((drvDisk.TotalSize / 1024) / 1024) / 1024, 2, , , Microsoft.VisualBasic.TriState.True) & vbCrLf

        strResult += " 可用空间 (G): " & FormatNumber(((drvDisk.FreeSpace / 1024) / 1024) / 1024, 2, , , Microsoft.VisualBasic.TriState.True) & vbCrLf

        strResult += " 已用空间 (G):" & FormatNumber(((((drvDisk.TotalSize - drvDisk.FreeSpace) / 1024) / 1024) / 1024), 2, , , Microsoft.VisualBasic.TriState.True)

        MsgBox(strResult)

    End Sub

 

 

3 、用 API 函数 GetVolumeInformation 获取逻辑盘序列号

 

    Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _

     ( ByVal lpRootPathName As String , ByVal lpVolumeNameBuffer As String , ByVal _

     nVolumeNameSize As Integer , ByRef lpVolumeSerialNumber As Long , _

     ByVal lpMaximumComponentLength As Integer , ByVal lpFileSystemFlags As Integer , ByVal _

     lpFileSystemNameBuffer As String , ByVal nFileSystemNameSize As Integer ) As Integer

 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim SerialNumber As Long

        Dim TempStr1 As New String (Chr( 0 ), 255 )

        Dim TempStr2 As New String (Chr( 0 ), 255 )

        Dim TempInt1, TempInt2 As Integer

        GetVolumeInformation( "C:/" , TempStr1, 256 , SerialNumber, TempInt1, TempInt2, TempStr2, 256 )

        MsgBox("C 盘序列号 :" & SerialNumber)

    End Sub

 

 

 

4 、利用 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

 

 

总结：在 VB.NET 中，用 API 函数可以获取硬盘信息。原来熟悉 API 函数 VB6 程序员，可以对 API 函数声明进行适当的更改后，进行调用。利用 FSO （文件系统对象）的 Scrrun.DLL ，也可以获得磁盘信息。在 .net Framwork 中， 利用 WMI 可以 获取更多的关于机器硬件的详细信息（参考 System.Management 命名空间） 。

 

声明：本文版权与解释权归李洪根所有，如需转载，请保留完整的内容及此声明。