Vb script de récupération de l'adresse ip publique de votre livebox 2
Contenu du snippet
Permet de récupérer l'adresse IP d'une LiveBox 2 sans passer par un serveur externe.
Et en utilisant le BAT ci-dessous copie l'adresse dans un fichier.
@echo off
cscript GetInternetIP.vbs > adrip.txt
for /F %%A in (adrip.txt) do set adrip=%%A
echo L'adresse IP LAN est : %adrip%
Et en utilisant le BAT ci-dessous copie l'adresse dans un fichier.
@echo off
cscript GetInternetIP.vbs > adrip.txt
for /F %%A in (adrip.txt) do set adrip=%%A
echo L'adresse IP LAN est : %adrip%
Source / Exemple :
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Call objHTTP.Open("GET", "http://192.168.1.1/", FALSE)
objHTTP.Send
Pos_IP0 = instr(objHTTP.ResponseText,"Adresse IP WAN")
Pos_Ip0 = instr(Pos_IP0,objHTTP.ResponseText,"class=")
Pos_IP0 = instr(Pos_IP0,objHTTP.ResponseText,">")+1
Pos_IP1 = instr(Pos_IP0,objHTTP.ResponseText,"<")
Val_IP = mid(objHTTP.ResponseText,Pos_IP0,Pos_IP1-Pos_IP0)
wscript.echo Val_IP
A voir également
- Vb script de récupération de l'adresse ip publique de votre livebox 2
- Application de loto turbo 2 - Forum C / C++ / C++.NET
- Tableau de turbo 2 - Forum VB.NET
- TURBO C++ et blocks que choisir ✓ - Forum C
- Affichage numeros loto - Forum Visual Basic 6
- Turbo assembleur 5.0 - Forum ASM
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.