DarkBoss
Messages postés154Date d'inscriptionsamedi 3 août 2002StatutMembreDernière intervention12 décembre 2008
-
25 mai 2003 à 12:29
Coke Hax
Messages postés7Date d'inscriptionlundi 26 juin 2006StatutMembreDerniè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.
Coke Hax
Messages postés7Date d'inscriptionlundi 26 juin 2006StatutMembreDernière intervention 8 août 20061 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és75Date d'inscriptiondimanche 2 octobre 2005StatutMembreDernière intervention24 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és75Date d'inscriptiondimanche 2 octobre 2005StatutMembreDernière intervention24 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és248Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention15 mars 200733 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és3Date d'inscriptionlundi 16 février 2004StatutMembreDerniè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és10Date d'inscriptionvendredi 23 avril 2004StatutMembreDernière intervention27 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és20Date d'inscriptionsamedi 2 août 2003StatutMembreDernière intervention19 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és65Date d'inscriptionjeudi 28 août 2003StatutMembreDernière intervention29 septembre 20051 28 août 2003 à 14:04
cs_Jayz
Messages postés27Date d'inscriptionsamedi 7 juin 2003StatutMembreDerniè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és3Date d'inscriptiondimanche 16 février 2003StatutMembreDernière intervention17 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és27Date d'inscriptionsamedi 7 juin 2003StatutMembreDerniè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és138Date d'inscriptionjeudi 24 avril 2003StatutMembreDerniè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és154Date d'inscriptionsamedi 3 août 2002StatutMembreDernière intervention12 décembre 2008 12 juin 2003 à 07:53
dans 1 fichier texte avec l' extension .vbs et apres tu l' execute !
aannick
Messages postés138Date d'inscriptionjeudi 24 avril 2003StatutMembreDerniè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és154Date d'inscriptionsamedi 3 août 2002StatutMembreDernière intervention12 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 @ +++
8 août 2006 à 03:28
Placez un contrôle Winsock dans votre feuille nommé Winsock1
Public Sub Command1_Click()
MsgBox Winsock1.LocalIP
End Sub
18 mars 2006 à 12:14
moi mon adresse ip se trouve dans {A7C48F09-F650-410D-ACAF-9BF7CA573212}
quelqu'un sait comment retrouver ce chemin automatiquement ?
18 mars 2006 à 12:11
donc je voudrait savoir si on peut retrouver ce chemin automatiquement
26 févr. 2006 à 16:08
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
2 sept. 2005 à 15:32
20 janv. 2005 à 22:12
****************************************
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
8 mai 2004 à 18:55
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)
28 août 2003 à 14:04
6 août 2003 à 11:45
27 juil. 2003 à 12:49
@echo.
@ipconfig | find "Adresse IP"
@echo.
@pause
Tu peut le démarrer quand tu veux et à partir de n'importe quel programme.
17 juin 2003 à 01:19
12 juin 2003 à 08:01
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!!!!!
12 juin 2003 à 07:53
12 juin 2003 à 03:50
il faut taper ce texte où exactement ? pour avoir son adresse IP
je suis sous win 2000 pro
merci
25 mai 2003 à 12:29