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

Postagens mais visitadas deste blog

Falha ao conectar a um serviço do Windows, não foi possível conectar o Windows ao serviço Cliente da Diretiva de Grupo

Erro 1920. O serviço 'Office Software Protection Plataform' (osppsvc) não pôde ser iniciado. Verifique se você tem privilégios suficientes para iniciar os serviços do sistema

Suas configurações de segurança da Internet impediram que um ou mais arquivos fossem abertos