TCPIpToName

**GtaSpider**

Hallo Liebe communytie
Ich habe eine kleine Frage: es gibt ja den Befehl: "TCPNameToIp" gibt es auch das gegenteil?? Also so was wie "TCPIpToName" oder sowas?? Also ich würde gerne eine Ip angeben(z.B.: 127.0.0.1) und er gibt den Namen des Computers(z.B.: Computer-01), oder noch besser: des aktuellen Benutzer(also z.B.: Administrator) zurück!
ist sowas möglich?? Oder ist so was vielleicht mit C++ möglich(bestimmt aber wie??) und dann ürgendein singal abgibt so dass autoit es lesen kann oder so?!?
Wäre super wenn jemand rat wüsste!!
Mfg Max

Mr.Daim

Hallo,

ich habe das gleiche Problem. Hast du schon eine Lösung gefunden? Vielleicht kann man das mit externen Programmen lösen. Sollten aber Programme sein die man über das DOS-Fenster ansprechen kann.

Vielleicht kann man mit nslokkup einen Wert dem au3-script übergeben.

MfG

wolkenloser

Das Problem dabei ist, das zu einer IP Adresse NICHT genau ein Name gehört:
Ein Beispiel ist "ping -a" "IPDADRESSE?"

So liefert "ping https://autoit.de/www.web.de" die IP:
Ping https://autoit.de/www.web.de [217.72.195.42] mit 32 Bytes

Wenn mann mit "ping -a 217.72.195.42" den Namen versucht herauszubekommen kommt bei mir aktuell was anderes heraus

Ping ha-42.web.de [217.72.195.42] mit 32 Bytes Daten:

Es dürfte so als schwer sein das herauszubekommen was man wirklich haben will.

**peethebee**

Hallo!

Ich meine, bei windows-unattendet.de hätte jemand (GTASpider selbst?) eine Lösung gepostet.

peethebee

**GtaSpider**

ja, genau!! die lösung heißt nbtstat.exe! Ich hab auch ein UDF Geschrieben:

Code

Func _IpToName($ip)
	$outread = "ERROR: Kann Programm NbtStat.exe nicht finden!"
	Ping($ip,50)
	If @error Then
		MsgBox(16,"Ping error","Die adresse "&$ip&" konnte nich gefunden werden, stellen Sie sicher das der Rechner online ist!")
		Exit
	EndIf
	$run = Run(@ComSpec&" /c nbtstat -a "&$ip, @SystemDir, @SW_HIDE, 6)
	Sleep(500)
	$stdoutread = StdoutRead($run)
	If Not @error = -1 Then $outread=$stdoutread

	$stderrRead = StderrRead($run)
	If Not @error = -1 Then $outread = $stderrRead
	$ss = StringSplit($outread,@CRLF)
	If $ss[0] < 23 Then
		$outread = "(No Name Available)"
	Else
		$outread = $ss[23]
		$outread = StringReplace($outread,Chr(129),"ü")
		$outread = StringReplace($outread,Chr(154),"Ü")
		$outread = StringReplace($outread,Chr(142),"Ä")
		$outread = StringReplace($outread,Chr(132),"ä")
		$outread = StringReplace($outread,Chr(153),"Ö")
		$outread = StringReplace($outread,Chr(148),"ö")
		$outreadlen = StringLen("    LAN-Verbindung:Knoten-IP-Adresse: [] Bereichskennung: []      NetBIOS-Namentabelle des Remotecomputers       Name               Typ          Status    ---------------------------------------------    ")+StringLen($ip)
		$outread = StringTrimLeft($outread,4)
		$outread = StringSplit($outread," ")
		$outread = $outread[1]
		$outread = StringReplace($outread," ","",0)
	EndIf
	Return $outread
EndFunc

Alles anzeigen

kann ich ja mal hier auf die datenbank packen!