Imports System
Imports System.Net
Imports System.Net.DNS
 
Public Class Form1
 
Private Sub OKButton_Click(sender As System.Object, e As System.EventArgs) _
  Handles OKButton.Click
Messagebox.Show("Hostname: " & GetHostNamebyID("192.168.0.5"))
End Sub
 
Private Function GetHostNamebyID(ByVal IPAddress As String)
 
Dim objEntry As IPHostEntry
Dim res As String
 
Try
objEntry=Resolve(IPAddress)
res=objEntry.Hostname
Catch ex As Exception
res="IP-Adresse konnte nicht nach Name aufgelöst werden!"
End Try
 
Return res
 
End Function
 
End Class

Messagebox.Show(Environment.GetEnvironmentVariable("computername"))

EALA FREYA FRESENA