TROUVER SON ADRESSE IP TOUT SIMPLEMENT !

DarkBoss Messages postés 154 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 12 décembre 2008 - 25 mai 2003 à 12:29
Coke Hax Messages postés 7 Date d'inscription lundi 26 juin 2006 Statut Membre Dernière intervention 8 août 2006 - 8 août 2006 à 03:28

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4806-trouver-son-adresse-ip-tout-simplement

Coke Hax Messages postés 7 Date d'inscription lundi 26 juin 2006 Statut Membre Dernière intervention 8 août 2006 1
8 août 2006 à 03:28

Encore plus simple :

Placez un contrôle Winsock dans votre feuille nommé Winsock1

Public Sub Command1_Click()
MsgBox Winsock1.LocalIP
End Sub

mongol77 Messages postés 75 Date d'inscription dimanche 2 octobre 2005 Statut Membre Dernière intervention 24 juin 2007
18 mars 2006 à 12:14

salut,

moi mon adresse ip se trouve dans {A7C48F09-F650-410D-ACAF-9BF7CA573212}
quelqu'un sait comment retrouver ce chemin automatiquement ?

mongol77 Messages postés 75 Date d'inscription dimanche 2 octobre 2005 Statut Membre Dernière intervention 24 juin 2007
18 mars 2006 à 12:11

salut , moi mon adresse ip est dans {A7C48F09-F650-410D-ACAF-9BF7CA573212)
donc je voudrait savoir si on peut retrouver ce chemin automatiquement

tekila_bandita Messages postés 248 Date d'inscription mercredi 15 juin 2005 Statut Membre Dernière intervention 15 mars 2007 33
26 févr. 2006 à 16:08

Moi je trouve ce code très bien, au moins il marche.
Et s'il vous plait, arrettez de nous montrer du bat, d'une : ici on est sur vbfrance, et de deux, si on veut vraiment trouver son ip tout betement, au lieu de tapé tes commandes dans un bat, tu le tape directos dans le cmd...Alors chut!
9/10

eric81500 Messages postés 3 Date d'inscription lundi 16 février 2004 Statut Membre Dernière intervention 1 octobre 2004
2 sept. 2005 à 15:32

Normal, car dans la clé de registre le code indiqué {892CF089-46F8-4737-8673-DA4EAC57FA9F} est propre à la machine de Ashtheone , il est donc différent dans chaque machine....... jète un oeil avec regedit sur la clé citée tu verras le code de ta machine.....

titchouno Messages postés 10 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 27 janvier 2005
20 janv. 2005 à 22:12

Salut, j' ai testé par curiosité le prog. Ashtheone
****************************************
Option Explicit

Private Sub form_load()

Dim ip As String

RegLire "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{892CF089-46F8-4737-8673-DA4EAC57FA9F}\DhcpIPAddress", ip

End Sub

Public Sub RegLire(CheminComplet As String, Destination As String)

Dim WshShell

Set WshShell = CreateObject("Wscript.Shell")

Destination = WshShell.RegRead(CheminComplet)

End Sub
****************************************
mais en l'executant il survient une erreur dans le code que je ne resoud pas...
Avez vous une solution por ce mauvais pas?
Merci

Ashtheone Messages postés 20 Date d'inscription samedi 2 août 2003 Statut Membre Dernière intervention 19 mai 2004
8 mai 2004 à 18:55

Pour paraphraser anarchysniper :

Option Explicit

Private Sub form_load()

Dim ip As String

RegLire "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{892CF089-46F8-4737-8673-DA4EAC57FA9F}\DhcpIPAddress", ip

End Sub

Public Sub RegLire(CheminComplet As String, Destination As String)

Dim WshShell

Set WshShell = CreateObject("Wscript.Shell")

Destination = WshShell.RegRead(CheminComplet)

End Sub

C'est plus clair? ;o)

anarchysniper Messages postés 65 Date d'inscription jeudi 28 août 2003 Statut Membre Dernière intervention 29 septembre 2005 1
28 août 2003 à 14:04

Jayz > HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesTcpipParametersInterfaces{F2B97F8C-9BDE-45E4-9E4F-0E4F1A9121CE}DhcpIPAddress

cs_Jayz Messages postés 27 Date d'inscription samedi 7 juin 2003 Statut Membre Dernière intervention 6 août 2003
6 août 2003 à 11:45

AXX > je voulais rajouter que neanmoins nous avons un pb lié au fait que lorsque l'utilisateur final possede une ou plusieurs interfaces rezo, l'ip qui se degage par ces techniques y compris la mienne, on n'obtiendra en definitive que la derniere ip, ou avec la methode d'axx toutes les ip, mais si nous voulons nous concentrer sur l'ip de connexion internet, nous devons trouver la clé de la base de registre qui enregistre l'ip internet et non pas nous colttiner les ip locales qui n'ont pas grand interet hormis ds le cadre d'une utilisation pour un prog d'intranet

cs_AXX Messages postés 3 Date d'inscription dimanche 16 février 2003 Statut Membre Dernière intervention 17 mars 2009
27 juil. 2003 à 12:49

Il y a bien plus simple avec un fichier BAT
@echo.
@ipconfig | find "Adresse IP"
@echo.
@pause
Tu peut le démarrer quand tu veux et à partir de n'importe quel programme.

cs_Jayz Messages postés 27 Date d'inscription samedi 7 juin 2003 Statut Membre Dernière intervention 6 août 2003
17 juin 2003 à 01:19

salut je voudrais te dire ke ton idee etait pas mal, mais t'as qu'a coder un programme comme celui ci, autant dégagé unikment l'ip de ton fichier texte... je ne saurais le faire a partir de vbs, mais par contre en dos tu peut essayer la fonction for qui te permet de lire un fichier texte et de creer des variables ayant pour valeur unkment le bloc de données suivant une chaine de caractere specifique, ici en l'occurence xxx.xxx.xxx.xxx qui suit la chaine : Adresse IP :........... qui se trouve dans ton fichier texte

aannick Messages postés 138 Date d'inscription jeudi 24 avril 2003 Statut Membre Dernière intervention 2 mars 2009
12 juin 2003 à 08:01

hein pourquoi j'ai le norton qui s'ouvre et me dit malicious script detected your computer is halted ans needs to do something about this script il me l'a stoppé et j'avais remplacé ipcfg.exe par l'autre
en suite j'ai laissé passé et la message d'erreur il me met
erreur l'entrée dépasse la fin du fichier
cede 800a3003e
source erreur d'éxécution microsoft vbscript!!!!!

DarkBoss Messages postés 154 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 12 décembre 2008
12 juin 2003 à 07:53

dans 1 fichier texte avec l' extension .vbs et apres tu l' execute !

aannick Messages postés 138 Date d'inscription jeudi 24 avril 2003 Statut Membre Dernière intervention 2 mars 2009
12 juin 2003 à 03:50

bonjour
il faut taper ce texte où exactement ? pour avoir son adresse IP
je suis sous win 2000 pro
merci

DarkBoss Messages postés 154 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 12 décembre 2008
25 mai 2003 à 12:29

ne marche ke pour xp pour le faire marcher sur les otres a la place de ipconfig.exe fo mettre ipcfg.exe @ +++

Discussions similaires

Verifier la validité d'une Adresse IP

ouvrir une seul session

Erreur : Violation d'accès à l'adresse 00482976

Sécuriser l'authentification avec session

ecrire le nombre de fois qu 'un mot apparait

Votre réponse

Discussions similaires