none
Configurar IP, DNS, Gateway para ser dinâmico com script .bat RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Pessoal,

    Estou precisando de uma ajuda.

    Estou em um projeto e me encontro atualmente na etapa de ir em todas as estações de trabalho e colocá-las para buscarem IP, DNS e Gateway tudo dinamicamente.

    Preciso da ajuda de vocês para bolar um script que faça isso.

    Estive buscando conhecimento na Internet e percebi que o comando NETSH faz isso, mas eu ainda não o entendi

    Conto com a colaboração de vocês.

     

    Desde já, muito obrigado!!

    sexta-feira, 12 de novembro de 2010 02:26
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Segue... Também estava com essa dúvida... acabei de testar:

    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 
    'Reset IP Address and Default Gateway to DHCP 
    errEnable = objNetAdapter.EnableDHCP() 
    'Reset DNS Server list to DHCP 
    arrDNSServers = Array() 
    objNetAdapter.SetDNSServerSearchOrder(arrDNSServers) 
    'Reset DNS Server Domain to DHCP 
    strDNSDomain = "" 
    objNetAdapter.SetDNSDomain strDNSDomain 
    'Reset WINS Server list to DHCP 
    strPrimaryServer = "" 
    strSecondaryServer = "" 
    objNetAdapter.SetWINSServer strPrimaryServer, strSecondaryServer 
    'Reset DNS Server Suffix list 
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
    Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration") 
    arrDNSSuffixes = Array("", "") 
    objNetworkSettings.SetDNSSuffixSearchOrder(arrDNSSuffixes) 
Next

    segunda-feira, 9 de setembro de 2013 21:07
    |

Todas as Respostas

  • Question
    Entrar para Votar
    1
    Entrar para Votar

    Coletado aqui do forum mesmo de posts antigos...

    Salva como VBS, e se for usuario restrito ele vai ter que estar no grupo "Operadores de configuração de rede" , mas se todo mundo for administrador não precisa é so rodar no logon do usuario.

    'PARA COLOCAR DE IP ESTATICO PARA DINAMICO NA PLACA DE REDE

     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

    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

    Paul
    terça-feira, 16 de novembro de 2010 12:37
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Caro Paulo,

     

    Testei aqui e deu certo o IP sim, mas não obtive sucesso no DNS, ele continuou manual. Teria como você me ajudar?

     

    Abraço!

    terça-feira, 16 de novembro de 2010 12:59
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Segue... Também estava com essa dúvida... acabei de testar:

    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 
    'Reset IP Address and Default Gateway to DHCP 
    errEnable = objNetAdapter.EnableDHCP() 
    'Reset DNS Server list to DHCP 
    arrDNSServers = Array() 
    objNetAdapter.SetDNSServerSearchOrder(arrDNSServers) 
    'Reset DNS Server Domain to DHCP 
    strDNSDomain = "" 
    objNetAdapter.SetDNSDomain strDNSDomain 
    'Reset WINS Server list to DHCP 
    strPrimaryServer = "" 
    strSecondaryServer = "" 
    objNetAdapter.SetWINSServer strPrimaryServer, strSecondaryServer 
    'Reset DNS Server Suffix list 
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
    Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration") 
    arrDNSSuffixes = Array("", "") 
    objNetworkSettings.SetDNSSuffixSearchOrder(arrDNSSuffixes) 
Next

    segunda-feira, 9 de setembro de 2013 21:07
    |