Accueil > > > VB SCRIPT DE RÉCUPÉRATION DE L'ADRESSE IP PUBLIQUE DE VOTRE LIVEBOX 2
 VB SCRIPT DE RÉCUPÉRATION DE L'ADRESSE IP PUBLIQUE DE VOTRE LIVEBOX 2
 Information sur la source
 Description
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%
 Source
- 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
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
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Alors la je plante, je pense qu'elle est facile celle-la !!! [ par Cyril ]
Bon alors ce coup la mon pb, et je pense et j'espere un reel pb de debutant qui n'a pas fait de VB depuis la version 3.J'ai 2 forms, form1 et form2, f
FACILE et me sauvant la vie [ par eddy ]
je voudrait simplement savoir comment déclarer une variable commune à tous les frmSplash (tous les formulaires en fait) de mon projetmerci de me répon
Truc facile (code ASCII) [ par Lolo ]
Comment on convertit une lettre en code ASCII ???Je ne sais plus du tout !!! honte a moi :--((((Merci
kestion ultra facile pour directx [ par kelk'un ki aimerai bien avoir les résultats !!! ]
Salut !je vien de commencer a aprendre directx - directdraw et je trouve ca vachement coolsauf ke dans le tutorial ke g, ben y disent comment tracer u
c facile aider moi svp! sendkeys [ par Quiske ]
voila j'utilise la fonction sendkeys pour silmuler une pression de touche par exemple pour la touche alt le code sera:Sendkeys "%" mais cela ne me pe
c facile aider moi svp!! sendeys [ par Quiske ]
voila j'utilise la fonction sendkeys pour silmuler une pression de touche par exemple pour la touche alt le code sera:Sendkeys "%" mais cela ne me pe
LE RETOUR DU !!! TRES FACILE ET TRES URGENT !!! [ par Gilles ]
Personne aurait un moyen net, clair et precis pour faire une requete parametree ? J'ai vu qu'on pouvait se servir des composants RDO, ADO ou DAO (plus
Je pense facile mais il faut savoir!! sur le traitement des erreurs Access [ par Nitocris ]
A la fermeture d'un de mes formulaires j'ai une erreur qui peut apparaitre si certains champs ne sont pas remplis.Erreur 3314 qui apparaît quand un ch
Niveau 1, 2, 3 : c'est quoi au juste ? [ par Patrice99 ]
Salut,pour les contributions, il faut indiquer un niveau (1, 2, 3) : c'est le niveau de quoi au juste ? de la complexité du code source (1 facile ou b
Euroconvecteur facile sauf si on complique [ par Gérard Mensoif ]
C'est bien beau tout ça mais pendant 1 mois et 17 jours on va pouvoir régler dans les deux monaies et si une personne veut se débarrasser d'un billet
|
Derniers Blogs
 ETENDRE LE TEAM WEB ACCESS DE TFS 2012 - STEP 0ETENDRE LE TEAM WEB ACCESS DE TFS 2012 - STEP 0 par Philess
L'extensibilité du Team Web Access
Le Web Access (site d'équipe) de Team Foundation Server a été complètement réécrit dans la version 2012 avec pas moins de 400.000 lignes de JavaScript. Ce nouveau modèle a été pensé pour offrir de grandes...
Cliquez pour lire la suite de l'article par Philess SIMULER FACILEMENT L'ENVOI DE MAILSIMULER FACILEMENT L'ENVOI DE MAIL par JeremyJeanson
il m'a été demandé, à plusieurs reprises, comment je faisais pour simuler l'envoi de mail lors de mes démos de Workflow Foundation. Ma solution est plutôt simple : j'utilise la configuration par défaut du SmtpClient et j'oriente les mails vers un dossier ...
Cliquez pour lire la suite de l'article par JeremyJeanson VOTEZ POUR LE TOP 10 DES INFLUENCEURS SHAREPOINT FRANCOPHONES !VOTEZ POUR LE TOP 10 DES INFLUENCEURS SHAREPOINT FRANCOPHONES ! par Patrick Guimonet
Si ce n'est déjà fait (comme plus de 600 personnes déjà), il est encore temps de voter pour le concours TOP 10 des influenceurs SharePoint francophones ! Il est organisé par harmon.ie et accessible ici : http://harmon.ie/top-...
Cliquez pour lire la suite de l'article par Patrick Guimonet [CONF'SHAREPOINT] DERNIER RAPPEL ! :-)[CONF'SHAREPOINT] DERNIER RAPPEL ! :-) par Patrick Guimonet
La Conf'SharePoint en chiffres c'est : 3 jours de SharePoint ! 4 parcours et 60 sessions 17 partenaires représentant toutes les fac...
Cliquez pour lire la suite de l'article par Patrick Guimonet
Logiciels
 Easy-Planning (4.5.0.11)EASY-PLANNING (4.5.0.11)Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté a... Cliquez pour télécharger Easy-Planning CVEasy (3.1.0.51)CVEASY (3.1.0.51)PHMSD-CVEasy est un logiciel d'aide à la rédaction de CV d'une simplicité déconcertante.
PHMSD-C... Cliquez pour télécharger CVEasy LettresFaciles 2011 (8.6.0.31)LETTRESFACILES 2011 (8.6.0.31)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011 sDEVIS-FACTURES vlPRO (8.4.2.62)SDEVIS-FACTURES VLPRO (8.4.2.62)sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa... Cliquez pour télécharger sDEVIS-FACTURES vlPRO Devis-Factures PHMSD (2.1.0.11)DEVIS-FACTURES PHMSD (2.1.0.11)Configuration minimale
Nécessite Windows™ 2000, XP, Windows 7, 8, Vista (Service Pack à... Cliquez pour télécharger Devis-Factures PHMSD
|