batch ip scanner netview

Sebenarnya sudah ada aplikasi untuk mempermudah scanning
tapi gak ada salahnya bikin versi underdosnya!
Langsung praktek! di kopas ke notepad :

@echo off
prompt ~
color a
IF NOT EXIST c:a mkdir c:a
IF EXIST c:a del /q c:a*
cls
title Scanner IP Address
echo.
echo NET VIEW
echo ----------------------------------------------------
echo Masukkan IP Address (IP 1.IP 2.IP 3.IP 4)
echo Contoh Penggunaan (IP 1.IP 2.IP 3.IP 4)-(127.0.0.1)
echo Made Special To YOGYAFREE
echo Create By Shadow Angel
echo ----------------------------------------------------
echo.
echo IP 1=
set /p w=
echo IP 2=
set /p x=
echo IP 3=
set /p y=
echo IP 4=
set /p z=
set count=0

:10
set ipadd=%w%.%x%.%y%.%z%
cls
echo IP Address Yang Sedang Di Periksa
echo %ipadd%


title Mohon Di Tunggu Sedang Memeriksa...
echo ---------------------------------------
echo Sedang Memeriksa Ip Address Dan
echo Memeriksa Siapa Yang Sedang Online
echo ---------------------------------------


ping -n 1 -l 10 -f -w 1 %w%.%x%.%y%.%z% >> Status.txt
findstr "Reply" Status.txt
If %errorlevel% EQU 0 GOTO :NETVIEW
del Status.txt


:IPCOUNTER
set /a count=%count%+1

If %w% EQU 255 If %x% EQU 255 If %y% EQU 255 If %z% EQU 255 (cls && echo Nomor Kombinasi_nya adalah : %count%)
If %x% EQU 255 If %y% EQU 255 If %z% EQU 255 (Set /a w=%w%+1 && Set x=0 && Set y=0 && Set z=0 && goto :10)
If %y% EQU 255 If %z% EQU 255 (Set /a x=%x%+1 && Set y=0 && Set z=0 && goto :10)
If %z% EQU 255 (Set /a y=%y%+1 && Set z=0 && goto :10)
set /a z=%z%+1

GOTO :10

:NETVIEW
del Status.txt
echo ^e^cho off >> c:\a\ShadowScan-%w%.%x%.%y%.%z%.bat
echo net view %w%.%x%.%y%.%z% ^>^> c:\a\ShadowScan-%w%.%x%.%y%.%z%.txt >> c:\a\ShadowScan-%w%.%x%.%y%.%z%.bat
echo exit >> c:\a\ShadowScan-%w%.%x%.%y%.%z%.bat
start c:\a\ShadowScan-%w%.%x%.%y%.%z%.bat

GOTO :IPCOUNTER
::Salam di edit oleh Benny Kirana