2016-04-19 6 views
0
Public Function GetComputerName() As String 
    Dim ComputerName As String 
    ComputerName = System.Net.Dns.GetHostName 
    Return ComputerName 
End Function 
+0

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

Antwort

2

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 
Verwandte Themen