vbscript - 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

これが役立つことを願っています