Hi, I have installed a W2K3 domain controller and have installed Certificate Services on the computer. I have also installed the CA's root certificate in the Trusted Root Certification Authorities folder of a remote, non-domain member computer.

When I run the following simple VBS script on the DC, it works fine. When I run it on the non-domain member computer, it fails with the message "The service is not operational". Anyone have ideas?

set objOU = objLDAP.OpenDSObject("LDAP://myserver.MyDomain.local:636/cn=users,dc=MyDomain,dc=local", _
"administrator@mydomain.local", _
"Password1", _
ADS_SECURE_AUTHENTICATION + ADS_USE_SSL)

WScript.Echo objOU.Get("cn")

Thanks,

Gordon

EggHeadCafe - Software Developer Portal of Choice
SAPI 5.1: Voice - Enabled Applications With VB
http://www.eggheadcafe.com/tutorials/aspnet/f4fbf671-5b70-45b3-ab58-90633f7ae7e4/sapi-51-voice--enabled.aspx

Here is the code again

ADS_SECURE_AUTHENTICATION = 1
ADS_USE_SSL = 2

set objLDAP = GetObject("LDAP:")


set objOU = objLDAP.OpenDSObject("LDAP://myserver.MyDomain.local:636/cn=users,dc=MyDomain,dc=local", _

"administrator@mydomain.local", _

"Password1", _
ADS_SECURE_AUTHENTICATION + ADS_USE_SSL)

WScript.Echo objOU.Get("cn")




Gordon Rose wrote:

ADSI - The server is not operational
07-Oct-09

Hi, I have installed a W2K3 domain controller and have installed Certificate Services on the computer. I have also installed the CA's root certificate in the Trusted Root Certification Authorities folder of a remote, non-domain member computer.

When I run the following simple VBS script on the DC, it works fine. When I run it on the non-domain member computer, it fails with the message "The service is not operational". Anyone have ideas?

set objOU = objLDAP.OpenDSObject("LDAP://myserver.MyDomain.local:636/cn=users,dc=MyDomain,dc=local", _
"administrator@mydomain.local", _
"Password1", _
ADS_SECURE_AUTHENTICATION + ADS_USE_SSL)

WScript.Echo objOU.Get("cn")

Thanks,

Gordon

EggHeadCafe - Software Developer Portal of Choice
VB.NET Event Managment / Logging through Publisher / Subsriber Pattern
http://www.eggheadcafe.com/tutorials/aspnet/9734b345-d1a5-4898-8192-bfdf6fef6500/vbnet-event-managment-.aspx

ADS_SECURE_AUTHENTICATION = 1
ADS_USE_SSL = 2

set objLDAP = GetObject("LDAP:")


set objOU = objLDAP.OpenDSObject("LDAP://myserver.MyDomain.local:636/cn=users,dc=MyDomain,dc=local", _
"administrator@mydomain.local", _
"Password1", _
ADS_SECURE_AUTHENTICATION + ADS_USE_SSL)

WScript.Echo objOU.Get("cn")




Gordon Rose wrote:

Oops - code didn't paste correctly
07-Oct-09

Here is the code again

ADS_SECURE_AUTHENTICATION = 1
ADS_USE_SSL = 2

set objLDAP = GetObject("LDAP:")


set objOU = objLDAP.OpenDSObject("LDAP://myserver.MyDomain.local:636/cn=users,dc=MyDomain,dc=local", _

"administrator@mydomain.local", _

"Password1", _
ADS_SECURE_AUTHENTICATION + ADS_USE_SSL)

WScript.Echo objOU.Get("cn")

EggHeadCafe - Software Developer Portal of Choice
ASP.NET DataList and DataRepeater Controls
http://www.eggheadcafe.com/tutorials/aspnet/d89d1d96-03f1-4784-bbb2-a3db1af393f5/aspnet-datalist-and-data.aspx

"Gordon Rose" wrote in message news:200910711943gordon@activecert.com...

Quote:

ADS_SECURE_AUTHENTICATION = 1 ADS_USE_SSL = 2 set objLDAP = GetObject("LDAP:") set objOU = objLDAP.OpenDSObject("LDAP://myserver.MyDomain.local:636/cn=users,dc=MyDomain,dc=local", _ "administrator@mydomain.local", _ "Password1", _ ADS_SECURE_AUTHENTICATION + ADS_USE_SSL) WScript.Echo objOU.Get("cn")

I replied a few days ago, but since I still don't see it, I'll try again. My
suggestion was to try ADS_SERVER_BIND instead of ADS_USE_SSL. For example:
===========
' ADS Authentication constants that can be used.
Const ADS_SECURE_AUTHENTICATION = &H1
Const ADS_SERVER_BIND = &H200

Set objOU =
objLDAP.OpenDSObject("LDAP://MyServer/cn=users,dc=MyDomain,dc=local", _
administrator@mydomain.local, "Password1", _
ADS_SECURE_AUTHENTICATION Or ADS_SERVER_BIND)

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--