none
Mudar DNS para Automatico.

    Question

  • 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

    Wednesday, February 20, 2013 12:06 PM

Answers

  • Código Funcionando para configurar IP para automatico e DNS para 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

    Wednesday, February 20, 2013 4:34 PM

All replies