Comment récupérer le N° de la carte mère, des disques durs du PC sur lequel un classeur est installé ?

Ceci fonctionne (au moins) sur Windows 2000, Windows XP, or Windows Server 2003

sub Info_Des_DisquesDur()
 
 strComputer = "."
 Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!" & strComputer _
    & "
 oot\cimv2")
 Set colDiskDrives = objWMIService.ExecQuery _
  ("Select * from Win32_DiskDrive")
 For Each objDiskDrive In colDiskDrives
  MsgBox "Bytes Per Sector: " & vbTab & _
    objDiskDrive.BytesPerSector
  For i = LBound(objDiskDrive.Capabilities) To _
    UBound(objDiskDrive.Capabilities)
    MsgBox "Capabilities: " & vbTab & _
      objDiskDrive.Capabilities(i)
  Next
  MsgBox "Caption: " & vbTab & objDiskDrive.Caption
  MsgBox "Device ID:\ " & vbTab & objDiskDrive.DeviceID
  MsgBox "Index: " & vbTab & objDiskDrive.Index
  MsgBox "Interface Type: " & vbTab & objDiskDrive.InterfaceType
  MsgBox "Manufacturer: " & vbTab & objDiskDrive.Manufacturer
  MsgBox "Media LoadeD:\ " & vbTab & objDiskDrive.MediaLoaded
  MsgBox "Media Type: " & vbTab & objDiskDrive.MediaType
  MsgBox "Model: " & vbTab & objDiskDrive.Model
  MsgBox "Name: " & vbTab & objDiskDrive.Name
  MsgBox "Partitions: " & vbTab & objDiskDrive.Partitions
  MsgBox "PNP DeviceID:\ " & vbTab & objDiskDrive.PNPDeviceID
  MsgBox "SCSI Bus: " & vbTab & objDiskDrive.SCSIBus
  MsgBox "SCSI Logical Unit: " & vbTab & _
    objDiskDrive.SCSILogicalUnit
  MsgBox "SCSI Port: " & vbTab & objDiskDrive.SCSIPort
  MsgBox "SCSI TargetID:\ " & vbTab & objDiskDrive.SCSITargetId
  MsgBox "Sectors Per Track: " & vbTab & _
    objDiskDrive.SectorsPerTrack
  MsgBox "Signature: " & vbTab & objDiskDrive.Signature
  MsgBox "Size: " & vbTab & objDiskDrive.Size
  MsgBox "Status: " & vbTab & objDiskDrive.Status
  MsgBox "Total Cylinders: " & vbTab & _
    objDiskDrive.TotalCylinders
  MsgBox "Total Heads: " & vbTab & objDiskDrive.TotalHeads
  MsgBox "Total Sectors: " & vbTab & objDiskDrive.TotalSectors
  MsgBox "Total Tracks: " & vbTab & objDiskDrive.TotalTracks
  MsgBox "Tracks Per Cylinder: " & vbTab & _
    objDiskDrive.TracksPerCylinder
 Next
 
 end sub