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
Für PC-Name Verwendung:
My.Computer.Name
Für IP-Nutzung:
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
Wir brauchen mehr als nur Code - wir brauchen eine [MCVE] (http sehen:/(http://www.stackoverflow.com/help/mcve), eine detaillierte Beschreibung Ihres Ziels und der genaue Fehler oder die problematische Ausgabe, die Sie erhalten. Siehe [Wie zu fragen] (http://www.stackoverflow.com/help/how-to-ask). – CodeMouse92