Dim UsbDevices() As UsbDevice
UsbDevices = manager.GetDevices
If UsbDevices.Length = 0 Then
ToastMessageShow("No connected usb devices.", True)
Else
For z = 0 To UsbDevices.Length - 1
Dim UsbDvc As UsbDevice
UsbDvc = UsbDevices(z)
Dim jo As JavaObject = UsbDvc
Log( jo.RunMethod("getProductName",Null))
Log("USBDeviceNr. " & z & " --- UsbPid = " & UsbDvc.ProductId & " Devicename:" & UsbDvc.DeviceName)