OpenWithBasicSignon 1

[ornel]

Hi,

I would like to run the following simple macro,
but I got an error message (Error- 438: no such property or method):

Sub Main ()

DIM ObjAuthApp as object
DIM ObjAuthDoc as object

On Error Goto Errhdlr1

'Open Namespace

Set ObjAuthApp = CreateObject("Authenticator2.Application&quot
Set ObjAuthDoc = ObjAuthApp.Documents.OpenWithBasicSignon ("default", "administrator","","Root User Class&quot

MsgBox "Namespace opened successfully"

Errhdlr1:

Msgbox "Error - " & Err & ": " & Error$

End Sub


Any idea?
thx
ornel

 

[christenhusz]

Ornel,

On my machine your script worked well ! I made some samll changes though. To free memory at the end of the script and after your message box you don't want to see the errormessage 0.



Sub Main ()

DIM ObjAuthApp as object
DIM ObjAuthDoc as object

On Error Goto Errhdlr1

'Open Namespace

Set ObjAuthApp = CreateObject("Authenticator2.Application&quot
Set ObjAuthDoc = ObjAuthApp.Documents.OpenWithBasicSignon ("default", "administrator","","Root User Class&quot

MsgBox "Namespace opened successfully"
Goto Done

Errhdlr1:

Msgbox "Error - " & Err & ": " & Error$

Done:

'Free up Memory
set ObjAuthApp = Nothing
set ObjAuthDoc = Nothing

End Sub

Good luck!

Christenhusz

 

[ornel]

Hi Christenhusz,

I dont understand it.
I tried to run the your modified macro and it wasnt succesful!
When the macro steps to OpenWithBasicSignon line I got the error message!
Your 2 lines on the end of the macro not change my macro execution.

ornel

 

[ornel]

Does anyone have any new suggestions?

ornel