Option Explicit
 
 
Private Sub Form_Load()
  ' Computer, dessen Laufwerk-Infos
  ' ermittelt werden sollen
  Text1.Text = "."
End Sub
 
 
 
' Ermittlung von Laufwerksinformationen per WMI:
' ==============================================
' Voraussetzungen für das Beispiel:
'   - Windows2000 oder höher
'   Das Beispiel könnte auch unter NT4 mit installiertem
'   WMI eingesetzt werden, verursacht dort aber einen
'   Laufzeitfehler, der auf das Fehlen eines Objektes
'   hindeutet.
'
' Was wird für dieses Beispiel gebraucht?
'   - ein neues Projekt  (Name: frei wählbar)
'   - eine Form          (Name: frei wählbar)
'   - ein Command-Button (Name: Command1)
'   - eine Listbox       (Name: List1)
'
' Kopieren Sie diesen Code in den Code-Teil der Form
' und starten das Projekt mit F5
'
Private Sub LaufwerksInfo()
  Dim objWMI As Object
  Dim colClass As Object
  Dim objClass As Object
  Dim strComputer As String
  Dim strMeldung As String
 
  ' Name des Computers ( "." ist der aktuelle Computer, also dieser )
  strComputer = Text1.Text
  If strComputer = "" Then strComputer = "."
 
  Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  Set colClass = objWMI.ExecQuery("Select * from Win32_LogicalDisk", , 48)
 
  On Error Resume Next
  With List1
    .Clear
    .AddItem "Laufwerksinformationen per WMI:"
    .AddItem "==============================="
    .AddItem ""
 
    ' alle Objekte der Collection-Class LogicalDisk:
    ' ==============================================
    For Each objClass In colClass
      .AddItem "DeviceID: " & objClass.DeviceId
      .AddItem "  DriveType: " & objClass.drivetype
      .AddItem "  FileSystem: " & objClass.FileSystem
      .AddItem "  Description: " & objClass.Description
      .AddItem "  MediaType: " & objClass.MediaType
      .AddItem "  Size (KB): " & FormatNumber(objClass.Size / 1024, "0")
      .AddItem "  FreeSpace (KB): " & FormatNumber(objClass.FreeSpace / 1024, _
        "0")
      .AddItem ""
    Next
  End With
 
  ' Objekte zerstören
  Set objWMI = Nothing
  Set colClass = Nothing
  Set objClass = Nothing
End Sub
 
 
 
Private Sub Command1_Click()
  ' Laufwerk-Infos in der ListBox anzeigen
  Screen.MousePointer = 11
  LaufwerksInfo
  Screen.MousePointer = 0
End Sub

.AddItem "DeviceID: " & objClass.DeviceId
      .AddItem "  FileSystem: " & objClass.FileSystem
      .AddItem "  FreeSpace (KB): " & FormatNumber(objClass.FreeSpace / 1024, _
        "0")