@echo off
:PARAR
cls
setlocal EnableDelayedExpansion
echo.
set /p servein=Nombre del Servicio: 
set dname=%servein%
for /f "tokens=3*" %%a in ('sc GetDisplayName %dname% ^| findstr "Nombre"') do (set serveid=%%a %%b)
(sc query %servein% | FIND "NOMBRE") > tanca.txt
for /f "tokens=2" %%i in (tanca.txt) do (set cadena=%%i)
set cadenafinal=%serveid% : %cadena%
IF %ErrorLevel% EQU 1 (echo.&echo Servicio %servein% no existe !!)
IF %ErrorLevel% EQU 0 (
	for /f "tokens=4" %%a in ('sc query %servein% ^| findstr "ESTADO"') do (set "parat=%%a")
	rem echo parat:!parat!
	if "!parat!" == "STOPPED" (
		echo.
		echo El servicio %servein% ya esta detenido  
		echo.
		echo  Nombre Descriptivo: %serveid%
		echo  Nombre del Servicio: %servein%
		for /f "tokens=3" %%a in ('sc qc %servein% ^| find "TIPO_INICIO"') do (set "stype=%%a")
		if !stype! == 2 (set "stype=AUTOMATIC")
		if !stype! == 3 (set "stype=MANUAL")
		if !stype! == 4 (set "stype=DISABLED")
		echo  !parat! / !stype!		
	)
	if "!parat!" == "RUNNING" (
		sc config %servein% start= disabled > nul
		sc stop %servein% > nul	
		echo errorlevel:%errorlevel%
 
		REM si sc qc servei retorna un 5 el servei esta protegit
		if %errorlevel% == 5 (
			echo.
			echo Acceso denegado
			echo El servicio %servein% no se puede detener esta protegido por el sistema
			echo si de detiene puede crear inestabilidad en el sistema
		)
		REM si sc qc servei retorna un 0 el servei esta iniciat pertant el parem
		if %errorlevel% == 0 (			
			sc config %servein% start= disabled > nul
			sc stop %servein% > nul
			rem for /f "tokens=3,*" %%c in ('sc query %servein% ^| findstr "ESTADO" ') do ( echo %%d : %cadenafinal% )
			for /f "tokens=3,*" %%c in ('sc query %servein% ^| findstr "ESTADO" ') do (
				echo  El servicio se esta parando...%%d..OK
				echo  Nombre Descriptivo: %serveid%
				echo  Nombre del Servicio: %cadena%
			)
		)		
	)
)
REM Delete variables
del tanca.txt
set "ErrorLevel="
set "parat="
set "dname="
set "serveid="
set "servein="
set "cadena="
echo.
set /p otro=Parar Otro (s/n)? 
if %otro% == n goto PREGUNTA
goto PARAR

sc stop %servein% > nul	
echo errorlevel:%errorlevel%

@echo off
setlocal EnableDelayedExpansion
 
call :funcion_Guardar lista 1 "Caracol"
call :funcion_Guardar lista 2 "estrella"
call :proc_Print lista 2 
 
call :funcion_Guardar lista1 1 "lunes"
call :funcion_Guardar lista1 2 "Martes"
call :proc_Print lista1 2 
 
 
pause
 
 
:funcion_Guardar 
set vector=%1
set pos=%2
set valor=%~3
 
set vector[%pos%]=%valor%
 
set "%1=%vector%"
goto :eof
 
 
:proc_Print         
set vec=%1
set lenght=%2
 
echo.
for /l %%n in (1,1,%lenght%) do (
	echo vec[%%n]:!vec[%% style="color: #448888;">n]!
)
goto :eof