begin process at 2012 02 14 03:28:07
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBScript

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

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


 Information sur la source

Note :
1,5 / 10 - par 4 personnes
1,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBScript Niveau :Débutant Date de création :29/05/2004 Vu :15 811
Auteur : hodaking

Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (7)
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

Source avec Zip Source avec une capture JEU DE TANK ET UN ÉDITEUR DE NIVEAUX EN VBSCRIPT
Source avec Zip Source avec une capture JEU EN VBSCRIPT (SORTE DE SPACE INVADER)
CACHE UN SCRIPT DANS UN FICHIER (TRUC VRAIMENT SIMPLE POUR D...
Source avec Zip ENVOYER UN MAIL AVEC VBSCRIPT (DU DÉJA VU SUR CE SITE)
Source avec Zip ENVOIE DE MAILS ANONYMES AVEC VBS!!! (SANS PASSER PAR WINSOC...
Toutes les sources de hodaking

 Sources de la même categorie

Source avec Zip Source avec une capture RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo
Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip Source avec une capture [VBS] GOOGLE EASTER EGGS par hackoo
Source avec Zip Source avec une capture FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo
Source avec Zip Source avec une capture [VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... 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...

Commentaire de denichons le 08/09/2010 13:53:37

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...

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy S
Entre 529€ et 529€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,983 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)