Список USB-устройств

[AD'onis]

Доброго времени суток всем.

Собственно, тема и есть вопрос.
Нужно получить список всех подключенных USB-устройств. Вообще нужны их хендлы.
Может у кого примерчик завалялся или кто сможет подсказать хоть какие функции юзать.

Заранее спасибо.

[Antonariy]

Ну, со списком все просто:

Код: Выделить всё

On Error Resume Next

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

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

For Each objItem in colItems
    Wscript.Echo "Configuration Manager Error Code: " & _
        objItem.ConfigManagerErrorCode
    Wscript.Echo "Configuration Manager User Configuration: " & _
        objItem.ConfigManagerUserConfig
    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 "Protocol Supported: " & objItem.ProtocolSupported
    Wscript.Echo
Next

[Twister]

Все вам этот тормозной WMI...

http://wasm.ru/article.php?article=usb_eject

[AD'onis]

Спасибо, буду дома, посмотрю

[AD'onis]

Antonariy
Но так же я получаю список хост-контроллеров? А нужен список подключенных устройств.

[RayShade]

Ну включи мозги, копни немного в сторону. Путь то тебе указали же.

[AD'onis]

RayShade
Да, ты прав.

Коряво, но сделал так:

Код: Выделить всё

On Error Resume Next

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

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

For Each objItem In colItems
    S = objItem.DeviceID
    R = InStr(1, S, "USB", 1)
    R = InStr(1, S, "HID", 1)
    if R=0 then
       S = objItem.Name
       R = InStr(1, S, "USB", 1)
    End If
    If R > 0 Then
        List1.AddItem "Configuration Manager Error Code: " & _
            objItem.ConfigManagerErrorCode
        List1.AddItem "Configuration Manager User Configuration: " & _
            objItem.ConfigManagerUserConfig
        List1.AddItem "Device ID: " & objItem.DeviceID
        List1.AddItem "Manufacturer: " & objItem.Manufacturer
        List1.AddItem "Name: " & objItem.Name
        List1.AddItem "PNP Device ID: " & objItem.PNPDeviceID
        List1.AddItem "Protocol Supported: " & objItem.ProtocolSupported
        List1.AddItem " "
    End If
Next


[Proxy]

А что полезного можно сделать с USB FLASH MEMORY STICK, что нельзя сделать обращаясь к нему как к диску?
Или речь не идёт про флешку?
Автор, расскажи что мутишь? Любопытно просто.

[AD'onis]

А мемори стик тут не при чем
1) Устройство сопряжения на USB
2) Тема про веб-камеры.