text1.text = System.Net.Dns.GetHostEntry("10.60.10.22").HostName

Gr??e

Christina

---------------------------------------
If nothing ... then loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Gr??e

Christina

---------------------------------------
If nothing ... then loop

EALA FREYA FRESENA

  Public Sub GetPCName()
        Dim hostname As String
        hostname = "192.168.0.5"
        Dim host As IPHostEntry = Dns.GetHostEntry(hostname)
        MsgBox(host.ToString)
    End Sub

Gr??e

Christina

---------------------------------------
If nothing ... then loop

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

Private Function GetHostNamebyID(ByVal IPAddress As String)

Private Function GetHostNamebyID(ByVal IPAddress As String) As String

EALA FREYA FRESENA