Nom et ip de l'ordinateur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 132 fois - Téléchargée 37 fois

Contenu du snippet

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 / Exemple :


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.

A voir également

Ajouter un commentaire Commentaires
Messages postés
126
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
9 novembre 2009
2
Oups! Un "up" inutile...
Messages postés
79
Date d'inscription
vendredi 8 décembre 2006
Statut
Membre
Dernière intervention
29 janvier 2010

Tu sais Neo2K2, je pense qu'au bout de 5 ans, Cartoide a dû évoluer :)
Messages postés
126
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
9 novembre 2009
2
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?
Messages postés
4
Date d'inscription
dimanche 31 juillet 2005
Statut
Membre
Dernière intervention
31 juillet 2005
3
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
Messages postés
78
Date d'inscription
vendredi 17 janvier 2003
Statut
Membre
Dernière intervention
29 juin 2006

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
Afficher les 15 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.