VBS: VirtualPC подключение USB устройств

# Подключение к Virtual PC
$vpc = new-object -com VirtualPC.Application

# Получить имя VM "Windows XP Mode"
$vmName ="Windows XP Mode" #Read-host "Укажите имя виртуальной машины, что вы хотите использовать"

# Список доступных устройств USB
write-host "Cследующих устройств USB доступны:"
$vpc.USBDeviceCollection | select -ExpandProperty DeviceString

# Получить имя USB устройства "WorkCentre 4118 Series"
$usb ="WorkCentre 4118 Series" # Read-host "Введите имя устройства USB, что вы хотите подключить к виртуальной машине"

# Получить объект VM 
$vm = $vpc.findVirtualMachine($vmName)

# Получить объект USB
$usbDevice = $vpc.USBDeviceCollection | ? {$_.DeviceString -eq $usb} | select -first 1

write-host $usbDevice

# Прикрепите устройство - это будет ошибкой, если виртуальная машина не работает
$vm.AttachUSBDevice($usbDevice)

vmname = "Windows XP Mode" 'ваша VM
Device_String = "Photosmart Pro B8300 series"  '"WorkCentre 4118 Series" '  Ваше USB устройство

'Получить Virtual PC объектов
Set objVPC = CreateObject("VirtualPC.Application")

'Найти виртуальной машины
Set objVM = objVPC.FindVirtualMachine(vmname)
If objVM Is Nothing Then
  WScript.Echo "Не удалось найти виртуальную машину: " & vmname
  WScript.Quit 2
End If

On Error Resume Next

' Запускаем бесконечный цикл ожидания
While 1
    WScript.Sleep 2000

    'Получить коллекцию USB устройств
    Set usbDevicesColl = objVPC.USBDeviceCollection
    For Each usbDevice In usbDevicesColl
      If LCase(usbDevice.DeviceString) = LCase(Device_String) Then
      'Присоединить устройство USB к VM
            Set objAssign = objVM.AttachUSBDevice(usbDevice)
             Exit For
      End If
    Next
Wend