Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

accmgr.system help

Status
Not open for further replies.

Marinator

IS-IT--Management
Mar 19, 2003
2
CA
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:
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
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top