Je sais que la question que je vais poser a été posée un certain nombre de fois, mais je ne trouve pas de réponse qui fonctionne :
Comment recuperer mon adresse IP internet?

En effet quand je fais :
winsock.LocalIP
j'obtient mon adresse locale. Dans le pire des cas, pouvez vous m'indiquer comment lister toutes mes adresse IP dans une listebox, de maniere a ce que je choisisse la bonne?

Salut,

Cherche avec wmi

http://www.secretswindows.com/index.php?rubrique=scripts&ssrubrique=WMI&ID=149&page=./scripts/wmi/networking.htm

Je pense que ca fonctionne.

Quand tu a la reponse, merci de me l'indiquer pour info personnelles

merci pour ta reponse, l'heure est un peu tardive pour que je lise ca maintenant, mais ce que tu m'a donné est valable pour un autre langage que le VB, alors est-ce adaptable?
Je vais lire ça et te tenir au courant...

Si quelqu'un a une reponse en VB, elle est la bienvenue...

Salut,

voila
un code qui fait appel a wmi

1. Private Sub Command1_Click()
2. On Error Resume Next
3. Dim Nom_Du_Serveur As String
4. Nom_Du_Serveur = "127.0.0.1"
5. 'Appel WMI de l'object Win32_ScheduledJob
6. 'On peut creer la Tache sur un autre PC du groupe
7. Set Tâche = GetObject("winmgmts:\\" & Nom_Du_Serveur & "\root\cimv2:Win32_ScheduledJob")
8. Tâche.Create "Calc.exe", "********214000.000000-000" ',[Repeter as boolean], [JourDelaSemaine ], [Jourdumois],[InteractWithDesktop as boolean]), JobId
9. '0 x00000001 Lundi
10. '0 x00000002 Mardi
11. '0 x00000004 Mercredi
12. '0 x00000008 Jeudi
13. '0 x00000010 Vendredi
14. '0 x00000020 Samedi
15. '0 x00000040 Dimanche
16. 'Exp pou Lundi+Mardi 1+2 etc...
17. End Sub
18. 'Pour + de precision Ecrivez mo

Le reste du travail je te le laisse ;-)

Si tu cherches à récupérer ton IP Internet facilement et sans te prendre la tête, voici une petite fonction super simple: http://www.vbfrance.com/code.aspx?ID=35594

Par contre tu devras abandonner Winsock et opter pour le controle Inet.
La fonction est toute faite et j'ai essayé de bien commenter le code. T'as plus qu'à copier-coller ;)

@+