Löst eine IP-Adresse in den/die Hostnamen auf
#include <iNet.au3>
_TCPIpToName ( $sIp [, $iOption = 0 [, $hDll = "Ws2_32.dll"]] )
$sIp | IP-Adresse im (v4) Format |
$iOption | [optional] Standard = 0 0 = Gibt den Hostnamen als String zurück 1 = Gibt ein Array zurück (siehe Bemerkungen) |
$hDll | [optional] Handle zu Ws2_32.dll |
Erfolg: | Hostname oder Array (siehe Bemerkungen) |
Fehler: | "" |
@Error: | 1 - inet_addr DllCall fehlgeschlagen 2 - inet_addr fehlgeschlagen 3 - gethostbyaddr DllCall fehlgeschlagen 4 - gethostbyaddr fehlgeschlagen, WSAGetLastError = @extended 5 - gethostbyaddr fehlgeschlagen, WSAGetLastError fehlgeschlagen 6 - strlen/sZStringRead fehlgeschlagen 7 - Fehler beim Lesen des Aliases Array |
Ein erfolgreicher WSAStartup (wird durch TCPStartup() ausgeführt) wird benötigt,
wenn $iOption = 1 dann sieht das zurückgegebene Array folgendermaßen aus:
$aResult[0] = Anzahl der Elemente
$aResult[1] = "Hostname"
$aResult[2] = "Alias 1"
$aResult[3] = "Alias 2"
...
#include <Inet.au3>
#include <MsgBoxConstants.au3>
Global $aResult, $sResult, $sIp
TCPStartup()
$sIp = TCPNameToIP("autoitscript.com")
$sResult = _TCPIpToName($sIp)
If @error Then
MsgBox($MB_SYSTEMMODAL, "_TCPIpToName()", "@error = " & @error & @CRLF & "@extended = " & @extended)
Else
MsgBox($MB_SYSTEMMODAL, "autoitscript.com ist wirklich: ", $sResult)
EndIf
#include <Array.au3>
#include <Inet.au3>
#include <MsgBoxConstants.au3>
Global $aResult, $sResult, $sIp
TCPStartup()
$sIp = _GetIP()
$aResult = _TCPIpToName($sIp, 1)
If @error Then
MsgBox($MB_SYSTEMMODAL, "_TCPIpToName()", "@error = " & @error & @CRLF & "@extended = " & @extended)
Else
_ArrayDisplay($aResult, "Lokale(r) Hostname(n)")
EndIf