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

  • Pergunta

  • 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

  • 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

  • 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
  • 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
  • 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