Vista - Camera Automation under Vista

Hi,

I am trying the get the following script to work under Vista:

<job>
<reference object="wia.DeviceManager" />
<object id="DevMan" progid="Wia.DeviceManager" />
<script language="VBScript">
Option Explicit

Dim Command, Name, Description, Icon, EventID, DeviceID, i

Command = WScript.fullname & " """ & WScript.scriptfullname & """ connect"
Name = "QuickTransfer"
Description = "Quick Scripting Transfer"
Icon = WScript.fullname & ", 0"
EventID = wiaEventDeviceConnected
DeviceID = "*"

If WScript.arguments.count = 1 then
If UCase(WScript.arguments(0)) = "REGISTER" then
MsgBox "Registering Event Handler"
DevMan.RegisterPersistentEvent Command, Name, Description, Icon, EventID,
DeviceID
WScript.quit
End If
If UCase(WScript.arguments(0)) = "UNREGISTER" then
MsgBox "Unregistering Event Handler"
DevMan.UnregisterPersistentEvent Command, Name, Description, Icon,
EventID, DeviceID
WScript.quit
End If
End If

If WScript.arguments.count = 2 then
If UCase(WScript.arguments(0)) = "REGISTER" then
MsgBox "Registering Event Handler"
DeviceID = WScript.arguments(1)
DevMan.RegisterPersistentEvent Command, Name, Description, Icon, EventID,
DeviceID
WScript.quit
End If
If UCase(WScript.arguments(0)) = "UNREGISTER" then
MsgBox "Unregistering Event Handler"
DeviceID = WScript.arguments(1)
DevMan.UnregisterPersistentEvent Command, Name, Description, Icon,
EventID, DeviceID
WScript.quit
End If
End If

If WScript.arguments.count = 3 Then
If UCase(WScript.arguments(0)) = "CONNECT" Then
Dim DevID
Dim Dev
Dim Itm
Dim Img

DevID = Mid(WScript.arguments(1), 12)
set Dev = DevMan.DeviceInfos(DevID).Connect

For Each Itm in Dev.Items
Set Img = Itm.Transfer
Img.SaveFile "C:\Temp\" & Itm.Properties("Item Name").Value & "." &
Img.FileExtension
Next
WScript.quit
End If
End If

Description = "Usage:" & vbCrLf & vbCrLf & "To register type:" & vbCrLf &
vbCrLf & _
WScript.ScriptName & " register" & vbCrLf & "...or..." & vbCrLf & _
WScript.ScriptName & " register DeviceID" & vbCrLf & vbCrLf & _
"To unregister type:" & vbCrLf & vbCrLf & WScript.ScriptName & _
" unregister" & vbCrLf & "...or..." & vbCrLf & WScript.ScriptName & _
" unregister DeviceID" & vbCrLf & vbCrLf & "Available DeviceIDs:" & _
vbCrLf & vbCrLf

for i = 1 to DevMan.DeviceInfos.Count
Description = Description & DevMan.deviceInfos(i).DeviceID & " '" & _
DevMan.deviceInfos(i).Properties("Name").Value & vbCrLf
next

MsgBox Description
</script>
</job>

When I execute the following command to register the script for my camera:

CopyPictures register {EEC5AD98-8080-425f-922A-DABF3DE3F69A}\0006

I get the follwing error:

Script: C:\Temp\CopyPictures.wsf
Line: 33
Char: 4
Error: Unspecified Error

Code: 80004005
Source: WIA.DeviceManager.1

Line 33 is this line of code:

DevMan.RegisterPersistentEvent Command, Name, Description, Icon, EventID,
DeviceID

Can anyone tell me what might be wrong?

Thank You,
Tracy