none
DNS - Alterar IP de host via Script RRS feed

  • Pergunta

  • Olá,
    Tenho a seguinte necessidade, tenho 1 server W2003 rodando DNS, nesse DNS tem 1 entrada host de nome "remoto" que aponta para o IP 192.168.1.1, ocorre que tem outro equipamento que fica monitorando a rede e caso o Host 192.168.1.1 "caia", outro host de IP 192.168.2.1 vai substituir o 192.168.1.1, porém o nome do host no DNS deve ser o mesmo, nesse caso o "remoto" deve apontar para 192.168.2.1.
    Gostaria de saber se isso pode ser feito através de um script que será acionado pelo "servidor de monitoramento" e que altere o host no DNS.
    Caso exista outra forma, aceito sugestão.
    Desde já, muito obrigado.

    quinta-feira, 6 de dezembro de 2007 19:03

Respostas

  • O Script abaixo pode ser adaptado para o seu cenário:

    Basta mudar o valor das variáveis e o nome da conexão (Local Area Connection)

    Dim strIPAddress
    Dim strSubnetMask
    Dim strGateway
    Dim intGatewayMetric
    Dim strDns1
    Dim strDns2
    
    strIPAddress = "10.10.10.50"
    strSubnetMask = "255.255.255.0"
    strGateway = "10.10.10.1"
    intGatewayMetric = 1
    strDns1 = "10.10.10.9"
    strDns2 = "10.10.10.10"
    
    Set objShell = WScript.CreateObject("Wscript.Shell")
    objShell.Run "netsh interface ip set address name=""Local Area Connection"" static " & strIPAddress & " " & strSubnetMask & " " & strGateway & " " & intGatewayMetric, 0, True
    objShell.Run "netsh interface ip set dns name=""Local Area Connection"" static "& strDns1, 0, True
    objShell.Run "netsh interface ip add dns name=""Local Area Connection"" addr="& strDns2, 0, True
    Set objShell = Nothing
    WScript.Quit

    http://jordanomazzoni.com.br Foi util pra voce esta informação ? Classifique http://twitter.com/jordanomazzoni
    quarta-feira, 16 de março de 2011 11:34

Todas as Respostas

  • Post movido para área Scripts Administrativos.

     

    domingo, 16 de dezembro de 2007 13:15
  • Tenta utilizar este modelo:

     

    Code Block

    strDNSServer = "atl-dc-03.fabrikam.com"
    strContainer = "fabrikam.com"
    strOwner = "server01.fabrikam.com"
    intRecordClass = 1
    intTTL = 600
    strIPv4Address = "192.168.0.1"
     
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & _
            "\root\MicrosoftDNS")

    Set objItem = objWMIService.Get("MicrosoftDNS_AAAAType")
    errResult = objItem.CreateInstanceFromPropertyData _
        (strDNSServer, strContainer, strOwner, intRecordClass, _
            intTTL, strIPv4Address)
     

     

     

     

    terça-feira, 18 de dezembro de 2007 12:41
  • O Script abaixo pode ser adaptado para o seu cenário:

    Basta mudar o valor das variáveis e o nome da conexão (Local Area Connection)

    Dim strIPAddress
    Dim strSubnetMask
    Dim strGateway
    Dim intGatewayMetric
    Dim strDns1
    Dim strDns2
    
    strIPAddress = "10.10.10.50"
    strSubnetMask = "255.255.255.0"
    strGateway = "10.10.10.1"
    intGatewayMetric = 1
    strDns1 = "10.10.10.9"
    strDns2 = "10.10.10.10"
    
    Set objShell = WScript.CreateObject("Wscript.Shell")
    objShell.Run "netsh interface ip set address name=""Local Area Connection"" static " & strIPAddress & " " & strSubnetMask & " " & strGateway & " " & intGatewayMetric, 0, True
    objShell.Run "netsh interface ip set dns name=""Local Area Connection"" static "& strDns1, 0, True
    objShell.Run "netsh interface ip add dns name=""Local Area Connection"" addr="& strDns2, 0, True
    Set objShell = Nothing
    WScript.Quit

    http://jordanomazzoni.com.br Foi util pra voce esta informação ? Classifique http://twitter.com/jordanomazzoni
    quarta-feira, 16 de março de 2011 11:34