Dim oWMI As Object
Dim sComputer As String
Dim oItems As Object
Dim oItem As Object
 
' aktueller Rechner
sComputer = "."
 
' WMI-Objekt erstellen
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
  & sComputer & "\root\cimv2")
 
' WMI-Abfrage erstellen
Set oItems = oWMI.ExecQuery("Select * from Win32_DiskDrive")
For Each oItem In oItems
  Debug.Print oItem.Index, oItem.InterfaceType
  On Error Resume Next
  ' Hersteller-Serien-Nr. (wird aber leider unter Win2003,
  ' WinXP Win2000 und WinNT 4.0 nicht unterstützt!)
  Debug.Print "SerialNumber: " & oItem.SerialNumber
  On Error GoTo 0
Next 
Set oItem = Nothing
Set oItems = Nothing
Set oWMI = Nothing

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de