none
Alterar de IP Fixo para DHCP RRS feed

  • Pergunta

  • Amigos,

    Necessito alterar de IP fixo para DHCP em cerca de 100 máquinas.
    Existe como fazer isso via SCRIPT ? Se sim, devemos dar um "Renew" depois ?
    Rodrigo Fontes Tavares - Adm. de Redes UNIMEDSJC - Futuro MCP Exchange 2003
    sexta-feira, 13 de março de 2009 14:13

Respostas

  • Olá,

    Segue abaixo o script:

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colNetAdapters = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
     
    For Each objNetAdapter In colNetAdapters
        errEnable = objNetAdapter.EnableDHCP()
    Next

    Salve como vbs e Faça os testes.

    Poste os resultados.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    sexta-feira, 13 de março de 2009 15:34
  • Olá Rodrigo,

    Dei uma pesquisada e consegui....

    Segue abaixo:


    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colNetAdapters = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
     
    For Each objNetAdapter In colNetAdapters
        errEnable = objNetAdapter.EnableDHCP()
        errEnable = objNetAdapter.SetDNSServerSearchOrder()
        errEnable = objNetAdapter.SetDynamicDNSRegistration
    Next



    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    sexta-feira, 13 de março de 2009 20:31

Todas as Respostas

  • Olá amigo, postei uma questão semelhante e obtive a seguinte resposta do amigo Marlon Cavalli, estou testando aqui na minha máquina e comigo não funcionou, vou procurar outras opções e qq coisa te encaminho

    Um abraço
    Marcos

    A resposta do amigo Marlon é
    Bom Dia:


    Ai vai amigo.

     
    http://support.microsoft.com/kb/257748

    Ja utilizei este comando para bloquear o acesso a internet em casa "rsrsr". funciona muito bem

    e so vc criar uma script e colocar a comando.

    Para alternar o adaptador específico de um endereço estático para o protocolo DHCP, digite o comando a seguir:

    netsh interface ip set address "Local Area Connection" dhcp

    OBSERVAÇÃO
    : Ao digitar esse comando, você alterará a interface Conexão de área local para o protocolo DHCP.


    O unico detalhe a ser observado e o nome da interface no caso citado é "Local Area Connection"






    MARCOS COELHO
    sexta-feira, 13 de março de 2009 15:05
  • Olá amigo, postei uma questão semelhante e obtive a seguinte resposta do amigo Marlon Cavalli, estou testando aqui na minha máquina e comigo não funcionou, vou procurar outras opções e qq coisa te encaminho

    Um abraço
    Marcos

    A resposta do amigo Marlon é
    Bom Dia:


    Ai vai amigo.

     
    http://support.microsoft.com/kb/257748

    Ja utilizei este comando para bloquear o acesso a internet em casa "rsrsr". funciona muito bem

    e so vc criar uma script e colocar a comando.

    Para alternar o adaptador específico de um endereço estático para o protocolo DHCP, digite o comando a seguir:

    netsh interface ip set address "Local Area Connection" dhcp

    OBSERVAÇÃO
    : Ao digitar esse comando, você alterará a interface Conexão de área local para o protocolo DHCP.


    O unico detalhe a ser observado e o nome da interface no caso citado é "Local Area Connection"






    MARCOS COELHO
    sexta-feira, 13 de março de 2009 15:05
  • Olá,

    Segue abaixo o script:

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colNetAdapters = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
     
    For Each objNetAdapter In colNetAdapters
        errEnable = objNetAdapter.EnableDHCP()
    Next

    Salve como vbs e Faça os testes.

    Poste os resultados.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    sexta-feira, 13 de março de 2009 15:34
  • Jesiel,

    Mais uma vez seu SCRIPT funcionou perfeitamente.
    Só uma coisa, o DNS do Windows XP não alterou para DHCP tambem, eu precisaria do DNS tambem em DHCP.
    Sabes como faz isto ?

    =)
    Rodrigo Fontes Tavares - Adm. de Redes UNIMEDSJC - Futuro MCP Exchange 2003
    sexta-feira, 13 de março de 2009 17:01
  • Olá,

    Inclua a linha conforme abaixo:

    strComputer = "."
    Set NetDNS = CreateObject("Wscript.Shell")
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colNetAdapters = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
     
    For Each objNetAdapter In colNetAdapters
        errEnable = objNetAdapter.EnableDHCP()
        NetDNS.Run("netsh int ip set dns ""Nome da conexão-Geralmente é Conexão Local"" dhcp"), 2 ,true
    Next

     
    sexta-feira, 13 de março de 2009 17:59
  • Jesiel,

    Não há como não depender do nome da Placa ?
    Os nomes são diversos, perdendo assim o sentido do script.

    Att,
    Rodrigo Fontes Tavares - Adm. de Redes UNIMEDSJC - Futuro MCP Exchange 2003
    sexta-feira, 13 de março de 2009 18:47
  • Olá Rodrigo,

    Dei uma pesquisada e consegui....

    Segue abaixo:


    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colNetAdapters = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
     
    For Each objNetAdapter In colNetAdapters
        errEnable = objNetAdapter.EnableDHCP()
        errEnable = objNetAdapter.SetDNSServerSearchOrder()
        errEnable = objNetAdapter.SetDynamicDNSRegistration
    Next



    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    sexta-feira, 13 de março de 2009 20:31
  • Jesiel,

    PERFEITO.

    Muito obrigado novamente.
    Rodrigo Fontes Tavares - Adm. de Redes UNIMEDSJC - Futuro MCP Exchange 2003
    sexta-feira, 13 de março de 2009 20:54