accmgr.system help
accmgr.system help
(OP)
Hello, I am writing some macros in Excel/VBA to control Attachmate accessory manager. I am trying to call accmgr.system as an object, but I get a "429 - Active X can't create object error". I believe this is because I have not set it as a reference in VB. The problem is that accmgr is not in my list of references. I have tried browsing for it, but am unable to locate the dll or other object I need.
Does anyone know what the name of the dll I need to load as a refernce is? Also do you have a copy of it?
Here is the code:
Sub testmacro()
MsgBox "Macro running."
Dim Sessions As Object
Dim System As Object
Dim Sess0 As Object
'Extra Objects
Set System = CreateObject("Accmgr.System") ' Gets the system object
If (System Is Nothing) Then MsgBox "Could not create the EXTRA System object. Stopping macro playback.": Stop
Set Sessions = System.Sessions
If (Sessions Is Nothing) Then: MsgBox "Could not create the Sessions collection object. Stopping macro playback.": Stop
Set Sess0 = System.ActiveSession
If (Sess0 Is Nothing) Then MsgBox "Could not create the Session object. Stopping macro playback.": Stop
'--------------------------------------------------------------------------------
MyString = Sess0.Screen.GetString(5, 20, 20)
MsgBox MyString
Set Sessions = Nothing
Set System = Nothing
Set Sess0 = Nothing
End Sub
Does anyone know what the name of the dll I need to load as a refernce is? Also do you have a copy of it?
Here is the code:
CODE
Sub testmacro()
MsgBox "Macro running."
Dim Sessions As Object
Dim System As Object
Dim Sess0 As Object
'Extra Objects
Set System = CreateObject("Accmgr.System") ' Gets the system object
If (System Is Nothing) Then MsgBox "Could not create the EXTRA System object. Stopping macro playback.": Stop
Set Sessions = System.Sessions
If (Sessions Is Nothing) Then: MsgBox "Could not create the Sessions collection object. Stopping macro playback.": Stop
Set Sess0 = System.ActiveSession
If (Sess0 Is Nothing) Then MsgBox "Could not create the Session object. Stopping macro playback.": Stop
'--------------------------------------------------------------------------------
MyString = Sess0.Screen.GetString(5, 20, 20)
MsgBox MyString
Set Sessions = Nothing
Set System = Nothing
Set Sess0 = Nothing
End Sub
Talk To Other Members