VBA Numéro ordinateur, carte mère etc....

Pour récupérer toutes sortes d'info sur tous les disques durs d'un ordinateur

" Most of the scripts are designed to run with either Windows 2000, Windows XP, or Windows Server
2003, although many will also run on Windows NT 4.0 or Windows 98; in the latter two cases, however,
you might need to install additional scripting technologies such as ADSI or WMI before the scripts
will work. For more information about obtaining and installing ADSI, WMI, and the latest version of
Windows Script Host (WSH 5.6), see the Script Center's Scripting FAQ."

'---------------------------------
Sub Info_Des_DisquesDur()

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer _
& "rootcimv2")
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
'---------------------------------




"Fil GOUDE" <filgoude@yahoo.fr> a écrit dans le message de news:
filgoude-10E26D.21152410092006@nnrp10-2.proxad.net...
Bonjour,

existe-t-il une méthode qui permette de récupérer un numéro de carte
mère ou disque dur ou num d'ordinateur sur lequel tourne une macro excel
?

merci
:-) dom