page556.vbs

Apress - Managing Enterprise Systems With The Windows Script Host Source Code

Dim objRootDSE, objDomain, strDomain

'get a reference to the rootDSE
Set objRootDSE = GetObject("LDAP://RootDSE")
'get the domain
strDomain = objRootDSE.Get("defaultNamingContext")

'get a reference to the domain object
Set objDomain = GetObject("LDAP://" & strDomain)