DNS Auflösung auf einem IPv6 System

Donsen64

Hallo,
ich habe eine Problem mit der DNS Auflösung auf einem Client der IPv6 verwendet. Leider unterstützt das UDF _TCPIpToName nur IPv4.

Ich würde aber gern eine DNS Auflösung für folgendes haben wollen:
name.domaene.net >>> 2001:503:ba3e::2:30
2001:503:ba3e::2:30 >>> name.domaene.net

Kennt da jemand eine Lösung?

Danke!
Gruß Ingo

**bernd670**

Hallo,

man könnte es zum Beispiel via Ping machen!

AutoIt

#include <Constants.au3>


ConsoleWrite(_IPV6ToName("::1") & @CRLF)
ConsoleWrite(_NameToIPV6("localhost") & @CRLF)


Func _IPV6ToName($szIpV6)
	Local $PID = Run("PING -n 2 -a -6 " & $szIpV6, "", @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD)


	Local $szLine = ""
	While 1
		$szLine &= StdoutRead($PID)
		If @error Then ExitLoop
		StderrRead($PID)
		If @error Then ExitLoop
	WEnd


	If StringRegExp($szLine, "nicht finden") Then Return SetError(1, 0, "")
	$szName = StringRegExp($szLine, "(?m)\s(\S*)\s\[", 3)[0]


	Return $szName
EndFunc   ;==>_IPV6ToName


Func _NameToIPV6($szName)
	Local $PID = Run("PING -n 2 -a -6 " & $szName, "", @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD)


	Local $szLine = ""
	While 1
		$szLine &= StdoutRead($PID)
		If @error Then ExitLoop
		StderrRead($PID)
		If @error Then ExitLoop
	WEnd


	If StringRegExp($szLine, "nicht finden") Then Return SetError(1, 0, "")
	$szName = StringRegExp($szLine, "(?m)\[(\S*)\]", 3)[0]


	Return $szName
EndFunc   ;==>_NameToIPV6To

Alles anzeigen