Verweis auf < System.Management > Setzen
 
Option Strict On
Option Explicit On
Imports System.Drawing
Imports System.ComponentModel
Imports System.Management
 
Dim mos As ManagementObjectSearcher
Dim moc As ManagementObjectCollection
Dim mo As ManagementObject
Dim pd As PropertyData
Dim DriveType, MediaType, z, a As Integer
Dim VolumeName, Description, DeviceID As String
mos = New Management.ManagementObjectSearcher("SELECT * FROM" & _
  "Win32_LogicalDisk") 'Win32_Share")
moc = mos.Get()
 
For Each mo In moc
For Each pd In mo.Properties
Try
If Not (pd.Value Is Nothing) Then
Select Case pd.Name
Case "Description"
Description = (pd.Value.ToString)
Case "DeviceID"
DeviceID = (pd.Value.ToString)
Case "DriveType"
DriveType = CInt(pd.Value.ToString)
Case "MediaType"
MediaType = CInt(pd.Value.ToString)
Case "VolumeName"
VolumeName = (pd.Value.ToString)
End Select
End If
Catch
z += 1 'Error
End Try
Next
Schreib(VolumeName, Description, DeviceID, DriveType, MediaType, a)
Next
moc.Dispose()
mos.Dispose()

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET