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 |
正在阅读:VB.NET下获取硬盘信息的几种方法VB.NET下获取硬盘信息的几种方法
2004-03-11 10:00
出处:CSDN
责任编辑:linjixiong
键盘也能翻页,试试“← →”键