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

# Подключение к 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="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

'Получить коллекцию USB устройств
set usbDevicesColl = objVPC.USBDeviceCollection
If usbDevicesColl.Count = 0 Then
  Wscript.Echo "Нет USB устройств, подключенных к машине."
  WScript.Quit 2
End If

'Переменная если устройство найдено
isFound = 0

For Each usbDevice in usbDevicesColl
  if LCase(usbDevice.DeviceString) = LCase(Device_String) Then
 'Attach the USB device to VM
   set objAssign = objVM.AttachUSBDevice(usbDevice)
 isFound = 1
   break
  End If
Next

If isFound = 0 Then
  Wscript.Echo "Не удается найти устройство USB. Пожалуйста, проверьте строку устройство "
Else
  Wscript.Echo "Устройство присвоино виртуальной машине"
End If

Сценарий:    C:\Users\Master\Desktop\NEWVirtualPC -
копия, vbs
Строка: 29
Символ: 4
Ошибка: Требуется объект: 'objVM.AttachUSBDevice(...)'
Код: 800А01А8
Источник:    Ошибка выполнения Microsoft VBScript