Nom et ip de l'ordinateur

Commenter

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