IP-Adresse: Unterschied zwischen den Versionen
Thomas (Diskussion | Beiträge) KKeine Bearbeitungszusammenfassung |
Thomas (Diskussion | Beiträge) Keine Bearbeitungszusammenfassung |
||
(6 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt) | |||
Zeile 1: | Zeile 1: | ||
Heute stellte sich mir die Frage, wie stelle ich am einfach die IP-Adresse des Rechners unter Linux fest. Eine Google-Suche führte zu Forenbeitrag mit immer neuen Vorschlägen bis hin zu Laufzeitvergleichen der Vorschläge. Wenn Linux Shell Freak in Fahrt kommen, kann sie keiner halten. Wahrscheinlich werden die gesparten Milli-Sekunden sich im Laufe der Jahre zu einen deutlichen Gewinn an Lebenszeit summieren. | Heute stellte sich mir die Frage, wie stelle ich am einfach die IP-Adresse des Rechners unter Linux fest. Eine Google-Suche führte zu Forenbeitrag mit immer neuen Vorschlägen bis hin zu Laufzeitvergleichen der Vorschläge. Wenn Linux Shell Freak in Fahrt kommen, kann sie keiner halten. Wahrscheinlich werden die gesparten Milli-Sekunden sich im Laufe der Jahre zu einen deutlichen Gewinn an Lebenszeit summieren. | ||
Die Frage ist außerdem nicht ganz präzise. Er Rechner hat immer die Loopback Adresse 127.0.0.1. Ein Rechner kann mehrere Netzwerkkarten haben, die wiederum mehrere IP-Adressen haben können. Im letzteren Fall erhalten die Netzwerkkarten allerdings zusätzliche Namen wie beispielsweise eth0:0, eth0:1. Ein VPN-Tunnel erzeugt eine virtuelle Netzwerkkarte mit einer eigenen IP-Adresse. Damit stellt sich die Frage: Welche IP- | Die Frage ist außerdem nicht ganz präzise. Er Rechner hat immer die Loopback Adresse 127.0.0.1. Ein Rechner kann mehrere Netzwerkkarten haben, die wiederum mehrere IP-Adressen haben können. Im letzteren Fall erhalten die Netzwerkkarten allerdings zusätzliche Namen wie beispielsweise eth0:0, eth0:1. Ein VPN-Tunnel erzeugt eine virtuelle Netzwerkkarte mit einer eigenen IP-Adresse. Damit stellt sich die Frage: Welche IP-Adresse hätten Sie denn gerne? | ||
Beschränken wir uns auf zwei Fälle: Der Gerätename | Beschränken wir uns auf zwei Fälle: Der Gerätename ist bekannt und wir brauchen alle IP-Adressen. | ||
'''Anmerkung:''' Mein Rechner verwendet eine Netzwerkbrücke, deshalb ist die erste Adresse an br0 statt eth0 gebunden. | '''Anmerkung:''' Mein Rechner verwendet eine Netzwerkbrücke, deshalb ist die erste Adresse an br0 statt eth0 gebunden. | ||
Zeile 25: | Zeile 25: | ||
Wer eine andere Sprachlokalisation verwendet, muss hier den Teil “inet Adresse” anpassen. Ich nehme mir jetzt nicht die Zeit, dies zu Internationalisieren. | Wer eine andere Sprachlokalisation verwendet, muss hier den Teil “inet Adresse” anpassen. Ich nehme mir jetzt nicht die Zeit, dies zu Internationalisieren. | ||
== Gambas == | |||
Hier hab ich noch keine Lösung gefunden. | |||
== Windows == | |||
Unter Windows ist die Sache nicht ganz so einfach, da so schöne Tools wie ''sed'' dort im Allgemeinen nicht installiert sind. | |||
Eine Funktion gibt es [http://www.codeproject.com/Articles/1839/How-to-get-the-IP-Address-from-your-workstation hier]. Die dort beschrieben Funktion liefert nur die IP-Adresse der ersten Netzwerkkarte. Diese muss jedoch nicht die Aktive sein, z.B. wenn ein Notebook zwischen WLAN und LAN wandert. Besser ist die folgende Lösung. | |||
Mit [[Visual Basic Script]] kann eine Liste der IP-Adressen aller Netzwerkkarten mit folgendem VBS ausgegeben werden. Es funktioniert auch mit IPv4 und IPv6 Adressen. | |||
<pre> | |||
Option Explicit | |||
Dim colIPResults, objFile, objFSO, objNIC, objWMI, objWSHNetwork, strAddresses, strIPAddress, strWQL | |||
Const FOR_APPENDING = 8 | |||
Sub DestroyObjects() | |||
If IsObject(objFile) Then Set objFile = Nothing | |||
If IsObject(objFSO) Then Set objFSO = Nothing | |||
If IsObject(objWMI) Then Set objWMI = Nothing | |||
If IsObject(objWSHNetwork) Then Set objWSHNetwork = Nothing | |||
' If IsObject() Then Set = Nothing | |||
End Sub | |||
Set objFSO = CreateObject("Scripting.FileSystemObject") | |||
Set objWSHNetwork = CreateObject("WScript.Network") | |||
Set objWMI = GetObject("WinMGMTS:root\cimv2") | |||
strWQL = "SELECT IPAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = 'True'" | |||
Set colIPResults = objWMI.ExecQuery(strWQL) | |||
For Each objNIC In colIPResults | |||
For Each strIPAddress in objNIC.IPAddress | |||
If strAddresses = "" Then | |||
strAddresses = strIPAddress | |||
Else | |||
strAddresses = strAddresses + "," + strIPAddress | |||
End If | |||
Next | |||
Next | |||
Dim ipaddr | |||
Set oShell = CreateObject( "WScript.Shell" ) | |||
If strAddresses ="0.0.0.0" Or strAddresses ="" or strAddresses = "undefined" Then | |||
ipaddr = "No Connection Detected" | |||
Else | |||
ipaddr = strAddresses | |||
End If | |||
echo ipaddr | |||
DestroyObjects() | |||
</pre> | |||
---- | ---- | ||
Siehe auch: | |||
[http://byggvir.de/2012/01/28/eigene-ip-adresse-unter-linux-feststellen/ Byggvir.de: Eigene IP Adresse unter Linux feststellen vom 28. Januar 2012] | |||
[[Kategorie:Linux]] | [[Kategorie:Linux]] | ||
[[Kategorie:Windows]] | |||
[[Kategorie:bash]] | [[Kategorie:bash]] | ||
[[Kategorie:Visual Basic Script]] |
Aktuelle Version vom 25. April 2014, 19:43 Uhr
Heute stellte sich mir die Frage, wie stelle ich am einfach die IP-Adresse des Rechners unter Linux fest. Eine Google-Suche führte zu Forenbeitrag mit immer neuen Vorschlägen bis hin zu Laufzeitvergleichen der Vorschläge. Wenn Linux Shell Freak in Fahrt kommen, kann sie keiner halten. Wahrscheinlich werden die gesparten Milli-Sekunden sich im Laufe der Jahre zu einen deutlichen Gewinn an Lebenszeit summieren.
Die Frage ist außerdem nicht ganz präzise. Er Rechner hat immer die Loopback Adresse 127.0.0.1. Ein Rechner kann mehrere Netzwerkkarten haben, die wiederum mehrere IP-Adressen haben können. Im letzteren Fall erhalten die Netzwerkkarten allerdings zusätzliche Namen wie beispielsweise eth0:0, eth0:1. Ein VPN-Tunnel erzeugt eine virtuelle Netzwerkkarte mit einer eigenen IP-Adresse. Damit stellt sich die Frage: Welche IP-Adresse hätten Sie denn gerne?
Beschränken wir uns auf zwei Fälle: Der Gerätename ist bekannt und wir brauchen alle IP-Adressen.
Anmerkung: Mein Rechner verwendet eine Netzwerkbrücke, deshalb ist die erste Adresse an br0 statt eth0 gebunden.
Bourne Again Shell (bash)
Fall 1:IP-Adresse eines Gerätes
u1@r1:~> /sbin/ifconfig br0 | sed -n '/inet Adresse:/ { s# *inet Adresse:##; s# .*##p }' 192.168.2.197
Fall 2: IP-Adresse aller Geräte
Wird der Gerätename br0 weg gelassen, liefert der Befehl eine Liste aller Adressen.
u1@r1:~> /sbin/ifconfig | sed -n '/inet Adresse:/ { s# *inet Adresse:##; s# .*##p }' 192.168.2.197 192.168.200.1 127.0.0.1
Wer eine andere Sprachlokalisation verwendet, muss hier den Teil “inet Adresse” anpassen. Ich nehme mir jetzt nicht die Zeit, dies zu Internationalisieren.
Gambas
Hier hab ich noch keine Lösung gefunden.
Windows
Unter Windows ist die Sache nicht ganz so einfach, da so schöne Tools wie sed dort im Allgemeinen nicht installiert sind.
Eine Funktion gibt es hier. Die dort beschrieben Funktion liefert nur die IP-Adresse der ersten Netzwerkkarte. Diese muss jedoch nicht die Aktive sein, z.B. wenn ein Notebook zwischen WLAN und LAN wandert. Besser ist die folgende Lösung.
Mit Visual Basic Script kann eine Liste der IP-Adressen aller Netzwerkkarten mit folgendem VBS ausgegeben werden. Es funktioniert auch mit IPv4 und IPv6 Adressen.
Option Explicit Dim colIPResults, objFile, objFSO, objNIC, objWMI, objWSHNetwork, strAddresses, strIPAddress, strWQL Const FOR_APPENDING = 8 Sub DestroyObjects() If IsObject(objFile) Then Set objFile = Nothing If IsObject(objFSO) Then Set objFSO = Nothing If IsObject(objWMI) Then Set objWMI = Nothing If IsObject(objWSHNetwork) Then Set objWSHNetwork = Nothing ' If IsObject() Then Set = Nothing End Sub Set objFSO = CreateObject("Scripting.FileSystemObject") Set objWSHNetwork = CreateObject("WScript.Network") Set objWMI = GetObject("WinMGMTS:root\cimv2") strWQL = "SELECT IPAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = 'True'" Set colIPResults = objWMI.ExecQuery(strWQL) For Each objNIC In colIPResults For Each strIPAddress in objNIC.IPAddress If strAddresses = "" Then strAddresses = strIPAddress Else strAddresses = strAddresses + "," + strIPAddress End If Next Next Dim ipaddr Set oShell = CreateObject( "WScript.Shell" ) If strAddresses ="0.0.0.0" Or strAddresses ="" or strAddresses = "undefined" Then ipaddr = "No Connection Detected" Else ipaddr = strAddresses End If echo ipaddr DestroyObjects()
Siehe auch: Byggvir.de: Eigene IP Adresse unter Linux feststellen vom 28. Januar 2012