locked
Retirar Ip Fixo via GPO ou Script RRS feed

  • Pergunta

  •  

     

    Pessoal boa tarde!!!

    Os micros da minha rede estão configurados para utilizarem Ip Fixo, porém gostaria de alterar para DHCP.

    Alguém sabe como fazer isto via GPO, ou Script?

    Muito obrigado!!!

     

    Augusto

    segunda-feira, 14 de abril de 2008 20:41

Respostas

  • Augusto,

     

    via GPO não dá, mas via script pode ser assim:

    Code Snippet

    On Error Resume Next
    strComputer = InputBox("Type in the Computer Name","Computer Name Variable")
    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()
    objNetAdapter.SetDNSServerSearchOrder()
    objNetAdapter.SetDynamicDNSRegistration FULL_DNS_REGISTRATION, _
    DOMAIN_DNS_REGISTRATION
    NEXT

     

     

    Aqui tem outras dicas: http://www.microsoft.com/technet/scriptcenter/scripts/network/client/modify/default.mspx?mfr=true
    sexta-feira, 23 de maio de 2008 23:55

Todas as Respostas

  • Olá Augusto:

     

    O comando é:

     

    C:\> netsh int ip set address name="Conexão Local" source=dhcp
    C:\> netsh int ip set dns "Conexão Local" dhcp

     

    Maiores informações e créditos aqui: http://bobdicas.blogspot.com/2007/10/configurando-rede-via-linha-de-comando.html

     

    Abraço

     

    quarta-feira, 16 de abril de 2008 17:52
    Moderador
  • Augusto,

     

    via GPO não dá, mas via script pode ser assim:

    Code Snippet

    On Error Resume Next
    strComputer = InputBox("Type in the Computer Name","Computer Name Variable")
    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()
    objNetAdapter.SetDNSServerSearchOrder()
    objNetAdapter.SetDynamicDNSRegistration FULL_DNS_REGISTRATION, _
    DOMAIN_DNS_REGISTRATION
    NEXT

     

     

    Aqui tem outras dicas: http://www.microsoft.com/technet/scriptcenter/scripts/network/client/modify/default.mspx?mfr=true
    sexta-feira, 23 de maio de 2008 23:55