1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Dim Item
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'création d'un fichier
Set ObjFso=CreateObject("Scripting.FileSystemObject")
Set objFile = ObjFso.CreateTextFile("c:\list.txt")
Set colItems = objWMIService.ExecQuery("Select TOP 1 * from Win32_PnPEntity WHERE Description like '%Broadcom%'")
For Each objItem in colItems
objFile.WriteLine "Class GUID: " & colItems.ClassGuid
objFile.WriteLine "Description: " & objItem.Description
objFile.WriteLine "Device ID: " & objItem.DeviceID
objFile.WriteLine "Manufacturer: " & objItem.Manufacturer
objFile.WriteLine "Name: " & objItem.Name
objFile.WriteLine "PNP Device ID: " & objItem.PNPDeviceID
objFile.WriteLine "Service: " & objItem.Service
Next |