获取列表使用VBScript

Question

我正在寻找一种方式，我可以通过VBScript的连接操纵杆的名单就像在下面的图片连接的操纵杆（我的意思是他们的顺序是非常重要的）：

Answer 1

下面是代码这样做...很难找到净...

strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & 
"{impersonationLevel=impersonate}!\\" & strComputer & "oot\cimv2") 

Set colItems = objWMIService.ExecQuery("Select * from 
Win32_PnPEntity") 

For Each objItem in colItems 

Wscript.Echo "Class GUID: " & objItem.ClassGuid 
Wscript.Echo "Description: " & objItem.Description 
Wscript.Echo "Device ID: " & objItem.DeviceID 
Wscript.Echo "Manufacturer: " & objItem.Manufacturer 
Wscript.Echo "Name: " & objItem.Name 
Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID 
Wscript.Echo "Service: " & objItem.Service 

Next 

希望this帮助