sexta-feira, 18 de julho de 2014

Criando Unidades Organizacionais automaticamente

Quando você vai configurar um servidor em uma empresa é muito comum a necessidade de criar muitas OU (Unidades Organizacionais) e isso pode consumir seu tempo.



Aproveite a dica e crie várias OU com um clique:

Obs: Troque o nome do dc e também das OU



Set objDomain = GetObject("LDAP://dc=ruschel,dc=br")
Set objOU = objDomain.Create("organizationalUnit", "ou=Porto Alegre")
objOU.SetInfo
Set objOU = objDomain.Create("organizationalUnit", "ou=Ijui")
objOU.SetInfo
Set objOU = objDomain.Create("organizationalUnit", "ou=Santa Rosa")
objOU.SetInfo
Set objOU = objDomain.Create("organizationalUnit", "ou=Santo Angelo")
objOU.SetInfo
Set objOU = objDomain.Create("organizationalUnit", "ou=santa Maria")
objOU.SetInfo
Set objOU = objDomain.Create("organizationalUnit", "ou=Cerro Largo")
objOU.SetInfo

Salve o arquivo com a extensão .vbs e execute!

Nenhum comentário:

Migrando Active Directory do Windows Server 2008 R2 para Windows Server 2019 - Dois servidores

Com a aproximação do fim do suporte para o Windows Server 2008 e 2008 R2 (14 de janeiro de 2020), vamos mostrar algumas formas para fazer um...