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