如果您希望将性能计数器用于分析您的应用程序,则可以选择性能计数器。
但是,如果您希望它作为通用系统信息,那么您可能需要查看 WMI。这是我以前用于获取磁盘信息的示例:
注意:您需要参考System.Management
Dim scope As ManagementScope = New ManagementScope("\\.\root\CIMV2")
scope.Options.Impersonation = ImpersonationLevel.Impersonate
scope.Options.EnablePrivileges = True
Dim wmiQuery = "SELECT SystemName, Name, VolumeName, Size, FreeSpace FROM Win32_LogicalDisk WHERE DriveType = 3 "
Dim query As ObjectQuery = New ObjectQuery(wmiQuery)
Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(scope, query)
Dim result As New List(Of MyDrive)
For Each systemDrive As ManagementObject In searcher.Get
Dim diskDrive = New MyDrive
diskDrive.SystemName = systemDrive("SystemName").ToString
diskDrive.Name = systemDrive("Name").ToString
diskDrive.Size = CDec(systemDrive("Size")) / 1073741824
diskDrive.FreeSpace = CDec(systemDrive("FreeSpace")) / 1073741824
diskDrive.VolumeName = systemDrive("VolumeName").ToString
result.Add(diskDrive)
Next
Public Class MyDrive
Public Property SystemName As String
Public Property Name As String
Public Property VolumeName As String
Public Property Size As Decimal
Public Property FreeSpace As Decimal
Public ReadOnly Property PercentFree As Decimal
Get
Dim percent As Decimal = 0
If Size > 0 Then percent = FreeSpace / Size
Return percent
End Get
End Property
End Class
请注意,我已划分磁盘空间以将其转换为 GB。