RÉCUPÉRER L'ADRESSE IP DU PC (SIMPLE)

Messages postés
797
Date d'inscription
jeudi 17 mai 2001
Statut
Membre
Dernière intervention
5 mai 2009
- - Dernière réponse : thepoe
Messages postés
30
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
1 juin 2011
- 4 août 2006 à 16:04
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/26085-recuperer-l-adresse-ip-du-pc-simple

thepoe
Messages postés
30
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
1 juin 2011
-
Voici une fonction light du GetMyIP en VB 2005, si ca peut aider.

Cet exemple utilise le mode Console, mais la fonction est prête pour être intégrée dans un projet avec Form.

Module Module1
Sub main()
'La fonction retourne un objet du type System.Net.IPAdress
'On choisira la conversion par '.ToString'
Console.WriteLine(("Address: " + GetFirstIp().ToString))
End Sub
Function GetFirstIp()
Try 'Eh oui, maintenant on gere les erreurs...
' Obtenir un conteneur pour les informations sur l'adresse de l'hôte.
Dim heserver As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName())
' Obtenir le premier IP
GetFirstIp = heserver.AddressList(0)
Catch ex As Exception
'En cas d'érreur (genre pas d'ip, pas de carte réseau...),
'on renvoie le message la définissant
GetFirstIp = ex.Message
End Try
End Function
End Module
cpln
Messages postés
4
Date d'inscription
lundi 30 juin 2003
Statut
Membre
Dernière intervention
20 juin 2006
-
PARFAIT !

C'est exactement ce qu'il me falait !

Il me faut l'adresse local IP pour un réseau interne d'une entreprise pour un log! Cela convient donc parfaitement !

Grazias !
Merci MadM@tt
Morricon
Messages postés
41
Date d'inscription
lundi 23 décembre 2002
Statut
Membre
Dernière intervention
1 mars 2007
-
Bizarre... Personne n'a mis de note... Pourquoi ?

Pour ma part cette fonctionne très bien. Même si effectivement une station peut avoir plusieurs adresses (EBArtSoft)

Cependant il y en a toujours une qui est prioritaire sur les autres... Donc généralement la première adresse locale renvoyée sera la première déclarée dans les paramètres réseau.

Pour le reste je dirai que j'y ait trouvé mon compte... et je n'ai pas eu à le réécrire.

Merci MadM@tt

Bonne prog a tous.
MadM@tt
Messages postés
2215
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
-
Tiens ça m'interesse cette méthode, mais comment on fait pour savoir (meme dans le dos) à quel adresse IP le serveur il a répondu à mon ping (c'est a dire que cette adresse ip c'est la mienne) ?
Neo.balastik
Messages postés
797
Date d'inscription
jeudi 17 mai 2001
Statut
Membre
Dernière intervention
5 mai 2009
4 -
En effet, y a pas 36 façons d'y arriver...
Eventuellement faire un ping d'un serveur style Google, Yahoo, etc... Beaucoup de chance qu'ils répondent.