Active Directory/Connect

From Rosetta Code
Revision as of 12:46, 10 August 2008 by rosettacode>Hamstar

VBScript

Creating the normal connection to AD

Set objConn = CreateObject("ADODB.Connection")
Set objCmd = CreateObject("ADODB.Command")
objConn.Provider = "ADsDSOObject"
objConn.Open