mistert006
asked on
VBscript error with MS Agent Control
Getting an error on line 11 of this program. I have loaded the Agent software properly. Thanks for any ideas.
'
' Popup message using Microsoft Agent
'
Set MSAgent = CreateObject("Agent.Contro l.2")
'
If IsObject(MSAgent) = False Then
MsgBox "Microsoft Agent is not installed."
Quit
End If
'
MSAgent.Characters.Load "merlin", "merlin.acs" ' <--- getting error on this line
Set Merlin = MSAgent.Characters("merlin ")
'
With Merlin
.MoveTo 600,100
.Show
.Play("Read")
.Speak("Your message is ready for you to read.")
End With
'
For z = 1 To 9
While DateDiff("s", dl, Now) < 1
Wend
Next
'
Merlin.Hide
'
Set MSAgent = Nothing
Set Merlin = Nothing
'
'
' Popup message using Microsoft Agent
'
Set MSAgent = CreateObject("Agent.Contro
'
If IsObject(MSAgent) = False Then
MsgBox "Microsoft Agent is not installed."
Quit
End If
'
MSAgent.Characters.Load "merlin", "merlin.acs" ' <--- getting error on this line
Set Merlin = MSAgent.Characters("merlin
'
With Merlin
.MoveTo 600,100
.Show
.Play("Read")
.Speak("Your message is ready for you to read.")
End With
'
For z = 1 To 9
While DateDiff("s", dl, Now) < 1
Wend
Next
'
Merlin.Hide
'
Set MSAgent = Nothing
Set Merlin = Nothing
'
What is the error ?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.