@echo off
cmd /c "powershell write-host -fore magenta McD DHCP scanner - by Teo. McD DHCP scanner scannar av dom vanligaste DHCP adresserna, tex Wyse &echo(&pause"
:start
set /a "limit= 256"
set /p rest= "Ange restaurang: "
IF %rest% LSS %limit% goto :A

IF %rest% GEQ %limit% goto :B

:A
ping -n 1 -w 500 10.32.%rest%.24 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .24 Not ok

ping -n 1 -w 500 10.32.%rest%.25 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .25 Not ok

ping -n 1 -w 500 10.32.%rest%.26 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .26 Not ok

ping -n 1 -w 500 10.32.%rest%.27 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .27 Not ok

ping -n 1 -w 500 10.32.%rest%.28 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .28 Not ok

ping -n 1 -w 500 10.32.%rest%.29 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .29 Not ok

ping -n 1 -w 500 10.32.%rest%.67 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .67 Not ok

ping -n 1 -w 500 10.32.%rest%.68 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .68 Not ok

ping -n 1 -w 500 10.32.%rest%.69 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .69 Not ok

ping -n 1 -w 500 10.32.%rest%.70 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .70 Not ok

ping -n 1 -w 500 10.32.%rest%.77 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .77 Not ok

ping -n 1 -w 500 10.32.%rest%.78 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .78 Not ok
SET var=scan

IF "%var%"=="scan" (
    powershell write-host -fore green Scanning complete. OK
)

set /p adress="Vilken enhet vill du ansluta till?"

start C:\_Capgemini\VNC\vncviewer.exe 10.32.%rest%.%adress%

goto :start

:B
set /A "n=%rest%-%limit%"
ping -n 1 -w 500 10.117.%n%.67 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .67 Not ok

ping -n 1 -w 500 10.117.%n%.68 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .68 Not ok

ping -n 1 -w 500 10.117.%n%.69 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .69 Not ok

ping -n 1 -w 500 10.117.%n%.70 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .70 Not ok

ping -n 1 -w 500 10.117.%n%.77 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .77 Not ok

ping -n 1 -w 500 10.117.%n%.78 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .78 Not ok

ping -n 1 -w 500 10.117.%n%.24 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .24 Not ok

ping -n 1 -w 500 10.117.%n%.25 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .25 Not ok

ping -n 1 -w 500 10.117.%n%.26 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .26 Not ok

ping -n 1 -w 500 10.117.%n%.27 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .27 Not ok

ping -n 1 -w 500 10.117.%n%.28 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .28 Not ok

ping -n 1 -w 500 10.117.%n%.29 | FIND "Reply"
if %errorlevel% equ 1 powershell write-host -fore red .29 Not ok
SET var=scan

IF "%var%"=="scan" (
    powershell write-host -fore green Scanning complete. OK
)

set /p adress="Vilken enhet vill du ansluta till? "

start C:\_Capgemini\VNC\vncviewer.exe 10.117.%n%.%adress%

goto :start