none
Script para apagar computador do AD RRS feed

  • คำถาม

  • Alguem tem algum script para apagar computador do AD. De vez em quando o Field nos liga para apagarmos um computador do AD. Estou pensando em fazer um .vbs ou autoit para que quando ele precise deletar uma maquina do AD, ele rode esse programa, abra uma janela para ele colocar o nome da maquina, onde sera feito uma busca no AD do meu dominio contoso|brasil (somente dentro dessa OU Brasil) se realmente esta maquina existe, se existir ele pedira confirmação user e senha para deleção e OK Maquina deletada.
    25 มิถุนายน 2555 18:38

คำตอบ

  • Boa Noite,

    Veja se este modelo te atende.

    Apagando Contas de Computadores no AD com Linha de Comando

    1- Copie o nome dos computadores que serão “deletados” dentro de um arquivo com o nome inativos.txt conforme o exemplo abaixo: 
    comp01
    comp02
    comp03

    2- Copie o script abaixo para dentro de um arquivo.txt e renomeie para Apaga_Inativos.vbs e na linha strDomain = "meudominio.local" troque o meudominio.local para o nome do seu domínio:
    Dim objDC
    Dim strComputer, strDomain 
    
    strDomain = "meudominio.local"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f1 = fso.OpenTextFile("inativos.txt")
    Set objDC = getobject("WinNT://" & strDomain )
    On Error Resume Next
    Do until f1.atEndOfStream
    On Error Resume Next
    strComputer = f1.readline
    objDC.Delete "Computer", strComputer
    If Err.Number <> 0 Then
    Err.Clear
    Wscript.Echo "NOT FOUND: " & strComputer
    Else
    On Error GoTo 0
    Wscript.Echo "Deleted: " & strComputer
    End If
    On Error GoTo 0
    Loop 
    3- Execute o arquivo, mas caso deseje que gere um arquivo de resposta basta apenas adicionar > nomedorelatorio.txt:

    Ex: c:\script\Apaga_Inativos.vbs > nomedorelatorio.txt

    Observações:
    - Os arquivos inativos.txt e Apaga_Inativos.vbs devem está no mesmo local (ou no mesmo diretório);
    - Você precisará ter direitos administrativos no seu domínio para executar este script.


    * Ajude a organizar melhor o Fórum, dando Feedback sobre a dúvida solicitada, e marcando como Útil e como Resposta, a postagem dos colaboradores que resolveram o seu caso, ou foram úteis *

    25 มิถุนายน 2555 21:57
    ผู้ดูแล
  • O comando DSRM poderia lhe ajudar.

    Segue video sobre a ferramenta.

    Comando dsrm - Eliminar objetos en Active Directory

    Espero ter lhe ajudado.

    Caso deseje posso mover seu topico para o forum de scripts.


    Enderson Valente Teixeira - Coordenador de Informática

    25 มิถุนายน 2555 18:57
    ผู้ดูแล

ตอบทั้งหมด

  • O comando DSRM poderia lhe ajudar.

    Segue video sobre a ferramenta.

    Comando dsrm - Eliminar objetos en Active Directory

    Espero ter lhe ajudado.

    Caso deseje posso mover seu topico para o forum de scripts.


    Enderson Valente Teixeira - Coordenador de Informática

    25 มิถุนายน 2555 18:57
    ผู้ดูแล
  • Boa Noite,

    Veja se este modelo te atende.

    Apagando Contas de Computadores no AD com Linha de Comando

    1- Copie o nome dos computadores que serão “deletados” dentro de um arquivo com o nome inativos.txt conforme o exemplo abaixo: 
    comp01
    comp02
    comp03

    2- Copie o script abaixo para dentro de um arquivo.txt e renomeie para Apaga_Inativos.vbs e na linha strDomain = "meudominio.local" troque o meudominio.local para o nome do seu domínio:
    Dim objDC
    Dim strComputer, strDomain 
    
    strDomain = "meudominio.local"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f1 = fso.OpenTextFile("inativos.txt")
    Set objDC = getobject("WinNT://" & strDomain )
    On Error Resume Next
    Do until f1.atEndOfStream
    On Error Resume Next
    strComputer = f1.readline
    objDC.Delete "Computer", strComputer
    If Err.Number <> 0 Then
    Err.Clear
    Wscript.Echo "NOT FOUND: " & strComputer
    Else
    On Error GoTo 0
    Wscript.Echo "Deleted: " & strComputer
    End If
    On Error GoTo 0
    Loop 
    3- Execute o arquivo, mas caso deseje que gere um arquivo de resposta basta apenas adicionar > nomedorelatorio.txt:

    Ex: c:\script\Apaga_Inativos.vbs > nomedorelatorio.txt

    Observações:
    - Os arquivos inativos.txt e Apaga_Inativos.vbs devem está no mesmo local (ou no mesmo diretório);
    - Você precisará ter direitos administrativos no seu domínio para executar este script.


    * Ajude a organizar melhor o Fórum, dando Feedback sobre a dúvida solicitada, e marcando como Útil e como Resposta, a postagem dos colaboradores que resolveram o seu caso, ou foram úteis *

    25 มิถุนายน 2555 21:57
    ผู้ดูแล
  • Tem como especificar um login no script para que ele acesse o mesmo com um login diferente do que está logado na máquina?
    16 ธันวาคม 2562 15:26