Ativar um servidor de catálogo global


Descrição

Ativar um servidor de catálogo global no controlador de domínio atl-dc-01.








strComputer = "atl-dc-01"

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) = FALSE Then
    objDsRoot.Put "options" , intOptions Or NTDSDSA_OPT_IS_GC
    objDsRoot.Setinfo
End If

Fonte - Script Center
Version 3.0, November 2004


Comentários

LEIA-ME

Desenvolver ferramentas e scripts que facilitem o seu trabalho diário, solucionar problemas e documentar tudo, criando passo a passos detalhados de como resolvê-los, é uma tarefa que requer tempo e dedicação. Por esse motivo, contamos com a sua contribuição.

Sua doação não é obrigatória, mas é muito importante para que possamos continuar mantendo o DicasQueFunfa funcionando e desenvolvendo soluções úteis para você.



Mais