begin process at 2012 02 11 06:40:34
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Réseau & Internet

 > NOM ET IP DE L'ORDINATEUR

NOM ET IP DE L'ORDINATEUR


 Information sur la source

Note :
6,67 / 10 - par 3 personnes
6,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Réseau & Internet Source .NET ( DotNet ) Niveau :Débutant Date de création :28/08/2003 Date de mise à jour :29/08/2003 14:16:14 Vu :11 893
Auteur : anarchysniper

Ecrire un message privé
Commentaire sur cette source (15)
Ajouter un commentaire et/ou une note

 Description

Voici un (très) petit code qui permet de récupérer le nom et l'ip de l'ordinateur. Pour ce qui est du nom, rien de particulier, uniquement un dns.gethostname. Comme suggéré par Jaiz dans un de ses commentaires sur une source destinée à récupérer l'ip de la machine, j'ai utilisé la base de registre pour récupérer l'adresse. N'étant pas en réseau, je ne sais pas si il retourne vraiment l'ip externe. Si quelqu'un avait l'extrême obligeance (ouh là ! j'en ai appris des mots, moi !) de tester mon code derrière un réseau et/ou un firewall, je pourrais l'améliorer.

Je compte en ourte y ajouter des fonctions pour récupérer l'adresse de réseau, de retour, etc.

N'hésiter pas à critiquer, les commentaires sont là (aussi) pour ça !

Source

  • imports system.net
  • Dim InfosMonOrdi As New IPHostEntry(), IpLocale As String
  • InfosMonOrdi = Dns.GetHostByName(Dns.GetHostName)
  • Dim WSHShell As Object
  • WSHShell = CreateObject("WScript.Shell")
  • IpLocale = WSHShell.regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{F2B97F8C-9BDE-45E4-9E4F-0E4F1A9121CE}\DhcpIPAddress")
  • MessageBox.Show("Nom de l'ordinateur : " & InfosMonOrdi.HostName & ControlChars.Cr & "Adresse IP : " & IpLocale) 
imports system.net

Dim InfosMonOrdi As New IPHostEntry(), IpLocale As String
        InfosMonOrdi = Dns.GetHostByName(Dns.GetHostName)
Dim WSHShell As Object
        WSHShell = CreateObject("WScript.Shell")
        IpLocale = WSHShell.regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{F2B97F8C-9BDE-45E4-9E4F-0E4F1A9121CE}\DhcpIPAddress")
        MessageBox.Show("Nom de l'ordinateur : " & InfosMonOrdi.HostName & ControlChars.Cr & "Adresse IP : " & IpLocale)

 Conclusion

Cependant, je ne suis pas sur que le répertoire de la base de registre soit fixe en fonction des versions de windows.


 Sources de la même categorie

Source avec Zip Source avec une capture GESTIONNAIRE DE TÉLÉCHARGEMENT, AVEC REPRISE ET MULTITHREADI... par Madx23
Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source avec une capture DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda
Source avec Zip Source .NET (Dotnet) NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB
Source avec Zip Source avec une capture MINI SEVEUR HTTP AVEC INTERFACE GRAPHIQUE ET IMPLÉMENTATIONS... par lemout
Toutes les sources de la catégorie Réseau & Internet

Commentaires et avis

Commentaire de cartoide le 29/08/2003 12:21:09

Salut, comment se lance ton code? Je l'ai mis sur une feuille mais il me donne une erreur, je le met dans un module, pareil...je fait un fichier en .vbs mais encore pareil !
by et merci

Commentaire de anarchysniper le 29/08/2003 14:14:44

cartoide > il faut faire un imports system.net -> je vais changer ma source

Commentaire de cartoide le 29/08/2003 22:18:35

comment fait on, je n'y suis pas arrivé avec vb6!

Commentaire de Marcal le 04/09/2003 13:38:59

Bonjour,

idée intéressante pour récupérer l'ip. Je cherchais justement un moyen simple de récupérer l'ip. Concernant la clef de registre, sous windows 2000, pour info derrière un Firewall (en LAN), la clef est différente. C'est-à-dire:

("HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesTcpipParametersInterfaces{HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesTcpipParametersInterfaces{2FB2A20C-106E-4DF7-814B-740614C3B8CB}}IPAddress")

Voilà. Ta clef fonctionne sous quel OS? Je vais vérifier chez moi sous XP..

Commentaire de entracyte le 27/06/2004 18:51:31

Moyen simple de recuperer son ip c'est d'utiliser winsock.localip !!
Par contre je sais pas comment ça ce passe quand on a internet et le reseau local de lancé en meme tps !!

Commentaire de MadM@tt le 06/08/2004 20:25:31

Moi j'ai eu plusieurs problème avec la propriété de Winsock : il me renvoie l'adresse IP du réseau local (alors que je n'en ai meme pas lol), donc il faut trouver autre chose...
@+
MadMatt

Commentaire de algori le 09/02/2005 17:25:21

Ca marche pas...
Sinon, je suis en train de finir un petit prog pour afficher les adresses IP + d'autres informations (sur la mémoire disponible, propriétés des connecteurs réseau, etc.).
Je le mettrai quand il sera OK.     :-)

Commentaire de Titoune_71 le 17/02/2005 10:48:52

Salut....
Je suis nouveau dans la programmation et j'aimerais savoir si c'est possible de lancer ton programme pour avoir l'adresse IP d'un ordinateur connecté au mien...ou alors si ce programme sers uniquement a touver ma propre adress IP.....
Merci d'avance pour la réponse...
@++++

Commentaire de skowee59 le 09/05/2005 11:46:42

Je pense que le plus simple c'est d'utiliser Environment.MachineName !
Ciao

Commentaire de MadM@tt le 09/05/2005 20:32:47

A mon avis il vaut mieux se méfier des "le plus simple c'est" car par exemple avec le winsock certaines fois on obtenait pas les bons résultats (voir plus haut) alors que c'était beaucoup plus simple.

Commentaire de skowee59 le 10/05/2005 07:22:24

Oui c'est sur qu'il faut toujours se méfier. J'ai dit que c'était pour moi le plus simple, je n'ai pas dit que c'est infaillible. D'ailleur, dans l'absolu, rien n'est sur à 100% en programmation...
Bonne journée

Commentaire de SlimySlobber le 31/07/2005 23:47:04

autre méthode pour récupérer le nom de l'ordi :

Dim ComputerName As String
ComputerName = Mid(My.User.Name, 1, My.User.Name.IndexOf("\")).ToLower

Commentaire de neo2k2 le 21/08/2008 09:53:21 6/10

Petite précision pour M. Cartoide: le .NET ça veut dire que ça ne tourne PAS sous VB6 mais sous les versions suivantes .NET...

Sinon le code est sympa mais effectivement pourquoi ne pas utiliser directement les variables machine comme suggéré par Slimy ou Entracyte?

Commentaire de Hauwee le 21/08/2008 10:03:16

Tu sais Neo2K2, je pense qu'au bout de 5 ans, Cartoide a dû évoluer :)

Commentaire de neo2k2 le 21/08/2008 13:06:34

Oups! Un "up" inutile...

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

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 : 1,248 sec (3)

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)