Copiar uma conta de computador do Active Directory

Descrição
Recupera os atributos de um objeto de computador existente e copia os atributos para um novo objeto de computador criado pelo script.







Set objCompt = _
    GetObject("LDAP://cn=Computers,dc=NA,dc=fabrikam,dc=com")
Set objComptCopy = objCompt.Create("computer", "cn=SEA-SQL-01")
objComptCopy.Put "sAMAccountName", "sea-sql-01"
objComptCopy.SetInfo

Set objComptTemplate = GetObject _
    ("LDAP://cn=SEA-PM-01,cn=Computers,dc=NA,dc=fabrikam,dc=com")
arrAttributes = Array("description", "location")

For Each strAttrib in arrAttributes
    strValue = objComptTemplate.Get(strAttrib)
    objComptCopy.Put strAttrib, strValue
Next

objComptCopy.SetInfo



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

O PowerPoint não pode ler ... A apresentação não pode ser aberta. Seu programa antivírus pode estar impedindo essa ação. Para corrigir o problema, verifique se o programa antivírus está atualizado e funcionando corretamente. Se o problema persistir e a apresentação for proveniente de uma fonte confiável, desative o programa antivírus e tente abrir a apresentação novamente. Nesse caso, não se esqueça de reativar o programa antivírus depois de abrir a apresentação.