Ping funktioniert in AutoIt nicht zuverlässig. In der CMD aber problemlos.

chrisbyRRC

Hey, habe hier wieder ein sehr merkwürdiges Problem.

Möchte im Netzwerk mit AutoIt schnellstmöglich prüfen ob ein Client erreichbar ist. Am schnellsten geht das wohl mit der integrierten Funktion Ping()
Doch irgendwie bekomme ich immer ein Fehler zurück obwohl das pingen über die CMD problemlos klappt.

AutoIt

#RequireAdmin


$Hostname="NB-SCHULUNG3"
MsgBox(64,"ACP",_OnOffStatus($Hostname))


Func _OnOffStatus($Hostname)
	if Ping($Hostname,250)>0 Then
		Return "Online"
	Else
		Return "Offline"
	EndIf
EndFunc

Alles anzeigen

Jemand ne Idee woran das liegen kann? Habe Firewall auch testeshalber mal deaktiviert.

**alpines**

Wie liegt der Ping denn in der CMD? Wenn er über 250 ist müsste der Grund ja offensichtlich sein.

chrisbyRRC

Ne daran liegts wohl nicht. Habe testeshalber auch schon mal auf 500 ms erhöht.
[Blockierte Grafik: https://www2.pic-upload.de/img/33410648/cmd.png]

EDIT: Plötzlich funktioniert die Ping-Funktion wieder obwohl ich nichts geändert hab! Vielleicht weiß jemand warum es mal funktioniert und mal nicht. Oder hat jemand ne bessere Idee zum Abfragen?

Yjuq

Wie ist das Netzwerk denn aufgebaut und um was für eine Art Client reden wir denn hier? Ein paar mehr Informationen dazu könnten nicht schaden.

Mal abgesehen davon macht es absolut keinen Sinn deine private IPv4-Adresse in den Screenshot halb zu verdecken. Die ist von Außen sowieso nicht ermittelbar (sprich: Keine Informationen herleitbar), deswegen ist es ja auch eine private IPv4-Adresse. Brauchst dir also gar nicht die Mühe machen.

€dit: Alternativ wenn die Ping Funktion weiterhin Probleme verursacht aber von der CMD aus keine Probleme gibt, dann führ via Run / RunWait den Ping von der Konsole aus.

xSunLighTx3

Funktioniert bei mir problemlos. Wo wir schon bei Anonymität sind: Ping liegt zwischen 0 und 69.
Wäre natürlich auch hilfreich, wenn man wüsste, welcher Fehler das nun ist.

chrisbyRRC

Zitat von Make-Grafik

Wie ist das Netzwerk denn aufgebaut und um was für eine Art Client reden wir denn hier?

Moin, es handelt sich um ein Firmennetzwerk. Die Clients sind also normale Arbeits-PC/NB's die ihre IP vom DHCP-Server bekommen.

Zitat von Make-Grafik

Alternativ wenn die Ping Funktion weiterhin Probleme verursacht aber von der CMD aus keine Probleme gibt, dann führ via Run / RunWait den Ping von der Konsole aus.

Das wäre eine super Lösung wenn du mir verrätst wie ich darüber die Abfrage realisieren kann ob der Ping erfolgreich war.

Zitat von xSunLighTx3

Wäre natürlich auch hilfreich, wenn man wüsste, welcher Fehler das nun ist.

Tja das wüsste ich auch gern, bzw. viel mehr wodurch er verursacht wird. Als Error-Code gibt die Ping-Funktion folgendes wieder: 2 = Host is unreachable

**alpines**

Zitat von chrisbyRRC

Das wäre eine super Lösung wenn du mir verrätst wie ich darüber die Abfrage realisieren kann ob der Ping erfolgreich war.

Du kannst die Ausgabe der CMD in eine Datei umleiten mit >> dump.txt.
Folglich musst du also nur die CMD so aufrufen Run(@ComSpec & " /c ""PING 127.0.0.1 >> dump.txt"") und die Datei sollte in deinem Working Directory liegen.
Anschließend FileReaden und mit Stringfunktionen abfragen oooder du liest direkt die CMD mit StdoutRead.

AutoIt

#include <Constants.au3>


Global $DOS, $Message = '' ;; added "= ''" for show only.


$DOS = Run(@ComSpec & " /c Ping www.google.com", "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
ProcessWaitClose($DOS)
$Message = StdoutRead($DOS)


MsgBox(0, "Stdout Read:", $Message)

Alles anzeigen

**autoiter**

Hallo @chrisbyRRC,

ich würde es lieber mit einer Änderung deiner Funktion versuchen. Ich hatte auch schon Probleme mit einem Ping. Bei mehreren Versuchen, hat es bei mir aber noch immer geklappt.
Daher versuche es mal mit dieser Variante, wo maximal drei Pings gesendet werden, bis einer positiv war. Wenn keiner positiv war, gilt eben offline.

AutoIt

#RequireAdmin


$Hostname = "NB-SCHULUNG3"
MsgBox(64, "ACP", _OnOffStatus($Hostname))


Func _OnOffStatus($Hostname)
	Local $iPing


	For $i = 1 To 3
		$iPing = Ping($Hostname, 250)
		If $iPing Then ExitLoop
	Next
	If $iPing Then
		Return "Online"
	Else
		Return "Offline"
	EndIf
EndFunc   ;==>_OnOffStatus

Alles anzeigen

EDIT: Falls das hier nicht aus anderen Gründen drin stand: Für dieses Skript brauchst du sicher kein #RequireAdmin.

**Oscar**

Hast Du es schonmal mit NetServerEnum versucht:

AutoIt

#include <Array.au3>


Global Const $SV_TYPE_WORKSTATION = 0x1
Global Const $SV_TYPE_SERVER = 0x2
Global Const $SV_TYPE_SQLSERVER = 0x4
Global Const $SV_TYPE_DOMAIN_CTRL = 0x8
Global Const $SV_TYPE_DOMAIN_BAKCTRL = 0x10
Global Const $SV_TYPE_TIME_SOURCE = 0x20
Global Const $SV_TYPE_AFP = 0x40
Global Const $SV_TYPE_NOVELL = 0x80
Global Const $SV_TYPE_DOMAIN_MEMBER = 0x100
Global Const $SV_TYPE_PRINTQ_SERVER = 0x200
Global Const $SV_TYPE_DIALIN_SERVER = 0x400
Global Const $SV_TYPE_XENIX_SERVER = 0x800
Global Const $SV_TYPE_NT = 0x1000
Global Const $SV_TYPE_WFW = 0x2000
Global Const $SV_TYPE_SERVER_MFPN = 0x4000
Global Const $SV_TYPE_SERVER_NT = 0x8000
Global Const $SV_TYPE_POTENTIAL_BROWSER = 0x10000
Global Const $SV_TYPE_BACKUP_BROWSER = 0x20000
Global Const $SV_TYPE_MASTER_BROWSER = 0x40000
Global Const $SV_TYPE_DOMAIN_MASTER = 0x80000
Global Const $SV_TYPE_WINDOWS = 0x400000
Global Const $SV_TYPE_CLUSTER_NT = 0x1000000
Global Const $SV_TYPE_TERMINALSERVER = 0x2000000
Global Const $SV_TYPE_CLUSTER_VS_NT = 0x4000000
Global Const $SV_TYPE_LOCAL_LIST_ONLY = 0x40000000
Global Const $SV_TYPE_DOMAIN_ENUM = 0x80000000
Global Const $SV_TYPE_ALL = 0xFFFFFFFF


$aCompList = _NetServerEnum($SV_TYPE_WORKSTATION)


_ArrayDisplay($aCompList)


Func _NetServerEnum($iSrvType = -1, $sDomain = '')
	Local $uBufPtr = DllStructCreate("ptr;int;int"), $res[1] = [0], $i
	Local $uRecord = DllStructCreate("dword;ptr"), $iRecLen = DllStructGetSize($uRecord)
	Local $uString = DllStructCreate("char[16]")
	Local $uDomain = DllStructCreate("byte[32]"), $pDomain = 0
	If Not ($sDomain = '' Or $sDomain = '*') Then
		DllStructSetData($uDomain, 1, StringToBinary($sDomain, 2))
		$pDomain = DllStructGetPtr($uDomain)
	EndIf
	Local $ret = DllCall("netapi32.dll", "int", "NetServerEnum", _
			"ptr", 0, "int", 100, _
			"ptr", DllStructGetPtr($uBufPtr, 1), "int", -1, _
			"ptr", DllStructGetPtr($uBufPtr, 2), _
			"ptr", DllStructGetPtr($uBufPtr, 3), _
			"int", $iSrvType, "ptr", $pDomain, "int", 0)
	If $ret[0] Then Return SetError(1, $ret[0], '')
	Local $res[DllStructGetData($uBufPtr, 3) + 1] = [DllStructGetData($uBufPtr, 3)]
	For $i = 1 To DllStructGetData($uBufPtr, 3)
		Local $uRecord = DllStructCreate("dword;ptr", DllStructGetData($uBufPtr, 1) + ($i - 1) * $iRecLen)
		Local $sNBName = DllStructCreate("byte[32]", DllStructGetData($uRecord, 2))
		DllStructSetData($uString, 1, BinaryToString(DllStructGetData($sNBName, 1), 2))
		$res[$i] = DllStructGetData($uString, 1)
	Next
	$ret = DllCall("netapi32.dll", "int", "NetApiBufferFree", "ptr", DllStructGetData($uBufPtr, 1))
	Return $res
EndFunc   ;==>_NetServerEnum

Alles anzeigen

chrisbyRRC

@alpines
Stimmt, StdoutRead ist ein guter Lösungsansatz! Müsste ich nur noch schauen wie performant das ganze im Endeffekt wird. Funktionell wird das sicherlich 1A funktionieren, Danke!

@autoiter
Leider ist ein Client sehr sporadisch mal nicht über Ping() erreichbar, da ändert sich dann aber auch für ca. 20min. nichts dran, egal wie oft ich die Funktion wiederhole.

@Oscar
Ist "NetServerEnum" denn überhaupt Remote -anwendbar? Wenn ja würde ich das auch gerne mal unter die Lupe nehmen. Wie wäre denn so ein Aufruf für den Online-Status, das _arrayDisplay() gibt mir nix aus.

Aber wirklich vielen Dank an alle das ihr mich so sehr unterstützt, das wird mir sehr weiterhelfen!

**Oscar**

Sind das eigentlich alles Windows-PCs mit Datei- und Druckerfreigabe?
Dann könnte man mit einem Portscan auf den IP-Bereich die entsprechenden Rechner finden:

AutoIt

#include <Inet.au3>
Opt("TCPTimeout", 20)
TCPStartup()
Global $iSocket, $sIP, $sIP_Range = '192.168.178.'
For $i = 1 To 255
	$sIP = $sIP_Range & $i
	$iSocket = TCPConnect($sIP, 445)
	If $iSocket > -1 Then
		ConsoleWrite($sIP & '   ' & _TCPIpToName($sIP) & @CR)
		TCPCloseSocket($iSocket)
	EndIf
	ToolTip($i)
Next
TCPShutdown()

Alles anzeigen

BLinz

Als Alternative: Ich habe mir zum privaten Spaß mal ein eigenes ping geschrieben - genannt pinz - ich wollte was mit grafischer Laufzeitanzeige.
Das Script nutzt eine alternative Ping Methode _PingLikeMicrosoft() bei der man den Payload bestimmen kann (Ich hatte versucht alle Parameter des Original ping-Befehls umzusetzen.

Kompiliert sich als CUI dann einfach wie Ping nutzen (statt dessen halt pinz.exe nutzen). Der Code ist "etwas" unordentlich da ich zum testen damals alles ziemlich zusammenkopiert habe ... und es dann in der Schublade verschwunden ist.
Aber vielleicht hilft es dir.

AutoIt: pinz.au3

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
;~ #AutoIt3Wrapper_Icon=Icon256-32.ico
#AutoIt3Wrapper_Outfile=pinz.exe
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Change2CUI=y
#AutoIt3Wrapper_Res_Description=pinz - Ping mit optischer Laufzeitdarstellung - znil.net
#AutoIt3Wrapper_Res_Fileversion=0.0.0.101
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_SaveSource=y
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include-once
#Include <Array.au3>
#Include <Inet.au3>
#Include <Misc.au3>
#include <WinAPI.au3>


; ****************************************************************************************
;     ##     ##    ###    ########  ####    ###    ########  ##       ########  ######
;     ##     ##   ## ##   ##     ##  ##    ## ##   ##     ## ##       ##       ##    ##
;     ##     ##  ##   ##  ##     ##  ##   ##   ##  ##     ## ##       ##       ##
;     ##     ## ##     ## ########   ##  ##     ## ########  ##       ######    ######
;      ##   ##  ######### ##   ##    ##  ######### ##     ## ##       ##             ##
;       ## ##   ##     ## ##    ##   ##  ##     ## ##     ## ##       ##       ##    ##
;        ###    ##     ## ##     ## #### ##     ## ########  ######## ########  ######
; ****************************************************************************************


; ***************************************************************************************************************************************
; Nachfolgendes wird für die "PingLikeMicrosoft" Function gebraucht
; Die wurde benötigt da ich bei der in AutoIt eingebauten Ping-Funktion nicht die Paket-Größe ändern kann
; Die Funktion habe ich hier gefunden: http://www.autoitscript.com/forum/topic/129525-ping-help/
Global Const $IP_SUCCESS = 0
Global Const $IP_STATUS_BASE = 11000
Global Const $IP_BUF_TOO_SMALL = ($IP_STATUS_BASE + 1)
Global Const $IP_DEST_NET_UNREACHABLE = ($IP_STATUS_BASE + 2)
Global Const $IP_DEST_HOST_UNREACHABLE = ($IP_STATUS_BASE + 3)
Global Const $IP_DEST_PROT_UNREACHABLE = ($IP_STATUS_BASE + 4)
Global Const $IP_DEST_PORT_UNREACHABLE = ($IP_STATUS_BASE + 5)
Global Const $IP_NO_RESOURCES = ($IP_STATUS_BASE + 6)
Global Const $IP_BAD_OPTION = ($IP_STATUS_BASE + 7)
Global Const $IP_HW_ERROR = ($IP_STATUS_BASE + 8)
Global Const $IP_PACKET_TOO_BIG = ($IP_STATUS_BASE + 9)
Global Const $IP_REQ_TIMED_OUT = ($IP_STATUS_BASE + 10)
Global Const $IP_BAD_REQ = ($IP_STATUS_BASE + 11)
Global Const $IP_BAD_ROUTE = ($IP_STATUS_BASE + 12)
Global Const $IP_TTL_EXPIRED_TRANSIT = ($IP_STATUS_BASE + 13)
Global Const $IP_TTL_EXPIRED_REASSEM = ($IP_STATUS_BASE + 14)
Global Const $IP_PARAM_PROBLEM = ($IP_STATUS_BASE + 15)
Global Const $IP_SOURCE_QUENCH = ($IP_STATUS_BASE + 16)
Global Const $IP_OPTION_TOO_BIG = ($IP_STATUS_BASE + 17)
Global Const $IP_BAD_DESTINATION = ($IP_STATUS_BASE + 18)
Global Const $IP_ADDR_DELETED = ($IP_STATUS_BASE + 19)
Global Const $IP_SPEC_MTU_CHANGE = ($IP_STATUS_BASE + 20)
Global Const $IP_MTU_CHANGE = ($IP_STATUS_BASE + 21)
Global Const $IP_UNLOAD = ($IP_STATUS_BASE + 22)
Global Const $IP_ADDR_ADDED = ($IP_STATUS_BASE + 23)
Global Const $IP_GENERAL_FAILURE = ($IP_STATUS_BASE + 50)
Global Const $MAX_IP_STATUS = ($IP_STATUS_BASE + 50)
Global Const $IP_PENDING = ($IP_STATUS_BASE + 255)
Global Const $PING_TIMEOUT = 500
Global Const $WS_VERSION_REQD = 0x101
Global Const $MIN_SOCKETS_REQD = 1
Global Const $SOCKET_ERROR = -1
Global Const $INADDR_NONE = 0xFFFFFFFF
Global Const $MAX_WSADescription = 256
Global Const $MAX_WSASYSStatus = 128
If @AutoItX64 Then Exit 0 * MsgBox(16, @ScriptName & " - Error", "ICMP structures only designed for 32-Bit Version")
Global Const $ICMP_OPTIONS = _
"ubyte Ttl;" & _
"ubyte Tos;" & _
"ubyte Flags;" & _
"ubyte OptionsSize;" & _
"ptr OptionsData" ; Options Data
Global Const $tagICMP_ECHO_REPLY = _
"ulong Address;" & _ ; IPAddr
"ulong Status;" & _
"ULONG RoundTripTime;" & _
"USHORT DataSize;" & _
"USHORT Reserved;" & _
"ptr Data;" & _
$ICMP_OPTIONS
; Vorstehendes wird für die "PingLikeMicrosoft" Function gebraucht
; ***************************************************************************************************************************************


Dim $a_PingError[5]						; Enthält den Text für den Rückgabewert von "PingLikeMicrosoft" bei Fehlern
Dim $i_PingTime							; hier steht drin welche Laufzeit der letzte Ping hatte - oder 0 wenn es nicht geklappt hat
Dim $i_LastPingTime						; Wir merken uns für jeden Durchlauf die Pinglaufzeit vom mal davor für Vergleiche
Dim $s_IP								; IP-Adresse des Hosts den wir anpingen
Dim $s_DNS								; DNS-Name des Host den wir anpingen - wird vom DNS-Server abgefragt
Dim $s_TargetHost						; Der vom Benutzer übergebende Zielhost als IP oder DNS oder NetBIOS-Name
Dim $i_n = 4							; Anzahl der Pings, Standard ist 4 mal
Global $i_Counter = 0					; Falls der Benutzer uns eine Anzahl n übergeben hat zählen wir hiermit mit wie oft wir schon gepingt haben
Dim $i_Pause = 1000                     ; Wieviel Pause soll zwischen den einzelnen Pings erfolgen?
Dim $s_Result                           ; In dieser Variablen wird die Ausgabezeile zusammengebaut
Dim $i_LastResultLen                    ; Länge der letzten, vorherigen Ausgabezeile für Vergleiche
Dim $i_PercentPingTime                  ; Pinglaufzeit in Prozent im Verhältnis zum noch freien Platz in der Zeile
Dim $b_EndlessPing = False              ; Wird auf True gesetzt falls der Benutzer -t angegeben hat
Dim $i_WindowSizeHorizontal             ; Wieviele Zeichen passen in eine Zeile - ausgelesen aus der Windows-Registry
Dim $s_temp, $i_temp                    ; Temporäre Variablen
Dim $i_TimeOut = 4000                   ; Maximale Wartezeit auf einen Ping
Global $i_Packets_Send = 0              ; Zähler - wieviele Pings wurden gesendet
Global $i_Packets_Receive = 0           ; Zähler - wieviele Antworten auf Pings haben wir erhalten?
Global $i_PingTimeMin = 0               ; Schnellster Ping
Global $i_PingTimeMax = 9999999999      ; langsamster Ping
Global $i_timer                         ; Hilfsvariable mit der wir die Zeit messen in unserer Schleife
Global $b_SkipPing = False              ; Hilfsvariable die gesetzt wird um das pingen zu überspringen
Global $i_Error
Global $i_Extended


; Das normale ping sendet 32 Bytes ... das machen wir auch in dem wir eine Zeichenfolge dieser Länge senden.
; Indem wir die Zeichenfolge verlängern oder verkürzen können wir diesen Wert später anpassen
;                          1         2         3
;                 12345678901234567890123456789032
Dim $s_Payload = "abcdefghijklmnopqrstuvwabcdefghi" ; 32 Bytes!
Dim $s_Payload = "pinz -- ping von http://znil.net" ; 32 Bytes!




; Wir holen uns einen Zeiger auf das aktuelle Fenster - brauchen wir für das Abfangen von STRG + C
Global $sDllValue, $DOSBOCHandle
$sDllValue = DllCall( "Kernel32.dll","hwnd","GetConsoleWindow")
$DOSBOCHandle = $sDllValue[0]




; Anzahl der Zeichen pro Zeile ermitteln aus den Default Werten der Registry
$s_temp = Hex(RegRead("HKCU\Console", "WindowSize"), 4) ; in den letzten 4 Zeichen steht die Horizontale Breite
$i_WindowSizeHorizontal = Dec($s_temp)




;                   	     10        20        30        40        50        60        70        80
;                 	12345678901234567890123456789012345678901234567890123456789012345678901234567890
Dim $s_Header = _
					"+------------------------------------------------------------------------------" & @CRLF & _
					"| pinz.exe - Version " & FileGetVersion(@ScriptName) & @CRLF & _
					"+------------------------------------------------------------------------------" & @CRLF & _
					"| 2015 von Bernhard Linz für http://znil.net - Kontakt: Bernhard@znil.net" & @CRLF & _
					"+------------------------------------------------------------------------------" & @CRLF & _
					@CRLF


;                            10        20        30        40        50        60        70        80
;                 	12345678901234567890123456789012345678901234567890123456789012345678901234567890
Dim $s_HilfeText = _
					"Pinz - Ein ping Programm welches die Laufzeit des Pings optisch darstellt" &  @CRLF & _
					"-------------------------------------------------------------------------------" & @CRLF & _
					@CRLF & _
					"Aufruf: " & @CRLF & _
					@CRLF & _
					@ScriptName & " Ziel [-t]" & @CRLF & _
					@CRLF & _
					"Ziel             : IP-Adresse (IPv4 oder IPv6) oder NetBIOS-Name oder" & @CRLF & _
					"                   DNS-Name des Ziels" & @CRLF & _
					@CRLF & _
					" -t              : Kontinuierlich pingen bis das Programm per STRG + C gestoppt" & @CRLF & _
					"                   wird" & @CRLF & _
					@CRLF & _
					" -n Anzahl       : Anzahl von Pinganforderungen die gesendet werden sollen," & @CRLF & _
					"                   Standard ist 4" & @CRLF & _
					@CRLF & _
					" -l Größe        : Größe der Datenpakete in Bytes, STandard sind 32 Bytes" & @CRLF & _
					@CRLF & _
					" -p Zeit         : Pause zwischen den einzelnen Pings in Millisekunden," & @CRLF & _
					"                   Standard ist 1.000 = 1s" & @CRLF & _
					@CRLF & _
					" -w Zeitlimit    : Zeitlimit in Millisekunden für eine Rückmeldung." & @CRLF & _
					@CRLF & _
					"+------------------------------------------------------------------------------" & @CRLF & _
					"| pinz.exe ist FREEWARE!" & @CRLF & _
					"| Kopieren, weitergeben ausdrücklich erlaubt!" & @CRLF & _
					"| Die jeweils aktuelleste Version und Anleitungen findet Ihr unter:" & @CRLF & _
					"| http://znil.net/index.php?title=pinz" & @CRLF & _
					"+------------------------------------------------------------------------------" & @CRLF


; Fehlertexte für "PingLikeMicrosoft" setzen
$a_PingError[1] = "Zielhost ist Offline"
$a_PingError[2] = "Zielhost nicht erreichbar "
$a_PingError[3] = "unbekanntes Ziel"
$a_PingError[4] = "Netzwerkfehler"


; *************************************************************************************
;    ######## ##     ## ##    ##  ######  ######## ####  #######  ##    ##  ######
;    ##       ##     ## ###   ## ##    ##    ##     ##  ##     ## ###   ## ##    ##
;    ##       ##     ## ####  ## ##          ##     ##  ##     ## ####  ## ##
;    ######   ##     ## ## ## ## ##          ##     ##  ##     ## ## ## ##  ######
;    ##       ##     ## ##  #### ##          ##     ##  ##     ## ##  ####       ##
;    ##       ##     ## ##   ### ##    ##    ##     ##  ##     ## ##   ### ##    ##
;    ##        #######  ##    ##  ######     ##    ####  #######  ##    ##  ######
; *************************************************************************************




;           #    #     #  #####  ###  #####  ####### ####### #     #
;          # #   ##    # #     #  #  #     # #     # #       ##   ##
;         #   #  # #   # #        #        # #     # #       # # # #
;        #     # #  #  #  #####   #   #####  #     # #####   #  #  #
;        ####### #   # #       #  #  #       #     # #       #     #
;        #     # #    ## #     #  #  #       #     # #       #     #
;        #     # #     #  #####  ### ####### ####### ####### #     #
;#######
; _ANSI2OEM löst das Problem mit dem Umlauten und anderen Sonderzeichen. Es wandelt Text so um das er korrekt in der DOS-Box dargestellt wird
; So können hier im Quellcode auch Umlaute verwendet werden (in den Textausgaben) und diese werden dann korrekt dargestellt
Func _ANSI2OEM($text)
	$text = DllCall('user32.dll', 'Int', 'CharToOem', 'str', $text, 'str', '')
	Return $text[2]
	;Return $text
EndFunc   ;==>_ANSI2OEM




;        #     #                           #
;        #     # # #      ###### ######   # #   #    #  ####   ####  ###### #####  ###### #    #
;        #     # # #      #      #       #   #  #    # #      #    # #      #    # #      ##   #
;        ####### # #      #####  #####  #     # #    #  ####  #      #####  #####  #####  # #  #
;        #     # # #      #      #      ####### #    #      # #  ### #      #    # #      #  # #
;        #     # # #      #      #      #     # #    # #    # #    # #      #    # #      #   ##
;        #     # # ###### #      ###### #     #  ####   ####   ####  ###### #####  ###### #    #
;#######
; Hilfsroutine die den Hilfetext ausgibt
Func _HilfeAusgeben()
	ConsoleWrite(_ANSI2OEM($s_Header))
	ConsoleWrite(_ANSI2OEM($s_HilfeText))
EndFunc   ;==>_HilfeAusgeben




;         #####  ####### ######  #                #####
;        #     #    #    #     # #               #     #
;        #          #    #     # #               #
;        #          #    ######  #               #
;        #          #    #   #   #               #
;        #     #    #    #    #  #               #     #
;         #####     #    #     # #######          #####
;#######                                 #######
; die Tastenkombination STRG +C abfangen um dann eine Zusammenfassung auszugeben
Func _CTRL_C()
	If WinActive( $DOSBOCHandle, "" ) Then
		; Unser Fenster ist gerade aktiv!
		_WriteStatistics()
		; Abfangen von STRG + C aufheben
		HotKeySet( "^c" )
		Exit $i_Error
	Else
		; Es wurde zwar STRG + C gedrückt - das war aber nicht für uns bestimmt
		; Wir senden deshalb den Tastendruck weiter
		HotKeySet( "^c" )
		Send( "^c" )
		HotKeySet( "^c","_CTRL_C" )
	EndIf
EndFunc




;        #     #                        #####
;        #  #  # #####  # ##### ###### #     # #####   ##   ##### #  ####  ##### #  ####   ####
;        #  #  # #    # #   #   #      #         #    #  #    #   # #        #   # #    # #
;        #  #  # #    # #   #   #####   #####    #   #    #   #   #  ####    #   # #       ####
;        #  #  # #####  #   #   #            #   #   ######   #   #      #   #   # #           #
;        #  #  # #   #  #   #   #      #     #   #   #    #   #   # #    #   #   # #    # #    #
;         ## ##  #    # #   #   ######  #####    #   #    #   #   #  ####    #   #  ####   ####
;#######
Func _WriteStatistics()
	Local $i_Packets_Lost
	If $i_Packets_Send > 0 Then
		If $i_PingTimeMax = 9999999999 Then
			$i_PingTimeMax = 0
		EndIf
		$i_Packets_Lost = Int(($i_Packets_Send - $i_Packets_Receive) / $i_Packets_Send * 100)
		; eben noch sicher gehen das der Prozentwert nicht größer als 100 oder kleiner als 0 ist - kann passieren wenn vor dem ersten Ping schon abgebrochen wird
		If $i_Packets_Lost < 0 Then
			$i_Packets_Lost = 0
		EndIf
		If $i_Packets_Lost > 100 Then
			$i_Packets_Lost = 100
		EndIf
		ConsoleWrite(@CRLF)
		ConsoleWrite(_ANSI2OEM("PingZ-Statistik für " & $s_IP & ":" & @CRLF))
		ConsoleWrite("     Pakete: Gesendet = " & $i_Packets_Send & ", Empfangen = " & $i_Packets_Receive & ", Verloren = " & ($i_Packets_Send - $i_Packets_Receive) & @CRLF)
		ConsoleWrite("     (" & $i_Packets_Lost & "% Verlust)," & @CRLF)
		ConsoleWrite("Ca. Zeitangaben in Millisekunden:" & @CRLF)
		ConsoleWrite("     Minimum = " & $i_PingTimeMin & "ms, Maximum = " & $i_PingTimeMax & "ms, Mittelwert = " & Int(($i_PingTimeMin + $i_PingTimeMax) / 2) & "ms" & @CRLF)
	EndIf
EndFunc






; Nachfolgendes wird für die "PingLikeMicrosoft" Function gebraucht
; Die wurde benötigt da ich bei der in AutoIt eingebauten Ping-Funktion nicht die Paket-Größe ändern kann
; Die Funktion habe ich hier gefunden: http://www.autoitscript.com/forum/topic/129525-ping-help/
Func _IcmpCustomPayload($sAddress, $sDataToSend, ByRef $ECHO, $PING_TIMEOUT = 4000) ; ECHO As ICMP_ECHO_REPLY
	; $ECHO receives an ICMP_ECHO_REPLY on success
	; by Prog@ndy, used VBSource from http://vbnet.mvps.org/index.html?code/internet/ping.htm
	; on success return 1 , else 0
	Local $return = 0, $error = 0
	;~   'If Ping succeeds :
	;~   '.RoundTripTime = time in ms for the ping to complete,
	;~   '.Data is the data returned (NULL terminated)
	;~   '.Address is the Ip address that actually replied
	;~   '.DataSize is the size of the string in .Data
	;~   '.Status will be 0
	;~   '
	;~   'If Ping fails .Status will be the error code
	Local $WSOCK32DLL = DllOpen("wsock32.dll")
	; use Icmp.dll for: Windows 2000 Server and Windows 2000 Professional
	;Local $ICMPDLL = DllOpen("icmp.dll")
	; use Iphlpapi.dll for: Windows Server 2008, Windows Vista, Windows Server 2003, and Windows XP
	Local $ICMPDLL = DllOpen("Iphlpapi.dll")
	Local $hPort ;As Long
	Local $dwAddress ;As Long
	Local $INADDR_NONE = -1
	;~ If Not StringRegExp($sAddress,"\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}") Then
	;~   TCPStartup()
	;~   $sAddress = TCPNameToIP($sAddress)
	;~   TCPShutdown()
	;~ EndIf
	;~   'convert the address into a long representation
	$dwAddress = DllCall($WSOCK32DLL, "uint", "inet_addr", "str", $sAddress)
	$dwAddress = $dwAddress[0]
	;~   'if a valid address..
	If $dwAddress <> $INADDR_NONE Or $sAddress = "255.255.255.255" Then
		;~  'open a port
		$hPort = DllCall($ICMPDLL, "hwnd", "IcmpCreateFile")
		$hPort = $hPort[0]
		;~  'and if successful,
		If $hPort Then
			$ECHO = DllStructCreate($tagICMP_ECHO_REPLY & ";char[355]")
			;~	 'ping it.
			Local $ret = _IcmpSendEcho($hPort, _
				$dwAddress, _
				$sDataToSend, _
				StringLen($sDataToSend), _
				0, _
				DllStructGetPtr($ECHO), _
				DllStructGetSize($ECHO), _
				$PING_TIMEOUT, _
				$ICMPDLL)
				;~	 'return the status as ping succes and close
				$error = DllStructGetData($ECHO, "Status")
			If $error = $IP_SUCCESS Then $return = 1
			DllCall($ICMPDLL, "uint", "IcmpCloseHandle", "hwnd", $hPort)
		EndIf
	Else
		;~	 'the address format was probably invalid
		$return = 0
		$error = $INADDR_NONE
	EndIf
	DllClose($WSOCK32DLL)
	DllClose($ICMPDLL)
	Return SetError($error, 0, $return)
EndFunc   ;==>_IcmpCustomPayload


; by BugFix, modified by Prog@ndy
; für 1000 < @error < 1004 is der error von Dllcall. Die DllCall-Fehlernummer ist dabei @error/1000
Func _IcmpSendEcho($IcmpHandle, $DestinationAddress, $RequestData, $RequestSize, $RequestOptions, $ReplyBuffer, $ReplySize, $Timeout, $ICMPDLL = "icmp.dll")
	Local $ret = DllCall($ICMPDLL, "dword", "IcmpSendEcho", _
		"hwnd", $IcmpHandle, _
		"uint", $DestinationAddress, _
		"str", $RequestData, _
		"dword", $RequestSize, _
		"ptr", $RequestOptions, _
		"ptr", $ReplyBuffer, _
		"dword", $ReplySize, _
		"dword", $Timeout)
	If @error Then Return SetError(@error+1000, 0, 0)
	Return $ret[0]
EndFunc   ;==>_IcmpSendEcho


Func _PingLikeMicrosoft($DestinationAddress, $Timeout = 4000, $sPayLoad = "abcdefghijklmnopqrstuvwabcdefghi")
	; function created by CUNNINGT
	Local $ECHORet
	Local $pingSucess = _IcmpCustomPayload($DestinationAddress, $sPayLoad, $ECHORet, $Timeout)
	If @error Then
		Switch @error
			Case $IP_REQ_TIMED_OUT
				$i_Error = 1
				$i_Extended = 1
				Return SetError(1, 1)
			Case $IP_DEST_HOST_UNREACHABLE
				$i_Error = 1
				$i_Extended = 2
				Return SetError(1, 2)
			Case $IP_BAD_DESTINATION
				$i_Error = 1
				$i_Extended = 3
				Return SetError(1, 3)
			Case Else
				$i_Error = 1
				$i_Extended = 4
				Return SetError(1, 4)
		EndSwitch
	Else
		$i_Error = 0
		$i_Extended = 0
		Return DllStructGetData($ECHORet, "RoundTripTime")
	EndIf
EndFunc   ;==>_PingLikeMicrosoft


; ****************************************
;    ##     ##    ###    #### ##    ##
;    ###   ###   ## ##    ##  ###   ##
;    #### ####  ##   ##   ##  ####  ##
;    ## ### ## ##     ##  ##  ## ## ##
;    ##     ## #########  ##  ##  ####
;    ##     ## ##     ##  ##  ##   ###
;    ##     ## ##     ## #### ##    ##
; ****************************************


; falls keine Parameter angegeben wurden die Hilfe ausgeben
If $CmdLine[0] = 0 Then
	_HilfeAusgeben()
	Exit 0
EndIf
;testen ob der Parameter 1 ist auf "/?" testen und ebenfalls Hilfe ausgeben
If $CmdLine[1] = "/?" Then
	_HilfeAusgeben()
	Exit 0
EndIf


; Die übergebenen Parameter auswerten und zuordnen
For $i = 1 To $CmdLine[0]
	If StringLeft($CmdLine[$i], 2) = "-t" Then
		; Dauerping!
		$b_EndlessPing = True
	ElseIf StringLeft($CmdLine[$i], 2) = "-n" Then
		; Bestimmte Anzahl von Ping senden
		If $CmdLine[0] >= ($i + 1) Then
			$i = $i + 1
			$i_n = Int($CmdLine[$i])
			If $i_n < 1 Then
				$i_n = 4
			EndIf
		Else
			ConsoleWrite(_ANSI2OEM("Der Wert muss für die Option angegeben werden: -n" & @CRLF))
			Exit 1
		EndIf
	ElseIf StringLeft($CmdLine[$i], 2) = "-p" Then


		If $CmdLine[0] >= ($i + 1) Then
			$i = $i + 1
			$i_Pause = Int($CmdLine[$i])
		Else
			ConsoleWrite(_ANSI2OEM("Der Wert muss für die Option angegeben werden: -p" & @CRLF))
			Exit 1
		EndIf
	ElseIf StringLeft($CmdLine[$i], 2) = "-l" Then
		If $CmdLine[0] >= ($i + 1) Then
			$i = $i + 1
			$i_temp = Int($CmdLine[$i])
			If $i_temp < 1 Then
				$i_temp = 32
			EndIf
			$s_Payload = ""
			For $j = 1 To $i_temp
				$s_Payload = $s_Payload & "z"
			Next
		EndIf
	ElseIf StringLeft($CmdLine[$i], 2) = "-w" Then
		If $CmdLine[0] >= ($i + 1) Then
			$i = $i + 1
			$i_TimeOut = Int($CmdLine[$i])
			If $i_TimeOut < 1 Then
				$i_TimeOut = 4000
			EndIf
			ConsoleWrite("Timneout: " & $i_TimeOut & @CRLF)
		Else
			ConsoleWrite(_ANSI2OEM("Der Wert muss für die Option angegeben werden: -w" & @CRLF))
			Exit 1
		EndIf
	Else
		$s_TargetHost = $CmdLine[$i]
	EndIf
Next


HotKeySet("^c", "_CTRL_C")




TCPStartup()


$s_IP = TCPNameToIP($s_TargetHost)
$s_DNS = _TCPIpToName($s_IP)
TCPShutdown ( )


If $s_IP = "" Then
	ConsoleWrite(_ANSI2OEM("pinz konnte Host " & $s_TargetHost & " nicht finden. Überprüfen Sie den Namen, und versuchen Sie es erneut." & @CRLF))
	Exit 1
EndIf


ConsoleWrite(@CRLF)
If $s_DNS = "" Then
	ConsoleWrite(_ANSI2OEM("pinz wird ausgeführt für " & $s_IP & " mit " & StringLen($s_Payload) & " Bytes Daten:" & @CRLF))
Else
	ConsoleWrite(_ANSI2OEM("pinz wird ausgeführt für " & $s_DNS & " [" & $s_IP & "] mit " & StringLen($s_Payload) & " Bytes Daten:" & @CRLF))
EndIf






While 1
	If $b_SkipPing = False Then
		$i_Packets_Send = $i_Packets_Send + 1
		;$s_Result = "Antwort von " & $s_IP & ": "
		$s_Result = " " & $s_IP & ": "
		If $s_IP = "127.0.0.1" Then
			$i_PingTime = Ping($s_IP, $i_TimeOut)
		Else
			$i_PingTime = _PingLikeMicrosoft($s_IP, $i_TimeOut, $s_Payload)
		EndIf
		;  When the function fails, @error contains extended information:
		;    1 = Host is offline
		;    2 = Host is unreachable
		;    3 = Bad destination
		;    4 = Other errors
;~ 		MsgBox(0,"",@error & ";" & @extended)
		If $i_Error > 0 Then
			$a_PingError[0] = _ANSI2OEM(" Zeitüberschreitung (" & $a_PingError[$i_Extended] & ")" )
			If $i_Extended > 0 Then
				$s_Result = $s_Result & "       " & Chr(195) & " " & $a_PingError[$i_Extended]
			Else
;~ 				$s_Result = $s_Result & "       " & Chr(179) & _ANSI2OEM(" Zeitüberschreitung (>") & $i_TimeOut & "ms)"
				$s_Result = StringTrimRight($s_Result, 1)
				For $i = 1 To (4 - StringLen($i_TimeOut))
					$s_Result = $s_Result & " "
				Next
				$s_Result = $s_Result & ">" & $i_TimeOut & "ms " & Chr(179)
			EndIf
			$i_PingTime = 0
		EndIf
		If $i_PingTime > $i_TimeOut Then
			$i_PingTime = 0
			;ConsoleWrite("Result: " & $s_Result & @CRLF)
			$s_Result = StringTrimRight($s_Result, 1)
			For $i = 1 To (4 - StringLen($i_TimeOut))
				$s_Result = $s_Result & " "
			Next
			$s_Result = $s_Result & ">" & $i_TimeOut & "ms " & Chr(179)
		EndIf
		If $i_PingTime >= 0 And $i_Error = 0 Then
			For $i = 1 To (4 - StringLen($i_PingTime))
				$s_Result = $s_Result & " "
			Next
			$i_Packets_Receive = $i_Packets_Receive + 1
			If $i_PingTime < $i_PingTimeMax Then
				$i_PingTimeMax = $i_PingTime
			EndIf
			If $i_PingTime > $i_PingTimeMin Then
				$i_PingTimeMin = $i_PingTime
			EndIf
	;~ 		$s_Result = $s_Result & $i_PingTime & "ms |"
			$s_Result = $s_Result & $i_PingTime & "ms " & Chr(195)
		EndIf
		; So, String sollte jetzt genau 8 Zeichen lang sein, bleiben noch 72 für Anzeige
		If $i_PingTime < ($i_WindowSizeHorizontal - StringLen($s_Result)) Then
			; Variante 1: Ping ist unter maximalen Fensterbreite
			For $i = 1 To ($i_PingTime)
	;~ 			$s_Result = $s_Result & "-"
	;~ 			$s_Result = $s_Result & Chr(196) ; Pfeilspitze
	;~ 			$s_Result = $s_Result & Chr(178) ; grauer Kasten 1
	;~ 			$s_Result = $s_Result & Chr(219) ; voller Kasten
				$s_Result = $s_Result & Chr(254) ; voller Kasten klein
			Next
		Else
			; Neue Variante 2: Wir kürzen den Wert auf unter 100!
			$i_PercentPingTime = Int(StringRight($i_PingTime, 2))
			If $i_PercentPingTime > ($i_WindowSizeHorizontal - StringLen($s_Result)) Then
				; In Prozente umrechnen im Verhältnis zu den freien Zeichen
				$i_PercentPingTime = Int(($i_WindowSizeHorizontal - StringLen($s_Result)) / $i_PercentPingTime * 100)
				; Aus den Prozenten wieder die Anzahl der Zeichen errechnen
				$i_PercentPingTime = Int(($i_WindowSizeHorizontal - StringLen($s_Result)) * $i_PercentPingTime / 100)
			EndIf
	;~ 		ConsoleWrite("Breite der Konsole              : " & $i_WindowSizeHorizontal & @CRLF)
	;~ 		ConsoleWrite("Bisherige Länge                 : " & StringLen($s_Result) & @CRLF)
	;~ 		ConsoleWrite("Noch freie Zeichen in der Zeile : " & ($i_WindowSizeHorizontal - StringLen($s_Result)) & @CRLF)
	;~ 		ConsoleWrite("Geplante Zeichen                : " & ($i_PercentPingTime - 1) & @CRLF)
	;~ 		ConsoleWrite("Summe:                          : " & (StringLen($s_Result) + $i_PercentPingTime) & @CRLF)


			For $i = 1 To ($i_PercentPingTime - 1)
	;~ 			$s_Result = $s_Result & "-"
	;~ 			$s_Result = $s_Result & Chr(196) ; Pfeilspitze
	;~ 			$s_Result = $s_Result & Chr(178) ; grauer Kasten 1
	;~ 			$s_Result = $s_Result & Chr(219) ; voller Kasten
				$s_Result = $s_Result & Chr(254) ; voller Kasten klein
			Next
		EndIf


	;~ 	If $i_PingTime > $i_LastPingTime Then
	;~ 		$s_Result = $s_Result & Chr(16)
	;~ 	ElseIf $i_PingTime = $i_LastPingTime Then
	;~ 		$s_Result = $s_Result & Chr(16)
	;~ 	Else
	;~ 		$s_Result = $s_Result & Chr(16)
	;~ 	EndIf


	;~ 	If $i_PingTime <= 0 Then
	;~ 		$s_Result = $s_Result & _ANSI2OEM(" Zeitüberschreitung (") & $i_TimeOut & "ms)"
	;~ 	EndIf


		If ($i_LastPingTime < $i_PingTime) And ($i_LastResultLen = StringLen($s_Result)) Then
			$s_Result = $s_Result & Chr(254)
		EndIf
		If ($i_LastPingTime > $i_PingTime) And ($i_LastResultLen = StringLen($s_Result)) Then
			$s_Result = StringTrimRight($s_Result, 1)
		EndIf




		ConsoleWrite($s_Result & @CRLF)
		$i_LastResultLen = StringLen($s_Result)


	EndIf
	; Sleep($i_Pause)


	$i_LastPingTime = $i_PingTime


	If $b_SkipPing = False Then
		$i_timer = TimerInit()
		$b_SkipPing = True
	EndIf
	If $b_SkipPing = True Then
		If TimerDiff($i_timer) > $i_Pause Then
;~ 			ConsoleWrite(TimerDiff($i_timer) & "ms" & @CRLF)
			$b_SkipPing = False
			If $b_EndlessPing = False Then
				$i_Counter = $i_Counter + 1
				If $i_Counter >= $i_n Then
					ExitLoop
				EndIf
			EndIf
		Else
			Sleep(100)
		EndIf
	EndIf
WEnd


_WriteStatistics()
Exit $i_Error

Alles anzeigen

Überall wo ich mir den Code von extern zusammenkopiert habe sind die Original Links drin, bekannte Namen aus diesem Forum sind auch dabei.
Warum auch immer gab es ein Problem beim anpingen des Localhost, nur dann wird das Interne Ping von AutoIt genutzt, ansonsten das _PingLikeMicrosoft()

[Blockierte Grafik: https://znil.net/images/c/c8/ClipCapIt-170628-163755.PNG]

Eventuell löst das ja dein Problem und du kannst dir die passenden Infos aus dem Skript rauskopieren.
Das Skript gibt übrigens auch einen korrekten %ERRORCODE% zurück, mit dem original Ping hatte ich da auch mal meine Probleme in einem Batch-Skript.

Gruß,
BLinz

chrisbyRRC

Zitat von Oscar

Sind das eigentlich alles Windows-PCs mit Datei- und Druckerfreigabe?
Dann könnte man mit einem Portscan auf den IP-Bereich die entsprechenden Rechner finden

Auch ne gute Idee! Aber da DHCP zum Einsatz kommt würde ich lieber mit dem Hostname die Abfrage realisieren. Und ein kompletter Port-Scan im gesamten Netz würde wahrscheinlich auch lange brauchen, oder?

@BLinz
Cooles Programm, da werde ich bestimmt auch noch was interessantes finden!

Vielen Dank Euch!

**Bitnugger**

C:\pinz.exe znil.net -t

PingZ-Statistik für...

Da kann sich wohl jemand nicht entscheiden, wie er sein Tool benennen soll...

**Oscar**

Zitat von chrisbyRRC

Und ein kompletter Port-Scan im gesamten Netz würde wahrscheinlich auch lange brauchen, oder?

Es wird ja nur Port 445 (Datei- und Druckerfreigabe) gescannt.
Das geht ziemlich schnell im lokalen Netz. Schneller als Ping auf alle Fälle.

BLinz

Zitat von Bitnugger

C:\pinz.exe znil.net -t

PingZ-Statistik für...

Da kann sich wohl jemand nicht entscheiden, wie er sein Tool benennen soll...

In der Tat habe ich das Ding mehrmals umbenannt ... am Anfang war es ping+, irgendwann pingz und schließlich pinz.
Ich finde das manchmal gar nicht so einfach dem Ding einen passenden, eindeutigen Namen zu geben ...

Yjuq

Zitat von BLinz

Ich finde das manchmal gar nicht so einfach dem Ding einen passenden, eindeutigen Namen zu geben ...

Ich handhabe das meistens so, dass meine Funktionen einfach durchnummeriert werden:

_0001()
_0002()
_0003()

Nie wieder über lästige Funktionsnamen nachdenken!

**alpines**

Zitat von Make-Grafik

Ich handhabe das meistens so, dass meine Funktionen einfach durchnummeriert werden:
_0001()
_0002()
_0003()

Nie wieder über lästige Funktionsnamen nachdenken!

Du nutzt mehrere Funktionen? Anfänger! Eine einzige Funktion die unterschiedliche Parameter akzeptiert und daraufhin unterschiedliche Befehle ausführt ist viel besser vom Coding-Stil her.

**Kanashius**

Pfff... mehrere Parameter... Alles in ein Array und gut ist. Dann wird die Parameterliste auch nicht so lang.
Und ne Funktion brauchts auch nicht, kannst ja auch so in Quelltext schreiben und kopieren