[VBS] WIA 1.0 per acquisizione da scanner

[patrizia0103]

vbscript. Ecco un esempio:
<SCRIPT LANGUAGE="VBScript">
Dim objWia
Dim objDeviceInfoCollection
Dim objDeviceInfo
Dim objRootItem
Dim objSelectedItems
Dim objItem
Dim intent
Dim PropValue

Set objWia = CreateObject("Wia.Getimagedlg")
Set objItem = objWia.Create(Nothing)

Set objDeviceInfoCollection = objWia.Devices
For i=0 to objDeviceInfoCollection.Count-1
Set objItem = objWia.Create(i)
Set objSelectedItems = objItem.GetItemsFromUI
For Each objItem In objSelectedItems
objItem.Transfer("D:\temp\Filename.jpg")
Next
next

</SCRIPT>
Non riesco ad andare oltre questo