Script para atualizar IP no NOIP

[Lula Moura]

Pessoal!

Estou precisando desenvolver um script que atualiza um IP no serviço DDNS do NOIP.

Eles fornecem uma dica para construção de uma API que descrevo a seguir:

http://username:password@dynupdate.no-ip.com/nic/update?

hostname=mytest.testdomain.com&myip=1.2.3.4

O meu problema é que não estou conseguindo enviar esta URL devidamente preenchida, o problema está no username:password@.

Se enviar com está dá erro, se tirar o username:password@ é preciso digitar no prompt os dados de autenticação para atualizar o IP.

Alguém tem alguma idéia de como passar estas informações de autenticação via GET?

LulaMoura

[Bicicleta]

Kara, não sabia que isso era possível hehehee... Tenho uma conta no no-ip, criei um novo host para testar e deu certo. Segue abaixo o script:

<%

str_UserName = "NomeDeUsuario"
str_Password = "SuaSenha"
str_HostName = "EndereDoHost.no-ip.biz"
str_NewIP    = "1.2.3.4"

Set http = Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET", "http://"& str_UserName &":"& str_Password &"@dynupdate.no-ip.com/nic/update?hostname="& str_HostName &"&myip="& str_NewIP, False
http.Send(str_XML)
str_Result = http.ResponseText
Set http = Nothing

Response.Write "<pre>Resultado: "& str_Result &"</pre>"

%>

Se der certo, vai aparecer algo como: "Resultado: good 1.2.3.4" Aqui pra mim funcionou. Testa ai e qualquer coisa posta ai.

Abraço.

[Lula Moura]

Ola Bicicleta!

Obrigado por responder!

Só que aqui continou sem funcionar, dá o seguinte erro: error '80004005' justamente na linha:

http.Open "GET", "http://"& str_UserName &":"& str_Password &"@dynupdate.no-ip.com/nic/update?hostname="& str_HostName &"&myip="& str_NewIP, False

Você sabe o que pode ser?

LulaMoura

Kara, não sabia que isso era possível hehehee... Tenho uma conta no no-ip, criei um novo host para testar e deu certo. Segue abaixo o script:

<%

str_UserName = "NomeDeUsuario"
str_Password = "SuaSenha"
str_HostName = "EndereDoHost.no-ip.biz"
str_NewIP    = "1.2.3.4"

Set http = Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET", "http://"& str_UserName &":"& str_Password &"@dynupdate.no-ip.com/nic/update?hostname="& str_HostName &"&myip="& str_NewIP, False
http.Send(str_XML)
str_Result = http.ResponseText
Set http = Nothing

Response.Write "<pre>Resultado: "& str_Result &"</pre>"

%>

Se der certo, vai aparecer algo como: "Resultado: good 1.2.3.4" Aqui pra mim funcionou. Testa ai e qualquer coisa posta ai.

Abraço.

[Bicicleta]

Tenta com esse outro componente:

<%

str_UserName = "NomeDeUsuario"
str_Password = "SuaSenha"
str_HostName = "EndereDoHost.no-ip.biz"
str_NewIP    = "1.2.3.4"

Set http = Server.CreateObject("MSXML2.XMLHTTP.3.0")
http.Open "GET", "http://"& str_UserName &":"& str_Password &"@dynupdate.no-ip.com/nic/update?hostname="& str_HostName &"&myip="& str_NewIP, False
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.Send()
str_Result = http.ResponseText
Set http = Nothing

Response.Write "<pre>Resultado: "& str_Result &"</pre>"

%>

Abraço!

[To na net]

Kara, não sabia que isso era possível hehehee... Tenho uma conta no no-ip, criei um novo host para testar e deu certo. Segue abaixo o script:

<%

str_UserName = "NomeDeUsuario"
str_Password = "SuaSenha"
str_HostName = "EndereDoHost.no-ip.biz"
str_NewIP    = "1.2.3.4"

Set http = Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET", "http://"& str_UserName &":"& str_Password &"@dynupdate.no-ip.com/nic/update?hostname="& str_HostName &"&myip="& str_NewIP, False
http.Send(str_XML)
str_Result = http.ResponseText
Set http = Nothing

Response.Write "<pre>Resultado: "& str_Result &"</pre>"

%>

Qual informação eu ponho nesse campo

str_NewIP = "1.2.3.4"

????

[bareta]

consulte a documentação no site do no-ip, provavelmente é o seu novo endereço de IP.