none
Mudar DNS para Automatico.

    Pergunta

  • Estou cirando um código para mudar as maquinas da minha empresa para DHCP porem nao estou conseguindo definir os DNS com automaticamente.

    segue codigo.

    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

    Existe o comand:

    strDNS = Array("172.16.10.1","172.16.10.6") 'Coloque o IP DNS

    porem ele define ips para os DNS, queri a que ficassem automaticos.

    Alguem sabe como fazer isto em VBS.

    Obs.: tentei fazer via comando do netsh em um arquivo .bat, porem as conexoes das maquinas estão de finido como o nome (Conexão local) com o ã que na hora do executar o .bat ele nao reconhece e fala que a conexao nao existe, poir isto estou tentando fazer em vbs.


    Ricardo Ariati Felipe

    quarta-feira, 20 de fevereiro de 2013 12:01

Respostas

  • Tente isto

    strComputer = "."
    
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    
    Set colNetCards = objWMIService.ExecQuery _
        ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
    
    For Each objNetCard in colNetCards
        arrDNSServers = Array()
        objNetCard.SetDNSServerSearchOrder(arrDNSServers)
    Next


    Fábio de Paula Junior

    • Marcado como Resposta Ricardo A. Felipe quarta-feira, 20 de fevereiro de 2013 16:32
    • Não Marcado como Resposta Ricardo A. Felipe quarta-feira, 20 de fevereiro de 2013 16:32
    • Marcado como Resposta Ricardo A. Felipe quarta-feira, 20 de fevereiro de 2013 16:32
    • Não Marcado como Resposta Ricardo A. Felipe quarta-feira, 20 de fevereiro de 2013 16:32
    • Marcado como Resposta Ricardo A. Felipe quarta-feira, 20 de fevereiro de 2013 16:33
    quarta-feira, 20 de fevereiro de 2013 16:15
    Moderador

Todas as Respostas

  • Tente isto

    strComputer = "."
    
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    
    Set colNetCards = objWMIService.ExecQuery _
        ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
    
    For Each objNetCard in colNetCards
        arrDNSServers = Array()
        objNetCard.SetDNSServerSearchOrder(arrDNSServers)
    Next


    Fábio de Paula Junior

    • Marcado como Resposta Ricardo A. Felipe quarta-feira, 20 de fevereiro de 2013 16:32
    • Não Marcado como Resposta Ricardo A. Felipe quarta-feira, 20 de fevereiro de 2013 16:32
    • Marcado como Resposta Ricardo A. Felipe quarta-feira, 20 de fevereiro de 2013 16:32
    • Não Marcado como Resposta Ricardo A. Felipe quarta-feira, 20 de fevereiro de 2013 16:32
    • Marcado como Resposta Ricardo A. Felipe quarta-feira, 20 de fevereiro de 2013 16:33
    quarta-feira, 20 de fevereiro de 2013 16:15
    Moderador
  • Funcionou!

    Segue código para colocar o IP automatico e DNS automatico.

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

    Set colNetAdapters = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

    Set colNetCards = objWMIService.ExecQuery _
        ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

    For Each objNetAdapter In colNetAdapters
        errEnable = objNetAdapter.EnableDHCP()
    Next

    For Each objNetCard in colNetCards
        arrDNSServers = Array()
        objNetCard.SetDNSServerSearchOrder(arrDNSServers)
    Next


    Ricardo Ariati Felipe

    quarta-feira, 20 de fevereiro de 2013 16:33