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!