Connaitre son adresse ip/ afficher son adresse ip dans une msgbox en vbs

Soyez le premier à donner votre avis sur cette source.

Snippet vu 20 781 fois - Téléchargée 28 fois

Contenu du snippet

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

Source / Exemple :


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

A voir également

Ajouter un commentaire

Commentaires

denichons
Messages postés
1
Date d'inscription
mercredi 8 septembre 2010
Statut
Membre
Dernière intervention
8 septembre 2010

Bonjour

A tout hasard, y aurait il quelqu'un qui sait s'il est possible de "shinter" le dossier "{90B725AD-74AE-4918-B5C9-BBDB258174BA}" du script qui nous ai proposé?

En effet j'ai besoin de récupérer l'adresse IP de la machine depuis la base de registre mais comme le "QUID" de la carte réseau est différent pour chaque PC, il ne m'est pas possible d'aller à chaque fois dans cette même arborescence pour récupérer la valeur!

Il faudrai un truc du genre:

# set r=createobject("wscript.shell")
# S=r.regread("HKEY_LOCAL_MACHINE\system\controlSet001\services\Tcpip\Parameters\Interfaces\*\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

merci de vos retours et/ou idées...
zeunz
Messages postés
201
Date d'inscription
jeudi 26 février 2004
Statut
Membre
Dernière intervention
30 juin 2008

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...
syia
Messages postés
2
Date d'inscription
vendredi 31 janvier 2003
Statut
Membre
Dernière intervention
26 mai 2005

et bah error registre
Devil17049
Messages postés
20
Date d'inscription
dimanche 2 mai 2004
Statut
Membre
Dernière intervention
28 octobre 2004

moi pariel ca marche po mé c super efficace t un pro ac tes idées ;)
DeadlyPredator
Messages postés
222
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
30 juin 2008

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

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.