Set oWMI = GetObject("winmgmts://")
Set oProc = oWMI.InstancesOf("win32_processor")
For Each oObj In oProc
Debug.Print oObj.UniqueID
Next
Set oProc = oWMI.InstancesOf("win32_diskdrive")
For Each oObj In oProc
Debug.Print oObj.Model
Next
Dennis
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement