none
via srcipt, como alterar o nome dos computadores e juntá-los a outro dominio? RRS feed

  • Pergunta

  •  

    Gostava q quem tivesse escrito algo sobre isto, q me pudesse ajudar, nos conceitos e como construir uma sript para o efeito.

     

    Thanks

    sábado, 8 de setembro de 2007 12:03

Respostas

  • Aqui tem um que adiciona um computador ao domínio:

    http://www.microsoft.com/technet/scriptcenter/scripts/ad/computer/cptrvb06.mspx

    outro que renomeia computadores:

    http://www.microsoft.com/technet/scriptcenter/scripts/ad/computer/cptrvb14.mspx

    []s,

    --
    Vinicius Canto <scripterbr_at_gmail_dot_com>
    MVP Windows Server - Admin Frameworks
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Bacharelando em Ciências da Computação - USP

    Blog sobre Scripting e Windows Powershell: http://viniciuscanto.blogspot.com

    sábado, 8 de setembro de 2007 21:50
    Moderador
  • Este script pode ajudá-lo qualquer dúvida poste ai.

     

    Code Snippet

    Name = InputBox("Digite o nome que o computador receberá.","Rename")

    Password = "senha"
    Username = "usuário"

    Set objWMIService = GetObject("Winmgmts:root\cimv2")

    For Each objComputer in _
        objWMIService.InstancesOf("Win32_ComputerSystem")

            Return = objComputer.rename(Name,Password,User)
            If Return <> 0 Then
               WScript.Echo "Falha! Erro = " & Err.Number
            Else
               WScript.Echo "Sucesso!" & " Reinicie o computador para que a modificação tenha efeito"
            End If
    Next

    DomainName = InputBox("Digite o nome do dominio em que o computador será inserido","Dominio")

    DomainPassword = "senha"
    DomainUsername = "usuário"

    Set objWMIService = GetObject("Winmgmts:root\cimv2")

    For Each objComputer in _
        objWMIService.InstancesOf("Win32_ComputerSystem")

            Return = objComputer.JoinDomainOrWorkgroup(DomainName,DomainPassword,DomainUsername)
            If Return <> 0 Then
               WScript.Echo "Falha! Erro = " & Err.Number
            Else
               WScript.Echo "Sucesso!" & " Reinicie o computador para que a modificação tenha efeito"
            End If

    Next

     

     

     

    segunda-feira, 10 de setembro de 2007 21:22

Todas as Respostas

  • Aqui tem um que adiciona um computador ao domínio:

    http://www.microsoft.com/technet/scriptcenter/scripts/ad/computer/cptrvb06.mspx

    outro que renomeia computadores:

    http://www.microsoft.com/technet/scriptcenter/scripts/ad/computer/cptrvb14.mspx

    []s,

    --
    Vinicius Canto <scripterbr_at_gmail_dot_com>
    MVP Windows Server - Admin Frameworks
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Bacharelando em Ciências da Computação - USP

    Blog sobre Scripting e Windows Powershell: http://viniciuscanto.blogspot.com

    sábado, 8 de setembro de 2007 21:50
    Moderador
  • Este script pode ajudá-lo qualquer dúvida poste ai.

     

    Code Snippet

    Name = InputBox("Digite o nome que o computador receberá.","Rename")

    Password = "senha"
    Username = "usuário"

    Set objWMIService = GetObject("Winmgmts:root\cimv2")

    For Each objComputer in _
        objWMIService.InstancesOf("Win32_ComputerSystem")

            Return = objComputer.rename(Name,Password,User)
            If Return <> 0 Then
               WScript.Echo "Falha! Erro = " & Err.Number
            Else
               WScript.Echo "Sucesso!" & " Reinicie o computador para que a modificação tenha efeito"
            End If
    Next

    DomainName = InputBox("Digite o nome do dominio em que o computador será inserido","Dominio")

    DomainPassword = "senha"
    DomainUsername = "usuário"

    Set objWMIService = GetObject("Winmgmts:root\cimv2")

    For Each objComputer in _
        objWMIService.InstancesOf("Win32_ComputerSystem")

            Return = objComputer.JoinDomainOrWorkgroup(DomainName,DomainPassword,DomainUsername)
            If Return <> 0 Then
               WScript.Echo "Falha! Erro = " & Err.Number
            Else
               WScript.Echo "Sucesso!" & " Reinicie o computador para que a modificação tenha efeito"
            End If

    Next

     

     

     

    segunda-feira, 10 de setembro de 2007 21:22
  • Valeu!! Bruno esse script me ajudou muito...

    Um abraço...

    sábado, 7 de agosto de 2010 00:36
  • Você sabe se eu posso usar esse script no Windows 7?
    terça-feira, 8 de maio de 2012 14:00