[Iska]

Выполните:

Код:

Option Explicit

Dim i

With WScript.CreateObject("WIA.DeviceManager").DeviceInfos
	For i = 1 To .Count
		With .Item(i)
			WScript.Echo i, .DeviceID, .Type, .Properties("Name").Value
		End With
	Next
End With

WScript.Quit 0

и выложите результат.

первый скрипт — это JScript, расширение должно быть «.js». » а на счет js так делал и js »

А как же:

…а у меня при сохранении первого скрипта в файл .vbs… »

?!