دیدن ای پی کامپیوتر

[M.KH-SH]

سلام به همه دوستان
یک کد میخوام که ایپی کامپیوتری که برنامه در اون اجرا شده باشه رو بهم بده.

مثلا کامپیوتر1 ip: 192.168.1.2 هست و یک کامپیوتر دیگه ip:1923.168.1.4 که من نمیدونم
حالا میخوام زمانی که برنامه در اون کامپیوتر اجرا شد بلافاصله ip اون سیستم رو به من بده.
همه روش های دیدن از ویندوز رو یاد دارم کد برای برنامه میخوام.

لطفا کمک کنین که کارم گیر کرده.

مرسی.

[M.KH-SH]

لطفا اگه کسی کدی داره لطف کنه و کد رو بده
واقعا بهش نیاز دارم

[Mani_rf]

با استفاده از این روش IP سیستم جاری را به دست آورید.

Dim IPHEntry As Net.IPHostEntry
Dim IPAdd() As Net.IPAddress
Dim localHost As String
localHost = Net.Dns.GetHostName()
IPHEntry = Net.Dns.GetHostByName(localHost)
IPAdd = IPHEntry.AddressList
Dim S As String = String.Empty
For i = 0 To IPAdd.GetUpperBound(0)
S &= IPAdd(i).ToString & vbNewLine
Next
MsgBox(S)