page556.vbs

来自「Apress - Managing Enterprise Systems Wit」· VBS 代码 · 共 10 行

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)