验证是否为全局编录服务器

strComputer = "server"

Const NTDSDSA_OPT_IS_GC = 1

Set objRootDSE = GetObject("LDAP://" & strComputer & "/rootDSE")
strDsServiceDN = objRootDSE.Get("dsServiceName")
Set objDsRoot = GetObject("LDAP://" & strComputer & "/" & strDsServiceDN)
intOptions = objDsRoot.Get("options")

If intOptions And NTDSDSA_OPT_IS_GC Then
WScript.Echo strComputer & " 是全局编录服务器."
Else
Wscript.Echo strComputer & " 不是全局编录服务器."
End If

　　 欢迎加入QQ技术群聊：70539804