Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 09 02:25:02

ESSAYEZ WINDOWS 7 GRATUITEMENT DèS DEMAIN par fabien

LUCENE - IGNORER LES ACCENTS LORS DE L'INDEXATION ET LA RECHERCHE | IGNORE DIACRITICS par cyril

MESH OBJECTS BROWSER - MOB 1.0 SUR CODEPLEX par redo

MICROSOFT TAG par khamlon

[LINQTOSQL] REQUêTES ASYNCHRONES SIMULTANéES par NeuroCypher

RE : MACRO WORD RECHERCHE DE PUCE par Orohena

RE : RECHERCHE D'UNE VALEUR DANS EXCEL EN VBS par SAFENil

RE : AFFICHER DYNAMIQUEMENT LA VALEUR DE LA COULEUR POINTéE PAR LA SOURIS SUR UNE IMAGE par Orohena

RE : "SI" AVEC PLUS PETIT/PLUS GRAND par weginale

RE : COMMENT éCRIRE LA DATE EN LETTRE par jack

+ de logiciels à télécharger

1 330 582 membres
46 nouveaux aujourd'hui
14 644 membres club

Trouver une ressource

Trouvez une ressource parmi 39 262 codes, 1 223 241 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CONNAITRE SON ADRESSE IP/ AFFICHER SON ADRESSE IP DANS UNE MSGBOX EN VBS

Information sur la source

Catégorie :VBScript Niveau : Débutant Date de création : 29/05/2004 Vu : 12 407

Auteur : hodaking

Ecrire un message privé

Note :

1,50 / 10

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Ce script vous permet d'afficher votre adresse ip dans une msgbox.

Source

set r=createobject("wscript.shell")
S=r.regread("HKEY_LOCAL_MACHINE\system\controlSet001\services\Tcpip\Parameters\Interfaces\{90B725AD-74AE-4918-B5C9-BBDB258174BA}\DhcpIPAddress")
if S="0.0.0.0" then
msgbox "Votre adresse IP est: 127.0.0.1"
else
msgbox "Votre adresse IP est: "&S
end if

set r=createobject("wscript.shell")
 S=r.regread("HKEY_LOCAL_MACHINE\system\controlSet001\services\Tcpip\Parameters\Interfaces\{90B725AD-74AE-4918-B5C9-BBDB258174BA}\DhcpIPAddress")
if S="0.0.0.0" then


msgbox "Votre adresse IP est: 127.0.0.1"

else
msgbox "Votre adresse IP est: "&S
end if

Conclusion

En fait l'ip est enregistrée par votre ordinateur XP dans la base de registre!
Il me suffisait de la pomper et de l'intégrer dans un script! L'ip qui se trouve
dans cette base quand vous n'êtes pas connecté est 0.0.0.0. J'ai fait en sorte
qu'elle s'affiche 127.0.0.1.

Je sais que la clé est impossible à retenir mais j'ai rien trouvé d'autre!
Si vous connaissez plus simple (toujours en vbs) publiez le car je n'ai rien trouvé à ce sujet dans le forum!
PS=Sur mon PC ça fonctionne mais pour vous je sais pas! ESSAYEZ!;P

Sources du même auteur

JEU EN VBSCRIPT (SORTE DE SPACE INVADER)

CACHE UN SCRIPT DANS UN FICHIER (TRUC VRAIMENT SIMPLE POUR D...

ENVOYER UN MAIL AVEC VBSCRIPT (DU DÉJA VU SUR CE SITE)

ENVOIE DE MAILS ANONYMES AVEC VBS!!! (SANS PASSER PAR WINSOC...

CHANGER LE MOT DE PASSE ADMINISTRATEUR (EN VBS)

Toutes les sources de hodaking

Sources de la même categorie

RESET STATUS DES TÂCHES PLANIFIEES - MODIFICATION FICHIER BI... par gorgotte

VBSCRIPT --> CONVERSION DE FICHIER TEXTE EN FICHIER EXCEL PA... par thorspark

LISTE DES FICHIERS D'UNE ABORESCENCE DE DOSSIERS par Niko2003

BORNE MULTIMÉDIA SIMPLISSIME par piergel

COMPRESSION ET UPLOAD VERS UN SERVEUR FTP par hackoo

Toutes les sources de la catégorie VBScript

Commentaires et avis

Commentaire de astuceur le 29/05/2004 20:44:42

salur
dsl " racine incorrecte ds votre base de registre"

v essayer de chercher un truc du genre çà sert pas mal ;)
thx

Commentaire de FearBlue le 29/05/2004 23:04:56

Marche pas !!!!!!
Erreur de clé dans la base de registre !!!!
Dommage

Commentaire de DeadlyPredator le 30/05/2004 02:59:15

NORMAL TU UITILISE LA CLÉE DONT LE NOM EST LE GUID DE LA CARTE RÉSEAU. IL EST DIFFÉRENT POUR CHAQUE ORDI.

Commentaire de Devil17049 le 08/07/2004 21:55:51

moi pariel ca marche po mé c super efficace t un pro ac tes idées ;)

Commentaire de syia le 31/10/2004 02:12:44

et bah error registre

Commentaire de zeunz le 17/05/2006 17:37:55

slt moi je l'ai trouve ds cette cle de la base de registre:
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{9D5AF6A2-C517-4A7D-97A5-9E7A9B12939D}

et elle me donne le bon ip. reste plus qu'a faire le meme genre de prog ki lit une valeur de la base de registre.
a voir...