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 #