Случайно зашел в тему и понял что у ВАС нет информации по 1394 Controller.
Написал скрипт:
'*******************************************************************
' Автор LEND
' Имя: 1394_Controller.vbs
' Язык: VBScript
' Описание: 1394 контроллер
'*******************************************************************
On Error Resume Next
Dim ComputerName ' Имя компьютера
Dim InfText
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Set WshNetWork=WScript.CreateObject("WScript.NetWork")
ComputerName=WshNetWork.ComputerName
InfText=InfText & "==========================================" & VbCrLf &_
"Computer: " & ComputerName & VbCrLf &_
"==========================================" & VbCrLf
Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_1394Controller", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
InfText=InfText & "Caption: " & objItem.Caption & VbCrLf
InfText=InfText & "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode & VbCrLf
InfText=InfText & "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig & VbCrLf
InfText=InfText & "Description: " & objItem.Description & VbCrLf
InfText=InfText & "DeviceID: " & objItem.DeviceID & VbCrLf
InfText=InfText & "ErrorCleared: " & objItem.ErrorCleared & VbCrLf
InfText=InfText & "ErrorDescription: " & objItem.ErrorDescription & VbCrLf
InfText=InfText & "LastErrorCode: " & objItem.LastErrorCode & VbCrLf
InfText=InfText & "Manufacturer: " & objItem.Manufacturer & VbCrLf
InfText=InfText & "MaxNumberControlled: " & objItem.MaxNumberControlled & VbCrLf
InfText=InfText & "Name: " & objItem.Name & VbCrLf
InfText=InfText & "PNPDeviceID: " & objItem.PNPDeviceID & VbCrLf
strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
InfText=InfText & "PowerManagementCapabilities: " & strPowerManagementCapabilities & VbCrLf
InfText=InfText & "PowerManagementSupported: " & objItem.PowerManagementSupported & VbCrLf
InfText=InfText & "ProtocolSupported: " & objItem.ProtocolSupported & VbCrLf
InfText=InfText & "Status: " & objItem.Status & VbCrLf
InfText=InfText & "StatusInfo: " & objItem.StatusInfo & VbCrLf
Next
WScript.Echo InfText
'*******************************************************************
С помощью этого скрипта узнаете некоторые данные о своем контроллере.
Скопируйте техт выделеный ЦВЕТОМ.
Создайте файл 1394_Controller.vbs. Запишите (вставьте) в него скопированный техт и запустите файл.
Я взял только немногие характеристики КОНТРОЛЛЕРА, но я думаю ВАМ хватит.
LEND