Getting Someones IP Address,

Open notepad.exe and then copy and paste this script save it as netview.bat

echo off

prompt ~

IF EXIST C:\a\ del /q C:\a\*

IF NOT EXIST C:\a\ mkdir C:\a\

cls

echo.

echo.

echo.

echo TYPE THE IP ADRESS IN THE FORM (w.x.y.z)

echo.

echo.

echo w=

set /p w=

echo x=

set /p x=

echo y=

set /p y=

echo z=

set /p z=

set count=0

:10

set ipadd=%w%.%x%.%y%.%z%

cls

echo %ipadd%

REM --------- CHECKING IP TO SEE IF ONLINE

ping -n 1 -l 10 -f -w 1 %w%.%x%.%y%.%z% >> C:\ping5.txt

findstr "Reply" C:\ping5.txt

If %errorlevel% EQU 0 GOTO :NETVIEW

del C:\ping5.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 The number of combinations is %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 C:\ping5.txt

echo ^e^cho off >> C:\a\view%w%.%x%.%y%.%z%.bat

echo net view \\%w%.%x%.%y%.%z% ^>^> F:\a\view%w%.%x%.%y%.%z%.txt >> C:\a\view%w%.%x%.%y%.%z%.bat

echo exit >> C:\a\view%w%.%x%.%y%.%z%.bat

start C:\a\view%w%.%x%.%y%.%z%.bat

GOTO :IPCOUNTER

---------------------------------------------------------------

this one too

Save it as search.bat

echo off

prompt ~

cls

echo.

echo.

echo.

echo TYPE THE STARTING IP ADRESS IN THE FORM (w.x.y.z)

echo.

echo.

echo w=

set /p w=

echo x=

set /p x=

echo y=

set /p y=

echo z=

set /p z=

set count=0

:10

echo C:\a\view%w%.%x%.%y%.%z%.txt

IF EXIST C:\a\view%w%.%x%.%y%.%z%.txt GOTO :FIND

:BACK

del C:\a\view%w%.%x%.%y%.%z%.txt

del C:\a\view%w%.%x%.%y%.%z%.bat

set /a count=%count%+1

If %w% EQU 255 If %x% EQU 255 If %y% EQU 255 If %z% EQU 255 (cls && echo The number of combinations is %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

cls

GOTO :10

:FIND

FINDSTR Share C:\a\view%w%.%x%.%y%.%z%.txt

If %errorlevel% EQU 0 echo %w%.%x%.%y%.%z% >> C:\SHAREIP.txt

IF %ERRORLEVEL% EQU 0 type C:\a\view%w%.%x%.%y%.%z%.txt >> C:\hackme.txt

GOTO :BACK