none
DNS - Alterar IP de host via Script RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Post movido para área Scripts Administrativos.

     

    domingo, 16 de dezembro de 2007 13:15
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |