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:

Problema do Microsoft Outlook que abre e logo já fecha

Hoje uma falha de atualização de software foi desencadeada pela Microsoft, e desta vez parece que as atualizações acabaram quebrando o Outlo...