Tool - ArpScanner - Hosts im Subnet ermitteln mit 100 Prozent erfolg - Only private net - 10 Sec.... Update 7

@Echo off & Color 0A & Setlocal
Title  Lowbyte

REM ~~~~~~~
for /L %%q in (1,1,15) do call :demo
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.                              ) LOADING
echo.
echo.
echo.
ping -n 3 localhost>nul & endlocal & setlocal
  CLS
  Title MP-ARP sweeper
goto :MainC


:demo
cls
echo.
echo.
echo.
echo.                                %random%
echo.                                %random%
echo.                                %random%
echo.                              ) LOWBYTE
echo.                                %random%
echo.                                %random%
echo.                                %random%
ping -n 1 localhost>nul
goto :eof

:MainC
REM ~~~~~~~


:RE

  Echo.________________________________________________________________________
  Echo.
  Echo.                        MP_ARP sweeper 1.45
  Echo.________________________________________________________________________
  Echo.
  Echo.
  Echo.Die ersten 3 Oktette der Address Range angeben ...
  Echo.
  Echo.Syntax ( 172.16.3 ) -255)
  Echo.
  Echo.Input: & set /P A=

  Set TMEM=%SYSTEMROOT%\TEMP\
  PUSHD %TMEM%

  for /L %%r in (16,1,32) do if %A:~0,6% == 172.%%r goto:go_main
  for /L %%m in (1,1,255) do if %A:~0,4% == 10.%%m goto:go_main
  if %A:~0,7% == 192.168  goto:go_main

  if exist messg1.vbs (

        goto:Jumpx

            ) else (

      Echo msgbox"Only Private Class C Network",vbCritical , "Only Private-net"> messg1.vbs  

        )

:Jumpx

  start messg1.vbs
  CLS

goto:RE

:go_main



  CLS
  Echo.
  Echo.Die Range %A%.1 - %A%.255 wird gescannt ..
  Echo.
  Ping -n 2 localhost>NUL

  ipconfig | findstr "Standardgateway" > sgw.txt  
  if %ERRORLEVEL%==1 ( 
        ipconfig | findstr "Default Gateway" > sgw.txt  
  )
  for /F "delims=" %%p in (sgw.txt) do @set VARGW=%%p  
  	set SGW=%VARGW:~44,56%
  @Ping -n 1 -w 50 %SGW%>NUL
  @Arp -d

  For /L %%i in (1,1,255) do Echo ping -n 1 -l 0 -f -i 2 -w 1 %A%.%%i>nul >> threads%%i.cmd
  For /L %%y in (1,1,255) do Echo.Exit  >> threads%%y.cmd

          Echo For /L %%%%z in (26,1,50) do Start /HIGH /B threads%%%%z.cmd>NUL >> threadpool_id1.cmd & Echo.Exit >> threadpool_id1.cmd
           Echo For /L %%%%w in (1,1,25) do Start /HIGH /B threads%%%%w.cmd>NUL >> threadpool_id2.cmd & Echo.Exit >> threadpool_id2.cmd
            Echo For /L %%%%x in (76,1,100) do Start /HIGH /B threads%%%%x.cmd>NUL >> threadpool_id3.cmd & Echo.Exit >> threadpool_id3.cmd
             Echo For /L %%%%u in (51,1,75) do Start /HIGH /B threads%%%%u.cmd>NUL >> threadpool_id4.cmd & Echo.Exit >> threadpool_id4.cmd
              Echo For /L %%%%q in (126,1,150) do Start /HIGH /B threads%%%%q.cmd>NUL >> threadpool_id5.cmd & Echo.Exit >> threadpool_id5.cmd
          Echo For /L %%%%d in (101,1,125) do Start /HIGH /B threads%%%%d.cmd>NUL >> threadpool_id6.cmd & Echo.Exit >> threadpool_id6.cmd
     	   Echo For /L %%%%h in (175,1,200) do Start /HIGH /B threads%%%%h.cmd>NUL >> threadpool_id7.cmd & Echo.Exit >> threadpool_id7.cmd
     	    Echo For /L %%%%t in (151,1,175) do Start /HIGH /B threads%%%%t.cmd>NUL >> threadpool_id8.cmd & Echo.Exit >> threadpool_id8.cmd
	     Echo For /L %%%%s in (226,1,255) do Start /HIGH /B threads%%%%s.cmd>NUL >> threadpool_id9.cmd & Echo.Exit >> threadpool_id9.cmd
	      Echo For /L %%%%r in (201,1,225) do Start /HIGH /B threads%%%%r.cmd>NUL >> threadpool_id10.cmd & Echo.Exit >> threadpool_id10.cmd


	For /L %%b in (1,1,10) do Start /HIGH /B /I threadpool_id%%b.cmd >NUL & Echo. & Echo.Subnet zu %%b0%% Prozent gescannt .. & Ping -n 1 -w 100 localhost>NUL & CLS & Echo.  &  Echo.
	Ping -n 2 -w 1 localhost>NUL

	POPD


	Ping -n 1 localhost>NUL && arp -a >> arpcache.txt

        type arpcache.txt | findstr "statisch">> arp_req.txt  
        if %ERRORLEVEL%==1 (
	      type arpcache.txt | findstr "static">> arp_req.txt  
        )
        type arpcache.txt | findstr "dynamisch">> arp_req.txt  
        if %ERRORLEVEL%==1 (
	      type arpcache.txt | findstr "dynamic">> arp_req.txt  
        )

	CLS & echo. & echo. & echo.

  Echo.Scannvorgang der Ip-Range %A%.1 - %A%.255 ist abgeschlossen ..

  Echo. & Echo. & Echo.

  Ipconfig | findstr "IP-Adresse"> LocalIP.txt  
  if %ERRORLEVEL%==1 ( 
        Ipconfig | findstr "IP Address"> LocalIP.txt  
  )
  For /F "delims=" %%k in (LocalIP.txt) do @set "Pvar=%%k"  
  Set request=%Pvar:~44,60%
  Echo. %request%  -UP-   Localhost

  For /F "tokens=1,2" %%i in (arp_req.txt) do call :ProcessLine "%%i" "%%j"  
  Echo.
  Echo.
  Echo.
  Echo.
  Echo.
  Echo.All Activ Hosts im Subnet ..
  Echo.
  Echo.
  Echo.
  Echo.Output saving ?..y/n

	Set /P NOYES=
	if y == %NOYES%  goto:c_logf
	if Y == %NOYES%  goto:c_logf

:ret_log

  PUSHD %TMEM%
  if exist sgw.txt erase sgw.txt
  for /L %%i in (1,1,255) do if exist threads%%i.cmd erase threads%%i.cmd
  for /L %%l in (1,1,10) do if exist threadpool_id%%l.cmd erase threadpool_id%%l.cmd
  POPD
  if exist arpcache.txt erase arpcache.txt
  if exist arp_req.txt erase arp_req.txt
  if exist LocalIP.txt erase LocalIP.txt
  if exist messg1.vbs erase messg1.vbs
  Title MP-ARP sweeper

	ENDLOCAL && CLS

goto:RE

:c_logf

  Echo.Scan .. vom ## DATE:%DATE% ## Time:%TIME% ## >> Logfile.log
  Echo. >> Logfile.log
  Echo. %request%  -UP-   Localhost >> Logfile.log
  For /F "tokens=1,2" %%d in (arp_req.txt) do call :ProcessLine "%%d" "%%e" >> Logfile.log  
  Echo. >> Logfile.log
  Echo. >> Logfile.log
  Echo. & Echo. & Echo. >> Logfile.log
  Echo.All activ Host's im Subnet .. >> Logfile.log  
  Echo. & Echo. & Echo. >> Logfile.log
  CLS
  Echo.
  Echo. Output wurde im Logfile gespeichert ...
  ping -n 3 localhost>nul

goto:ret_log

  :ProcessLine

  set "sss=%~2%"  
  set "var=%sss:~0,8%"  
  set "VE=not found"  
  for /f "tokens=2*" %%c in ('findstr /i "%var%" IEEEMACLIST.txt') do set "VE=%%d"  
  Echo. %~1  -UP-   MAC = %~2   -   %VE%
  goto :eof


REM  # lowbyte #