0
Public Function GetComputerName() As String
Dim ComputerName As String
ComputerName = System.Net.Dns.GetHostName
Return ComputerName
End Function
Public Function GetComputerName() As String
Dim ComputerName As String
ComputerName = System.Net.Dns.GetHostName
Return ComputerName
End Function
Для использования имени компьютера:
My.Computer.Name
Для использования IP:
Private Sub GetIPAddress()
Dim strHostName As String
Dim strIPAddress As String
strHostName = System.Net.Dns.GetHostName()
strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()
MessageBox.Show("Host Name: " & strHostName & "; IP Address: " & strIPAddress)
End Sub
Нам нужно больше, чем просто код - мы должны видеть [MCVE] (HTTP://www.stackoverflow.com/help/mcve), подробное описание вашей цели и ** точная ошибка или проблемный результат **, который вы получаете. См. [Как спросить] (http://www.stackoverflow.com/help/how-to-ask). – CodeMouse92