Error on GetObject("LDAP://rootDSE") 2

[FancyPrairie]

I created a class in vba (Access). I would like to duplicate the class in vbscript. However, I recieve the error ActiveX component can't create object "LDAP://rootDSE" on the GetObject command

What's wrong with the following code?

Class clsMMC_ActiveDirectory

'*************************
'*  Public Declarations  *
'*************************

    Dim mstrsAMAccountName
    Dim mobjUser
    Dim mobjRootDSE 

'**********************************
'*  Class Initialize / Terminate  *
'**********************************

Private Sub Class_Initialize()
    Set mobjRootDSE = GetObject("LDAP://rootDSE") ' bind to the rootDSE for portability
End Sub

 

[markdmac]

Nothing wrong with the context. My guess is you have a DNS problem on the workstation.

I hope you find this post helpful.

Regards,

Mark

 

[FancyPrairie]

Thank you. That was my problem. It ran ok in a vbs file but not in an html file. Changed security settings and it now runs in html.

 

[PHV]

Changed security settings and it now runs in html
Have you tried an hta instead ?

http://www.microsoft.com/technet/scriptcenter/hubs/htas.mspx

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[FancyPrairie]

I only used the vbs file to test to see if it was a security problem. The code will need to reside in an html page (intranet site). However, I have used hta before but had forgotten about it. So appreciate the link. Very helpful for some other things I need to do. Thanks