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!

Comentários

Postagens mais visitadas deste blog

Instalando e configurando Serviços da Área de Trabalho Remota (RDS) do Windows Server 2012 a um único Servidor

Criando Pen Drive bootável com Windows Server 2016

Erro: O Windows não pode se conectar à impressora. A operação falhou com o erro 0x00000002