ADRESSE IP LOCALE ET ADRESSE IP PUBLIQUE
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
24 mars 2009 à 07:52
cs_hackoo Messages postés 91 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 29 juillet 2013 - 13 juin 2012 à 03:03
cs_hackoo Messages postés 91 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 29 juillet 2013 - 13 juin 2012 à 03:03
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/49614-adresse-ip-locale-et-adresse-ip-publique
https://codes-sources.commentcamarche.net/source/49614-adresse-ip-locale-et-adresse-ip-publique
13 juin 2012 à 03:03
Voila un autre script pour obtenir l'adresse IP Publique:
Titre = "Adresse Ip Publique !"
URL = "http://autoitscript.fr/fai.php"
Set ie = CreateObject("InternetExplorer.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
ie.Navigate (URL)
ie.Visible=false
DO WHILE ie.busy
wscript.sleep 100
LOOP
Data = ie.document.documentElement.innertext
'MsgBox Data
Set objRegex = new RegExp
objRegex.Pattern = "(\d+.*)"
objRegex.Global = True
objRegex.IgnoreCase = True
Set Matches = objRegex.Execute(Data)
For Each Match in Matches
Result=objRegex.Replace(Match.Value,"$1")
MsgBox Result,64,Titre
Next
12 juin 2012 à 18:27
15 mai 2009 à 19:12
Mon projet : detourner mon manque d'ip fixe publique sur ma connexion internet Orange
Méthodologie envisagée : gérer mon propre serveur DNS en interne et mettre à jour régulierement les enregistrements en fonction de mon ip publique récupérée par le bias de ton script.
Merci