sourc gereftane ip va name PC vb.net

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ali1 As String
        Dim badbuzz As String
        ali1 = System.Net.Dns.GetHostName()
        badbuzz = System.Net.Dns.GetHostByName(ali1).AddressList(0).ToString()
        MsgBox("PC NAme : " + ali1 + " IP : " + badbuzz + "")
end sub