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

1/5 (7 avis)

Snippet vu 21 580 fois - Téléchargée 30 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

8 sept. 2010 à 13:53
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
200
Date d'inscription
jeudi 26 février 2004
Statut
Membre
Dernière intervention
30 juin 2008

17 mai 2006 à 17:37
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

31 oct. 2004 à 02:12
et bah error registre
Devil17049
Messages postés
20
Date d'inscription
dimanche 2 mai 2004
Statut
Membre
Dernière intervention
28 octobre 2004

8 juil. 2004 à 21:55
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

30 mai 2004 à 02:59
NORMAL TU UITILISE LA CLÉE DONT LE NOM EST LE GUID DE LA CARTE RÉSEAU. IL EST DIFFÉRENT POUR CHAQUE ORDI.
Afficher les 7 commentaires

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.