Récupérer l'adresse IP publique de sa box

**simoncelli** · 26/03/2013, 17h46

Bonjour à tous,

Voici l'architecture que j'ai mis en place :
<win7> - <livebox> - <internet> - <freebox> - <serveur FTP embarqué sur un NAS>

Je souhaite écrire un script (.vbs) qui s'exécute sur win7 et qui va récupérer l'adresse IP publique de la livebox (c-à-d l'IP vu depuis internet) puis écrire cette adresse dans un fichier qui se trouve sur le serveur FTP.

L'adresse IP de la freebox est connue et fixe, celle de la livebox est dynamique avec un bail de 7 jours.

l’algorithme plus en détail :
1 se connecter sur la page d'accueil de la livebox
2 renseigner les login et mdp
3 naviguer dans l'onglet configuration puis information système puis ADSL
4 récupérer l'adresse IP correspondant à la ligne Adresse IP WAN
5 se connecter à un serveur FTP dont l'adresse IP, le login et le mdp sont connus et fixe
6 mettre à jour un fichier texte avec l'adresse IP récupéré en 4.

Voici l'embryon de code inspiré d'ici http://vb.developpez.com/faqvbs/?page=II.3#vbsIE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'on error resume next
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate "livebox"
Do While (IE.Busy)
    WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("document.formu.authlogin.focus")
Helem.Value = "admin"
Set Helem = IE.document.getElementById("document.formu.authpasswd")
Helem.Value = "admin"
Set Helem = IE.document.Forms(0)
Helem.Submit

Sans on error resume next, l'exécution me renvoie une erreur ligne 10, objet requis Helem
avec, le navigateur web me renvoie une erreur d'authentification.

La page sur laquelle j'ai besoin de récupérer l'info est http://livebox/index.cgi?page=infosy...HGHQ2eqtsxC3io et sessionid prends une valeur aléatoire. Le code source montre que la référence "adresse ip wan" n'apparait qu'une seule fois.

Dès que mon code est au point, je partage, je ne dois pas être le seul à être embêté par l'IP dynamique de la livebox...

J'ai besoin de votre aide pour me mettre le pied à l'étrier, s'il vous manque des infos n'hésitez pas à me demander. En attendant vos réponses, je poursuis mes investigations.

Merci d'avance.

**omen999** · 26/03/2013, 18h00

bonjour,
il faudrait connaitre le source complet de la page de config de la livebox puisqu'il semble que ces bras cassés
ont viré l'accès telnet en même temps, je ne suis pas client orange

et sinon, il reste la technique d'interrogation d'un site spécialisé dans l'identification du WAN client
un exemple dans les contribs (le 1er msg) : http://www.developpez.net/forums/d12...e-ip-publique/
et puis ça fera plaisir à hackoofr

**simoncelli** · 26/03/2013, 18h26

J'ai progressé. Le problème venait de document.formu.authlogin.focus, à remplacer par ("authlogin"). Même buisness pour le password

Pourquoi faire simple quand on peut faire compliqué ? J'ai qu'à interroger http://www.monip.org/

au moins j'aurais fait un peu d'exercice

Je vais continuer d'éplucher la FAQ pour savoir comment récupérer l'IP de ce code source :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>MonIP.org v1.0</title>
<META http-equiv="Content-type" content="text/html; charset=ISO-8859-1">
</head>
<P ALIGN="center"><FONT size=8><BR>IP : 90.30.242.107<br></font><font size=3><i>AToulouse-754-1-31-107.w90-30.abo.wanadoo.fr</i><br></font><font size=1><br><br>Pas de proxy détecté - No Proxy detected</font></html>

Est-il possible de récupérer l'ensemble du code source d'une page web dans une variable ?

**hackoofr** · 26/03/2013, 18h43

5 se connecter à un serveur FTP dont l'adresse IP, le login et le mdp sont connus et fixe
6 mettre à jour un fichier texte avec l'adresse IP récupéré en 4.

Il vous reste alors, que ces étapes : 5 et 6

**simoncelli** · 26/03/2013, 18h52

Exact, et je n'ai pas la moindre idée de la manière de procéder. Je n'ai rien vu concernant le FTP dans la FAQ. En gros, j'ai besoin d'une instruction pour ouvrir la connexion, une pour vérifier que le fichier texte existe, le créer le cas échéant, et une autre pour faire la mise à jour du fichier.

Et en bonus : une instruction pour refermer la connexion proprement

Comment faire ?

Récupérer l'adresse IP publique de sa box

VBScript

Vue hybride

Discussions similaires

Partager

Partager