Функция _TCPIpToName

_TCPIpToName

Возвращает имя хоста указанного IP адреса

#include <Inet.au3>
_TCPIpToName($sIp [, $iOption = 0 [, $hDll_Ws2_32 = "Ws2_32.dll"]])

Параметры

$sIp	IP адрес в формате IPv4
$iOption	[необязательный] Default = 0 0 = Возвращает строку имени хоста 1 = Возвращает массив (смотрите примечание)
$hDll_Ws2_32	[необязательный] Дескриптор библиотеки Ws2_32.dll

Возвращаемое значение

Успех:	Возвращает имя хоста или массив (смотрите примечание)
Ошибка:	Возвращает "" пустую строку
@error:	0 = нет ошибок.
	1 = inet_addr DllCall неудачно
	2 = inet_addr неудачно
	3 = gethostbyaddr DllCall неудачно
	4 = gethostbyaddr неудачно, WSAGetLastError = @extended
	5 = gethostbyaddr и WSAGetLastError неудачно
	6 = strlen/sZStringRead неудачно
	7 = Ошибка чтения массива псевдонимов

Примечания

Требуется WSAStartup (делается функцией TCPStartup).
Если $iOption = 1, то возвращается массив следующего формата:
    $aResult[0] = Количество элементов массива
    $aResult[1] = "Имя хоста"
    $aResult[2] = "Псевдоним 1"
    $aResult[3] = "Псевдоним 2"
    ...

См. также

TCPStartup, TCPNameToIP

Пример

#include <Array.au3>
#include <Inet.au3>

Global $aResult, $sResult, $sIP

; Пример 1

TCPStartup()
$sIP = TCPNameToIP("hiddensoft.com")
$sResult = _TCPIpToName($sIP)
If @error Then
MsgBox(0, "_TCPIpToName()", "@error = " & @error & @LF & "@extended = " & @extended)
Else
MsgBox(0, "hiddensoft.com реально это:", $sResult)
EndIf

; Пример 2

TCPStartup()
$sIP = _GetIP()
$aResult = _TCPIpToName($sIP, 1)
If @error Then
MsgBox(0, "_TCPIpToName()", "@error = " & @error & @LF & "@extended = " & @extended)
Else
_ArrayDisplay($aResult, "Local Hostname(s)")
EndIf