begin process at 2010 02 10 03:15:45
  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 :13 603
Auteur : hodaking

Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
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

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

AFFICHER LES SESSIONS ACTUELLEMENT OUVERTES par djebbipgm
SCRIPT VBS DE DÉFINITION DE MOT DE PASSE par djebbipgm
ACTIVATION/DÉSACTIVATION DE PROXY WEB par djebbipgm
CRÉATION DE SOUS-RÉPERTOIRE À PARTIR DU MENU CONTEXTUEL par djebbipgm
CORRIGER RÉCURSIVEMENT LA CIBLE DES RACCOURCIS D'UN RÉPERTOI... par sammounier
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...

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Console Nintendo DS Lite Rouge
Entre 137€ et 160€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

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,577 sec (4)

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)