[Batch] ToolStar: Aplicacion de mantenimiento del sistema

Iniciado por 50l3r, 18 Marzo 2009, 00:40 AM

0 Miembros y 1 Visitante están viendo este tema.

50l3r

Este es un code que realize para el batch lab de portalhacker pero regreso este a un backup de 5 meses lo cual me jorobo mi plan, ahora lo enseñare

Consiste en una aplicacion para el mantenimiento del sistema, edita el registro, maneja servicios, tiene calculadora, y otras muchas cosas

--------------------------------------------------
@echo off
color 0a
title ToolStar
if "%1"=="" goto inicio
if "%1"=="/?" goto ayuda
if "%1"=="registro" goto regediti
if "%1"=="servicios" goto serviditi
if "%1"=="calculadora" goto mates
if "%1"=="utilidades" goto utilidades

:regediti
if "%2"=="" goto registro
if "%2"=="crear" goto regediti2


:serviditi
if "%2"=="" goto servicios
if "%2"=="iniciar" goto serini

:regediti2
if "%3"=="backup" goto rcrebac
goto rcrear

:inicio
if exist %homedrive%\toolstar>nul goto menu
echo.
echo Bienvenido a ToolStar
echo.
echo Este archivo por lotes atomatiza algunas que otras funciones
echo.
echo Antes de nada se creara un directorio en tu unidad de disco duro
echo.
echo Para confirmar la creacion presione una tecla
pause>nul

md %homedrive%\toolstar
copy %0 %windir%\system32

msg * Se ha creado la carpeta satisfactoriamente
echo.
echo En 5 segundos seras redireccionado al menu
ping -n 5 127.0.0.1 >nul

if "%1"==diario goto diario
if "%1"==servicios goto servicios
if "%1"==registro goto registro

:menu
cls
color 0a
echo.
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º                ToolStar by s0l3r                 º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º 1.  Crear un diario                              º
echo              º 2.  Editar el Registro                           º
echo              º 3.  Manejar Servicios                            º
echo              º 4.  Realizar operaciones matematicas             º
echo              º 5.  Poner las tablas ARP estaticas               º
echo              º 6.  Ejecutar utilidades del sistema              º
echo              º 7.  Llamar a una Terminal                        º
echo              º 8.  Autodestruir aplicacion                      º
echo              º 9.  Informacion sobre tu cpu                     º
echo              º 10. Finalizar el Programa                        º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
set /p menu=Elige una opcion por su respectivo numero:

if %menu%==1 goto diario
if %menu%==2 goto registro
if %menu%==3 goto servicios
if %menu%==4 goto mates
if %menu%==5 goto arp
if %menu%==6 goto utilidades
if %menu%==7 start %comspec%
if %menu%==8 goto eliminar
if %menu%==9 goto informacion
if %menu%==10 exit
goto menu
:diario
cls
if not exist %homedrive%\toolstar\diario>nul md %homedrive%\toolstar\diario
echo.
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º                ToolStar DIARIO                   º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º 1.  Crear un apartado                            º
echo              º 2.  Eliminar un apartado                         º
echo              º 3.  Visualizar un apartado                       º
echo              º 4.  Visualizar todos los apartados               º
echo              º 5.  Ir al menu principal                         º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
set /p menudiario=Elige una opcion por su respectivo numero:

if %menudiario%==1 goto dcrear
if %menudiario%==2 goto deliminar
if %menudiario%==3 goto dvisualizar1
if %menudiario%==4 goto dvisualizar2
if %menudiario%==5 goto menu
goto diario

rem ----------------------------------------------------------------------
rem TODO ESTO ESTA ENCERRADO
rem ----------------------------------------------------------------------

:dcrear
cls
echo.
echo RECUERDE QUE SOLO PUEDE CREAR UN DIARIO CADA DIA
echo.
echo Indique la fecha de hoy (ej: "23 de enero"):
echo.
echo No introduzca caracteres como "\" ya que generara error
echo.
set /p dfecha=
if "%dfecha%"=="" goto dcrear
echo.
echo Indique la hora:
echo.
set /p dhora=
if "%dhora%"=="" goto dcrear
echo.
cls
echo.
echo A continuacion, pulse una tecla y comience a escribir su diario:
echo.
echo Pulse ENTER para finalizar
pause>nul
cls
set /p dtexto=



rem ---------------------------------------------------------------------
rem Creando el archivo del diario
rem ---------------------------------------------------------------------

echo Fecha: "%dfecha%">%homedrive%\toolstar\diario\"%dfecha%".txt
echo Hora: %dhora%>>%homedrive%\toolstar\diario\"%dfecha%".txt
echo -------------------->>%homedrive%\toolstar\diario\"%dfecha%".txt
echo %dtexto%>>%homedrive%\toolstar\diario\"%dfecha%".txt
echo -------------------->>%homedrive%\toolstar\diario\"%dfecha%".txt
msg * Archivo creado con exito
goto diario
rem ---------------------------------------------------------------------




rem ---------------------------------------------------------------------
rem Eliminando el archivo de diario
rem ---------------------------------------------------------------------

:deliminar
cls
echo.
echo Especifique el nombre del archivo de diario a borrar (SIN EXTENSION)
echo.
set /p darchieli=
if not exist %homedrive%\toolstar\diario\"%darchieli%".txt goto derrordelarchi
if exist %homedrive%\toolstar\diario\"%darchieli%".txt del %homedrive%\toolstar\diario\"%darchieli%".txt
msg * Archivo borrado con exito
goto diario

rem ---------------------------------------------------------------------
rem Bucle sin fin en caso de no introducir lo dicho
rem ---------------------------------------------------------------------

:derrordelarchi
cls
echo.
echo El archivo nombrado no existe
echo.
echo Escriba "siguiente" para volver a intentarlo
echo.
echo Escriba "salir" para ir al menu de diario
echo.
set /p dsinoq=

if "%dsinoq%"==siguiente goto deliminar
if "%dsinoq%"==salir goto diario
goto deliminar

rem --------------------------------------------------------------------
rem Visualizando un archivo
rem --------------------------------------------------------------------

:dvisualizar1
cls
echo.
echo Indique el nombre del archivo a visualizar (SIN EXTENSION):
echo.
set /p dvisu1=
echo.
if not exist %homedrive%\toolstar\diario\"%dvisu1%".txt goto derrordelvisu1
cls
type %homedrive%\toolstar\diario\"%dvisu1%".txt
echo.
echo.
echo Presione una tecla para volver al menu del diario
pause>nul
goto diario

:derrordelvisu1
cls
echo.
echo El archivo nombrado no existe
echo.
echo Escriba "siguiente" para volver a intentarlo
echo.
echo Escriba "salir" para ir al menu de diario
echo.
set /p dvisuerromax=

if %dvisuerromax%==siguiente goto dvisualizar1
if %dvisuerromax%==salir goto diario

goto derrordelvisu1

rem --------------------------------------------------------------------
rem Visualizando archivos
rem --------------------------------------------------------------------

:dvisualizar2
cls
echo.
echo Presione una tecla para ver todos los archivos de la carpeta diario
pause>nul
cls
dir /s %homedrive%\toolstar\diario
echo.
echo Presione una tecla para volver al menu del diario
pause>nul
goto diario

rem --------------------------------------------------------------------
rem DE AQUI PARA ARRIBA EL CODIGO DE DIARIO ESTA LIMPIO
rem --------------------------------------------------------------------





:registro
if not exist %homedrive%\toolstar\registro>nul md %homedrive%\toolstar\registro
cls
echo.
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º                ToolStar REGISTRO                 º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º 1.  Crear un valor                               º
echo              º 2.  Eliminar un valor                            º
echo              º 3.  Crear un backup del registro                 º
echo              º 4.  Restaurar registro al backup                 º
echo              º 5.  Comparar registro de inicio local\usuario    º
echo              º 6.  Copiar subclaves y valores                   º
echo              º 7.  Registro en modo Grafico                     º
echo              º 8.  Ir al menu principal                         º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
set /p registroo=Elige una opcion por su respectivo numero:

if %registroo%==1 goto rcrear
if %registroo%==2 goto reliminar
if %registroo%==3 goto rcrebac
if %registroo%==4 goto rresta
if %registroo%==5 goto rcomp
if %registroo%==6 goto rcop
if %registroo%==7 regedit
if %registroo%==8 goto menu
goto registro

rem ---------------------------------------------------------------------------
rem creando un registro
rem ---------------------------------------------------------------------------

:rcrear
cls
echo.
echo Especifica la ruta para el valor:
echo.
echo ej: hklm\software\microsoft\windows\currentversion\run
echo.
set /p rruta=
if "%rruta%"=="" goto rcrear

:rtype
cls
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º             Elige un tipo de valor               º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º REG_BINARY                                       º
echo              º REG_SZ                                           º
echo              º REG_DWORD_BIG_ENDIAN                             º
echo              º REG_NONE                                         º
echo              º REG_MULTI_SZ                                     º
echo              º REG_EXPAND_SZ                                    º
echo              º REG_DWORD                                        º
echo              º REG_DWORD_LITTLE_ENDIAN                          º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º 9.  Ir al menu de Registro                       º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo Escribe el nombre del tipo de clave en MAYUSCULAS
echo.
set /p rtipo=

if %rtipo%==9 goto registro
if "%rtipo%"=="" goto rtype

echo.
echo Ahora asigna los datos del valor:
echo.
set /p rdata=
echo.
echo Por ultimo dale un nombre al valor sin espacios:
echo.
set /p rnomclav=

:creandoreg
reg add "%rruta%" /v %rnomclav% /f /t %rtipo% /d %rdata%
echo.
pause
goto registro

rem ---------------------------------------------------------------------------
rem eliminando registros
rem ---------------------------------------------------------------------------

:reliminar
cls
echo.
echo Especifica que quieres borrar:
echo.
echo 1.Carpeta de claves
echo 2.Claves
echo.
set /p rbor12=Elige una opcion por su respectivo numero:

if %rbor12%==1 goto rdelcar
if %rbor12%==2 goto rdelcla
goto reliminar

:rdelcar
cls
echo.
echo Especifia el nombre de la carpeta
echo.
echo ej: hklm\software\microsoft\windows\currentversion\nombre
echo.
set /p rnombrcar=
echo.
Presione una tecla para borrar la carpeta del registro:
pause>nul

:redelcar
reg delete %rnombrcar% /f
echo.
pause
goto registro

:rdelcla
cls
echo Especifia el nombre de la carpeta
echo.
echo ej: hklm\software\microsoft\windows\currentversion\nombre
echo.
set /p rnombrclav=
echo.
echo Ahora especifique el nombre de la clave:
echo.
set /p rnombclave=
echo.
Presione una tecla para borrar la clave del registro:
pause>nul

:redelclav
reg delete %rnombrclav% /v %rnombclave% /f
echo.
pause
goto registro

rem ------------------------------------------------------------------------
rem creando un backup del registro
rem ------------------------------------------------------------------------

:rcrebac
echo.
echo Esta funcion creara un backup de todo el registro
echo.
echo Desea crear este backup? (si/no)
echo.
set /p bconfi=

if %bconfi%==si goto backsi
if %bconfi%==no goto backno
goto rcrebac

:backsi
reg export hklm %homedrive%\toolstar\registro\hklm.reg
reg export hkcu %homedrive%\toolstar\registro\hkcu.reg
reg export hkcr %homedrive%\toolstar\registro\hkcr.reg
reg export hku %homedrive%\toolstar\registro\hku.reg
reg export hkcc %homedrive%\toolstar\registro\hkcc.reg

msg * El backup ha sido realizado correctamente
goto registro

rem ------------------------------------------------------------------------
rem restaurando el registro
rem ------------------------------------------------------------------------

:rresta
cls
echo.
echo Esta accion restaurara el registro al ultimo backup hecho
echo.
echo Esta seguro de que quiere hacer esto? (si/no)
echo.
echo Puede que no pueda restaurar algunas claves debido a sus privilegios
echo.
set /p restconfir=

if %restconfir%==no goto registro
if %restconfir%==si goto restaurar
goto rresta

:restaurar
if not exist %homedrive%\toolstar\registro\hklm.reg goto errorrest
if not exist %homedrive%\toolstar\registro\hkcu.reg goto errorrest
if not exist %homedrive%\toolstar\registro\hkcr.reg goto errorrest
if not exist %homedrive%\toolstar\registro\hku.reg goto errorrest
if not exist %homedrive%\toolstar\registro\hkcc.reg goto errorrest
reg import %homedrive%\toolstar\registro\hklm.reg
reg import %homedrive%\toolstar\registro\hkcu.reg
reg import %homedrive%\toolstar\registro\hkcr.reg
reg import %homedrive%\toolstar\registro\hku.reg
reg import %homedrive%\toolstar\registro\hkcc.reg
msg * Restauracion finalizada
goto registro

:errorrest
echo.
echo Algun backup del registro no ha sido realizado o esta dañado
echo.
echo Presione una tecla para ir al menu del registro
pause>nul
goto registro

rem ------------------------------------------------------------------------
rem comparando registro de inicio local con el del usuario
rem ------------------------------------------------------------------------

:rcomp
cls
echo.
echo Esta accion compara el registro de inicio
echo.
echo del usuario local con el registro de inicio general
echo.
echo Deseas comparar las claves? (si/no)
echo.
set /p compconfir=

if %compconfir%==no goto registro
if %compconfir%==si goto comparar
goto rcomp

:comparar
cls
echo.
reg compare hklm\software\microsoft\windows\currentversion\run hkcu\software\microsoft\windows\currentversion\run
reg compare hklm\software\microsoft\windows\currentversion\run hkcu\software\microsoft\windows\currentversion\run>%homedrive%\toolstar\registro\comparacion.txt
msg * la comparacion ha sido añadida a la carpeta registro
start %homedrive%\toolstar\registro\comparacion.txt
echo.
echo.
pause
goto registro

rem ------------------------------------------------------------------------
rem copiando archivos del registro
rem ------------------------------------------------------------------------


:rcop
cls
echo.
echo Esta accion copia claves,subclaves y valores
echo.
echo Lo primero seleccione que quiere copiar
echo.
echo 1.Claves y subclaves
echo 2.Copiar valores
echo.
set /p copreg=

if %copreg%==1 goto copclav
if %copreg%==2 goto copvalo
goto rcop

:copclav
cls
echo.
echo Indica la clave que quieres copiar
echo.
set /p claveacopi=
echo.
echo Indica donde la quieres copiar
echo.
set /p copidondeclav=

:regcopyclav
reg copy /s %claveacopi% %copidondeclav%
echo.
echo.
pause
goto registro

:copvalo
cls
echo.
echo Indica la ruta de la clave
echo.
set /p rutaclavcop=
echo.
echo Indica en que clave quieres copiarla
echo.
set /p dondecopclav=

:regcopyval
reg copy %rutaclavcop% %dondecopclav%
echo.
echo.
pause
goto registro

rem ------------------------------------------------------------------------
rem FINALIZADO MENU DE REGISTRO
rem ------------------------------------------------------------------------

rem ------------------------------------------------------------------------
rem INICIO DE MANTENIMINETO DE SERVICIOS
rem ------------------------------------------------------------------------

:servicios
if not exist %homedrive%\toolstar\servicios>nul md %homedrive%\toolstar\servicios
cls
echo.
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º                ToolStar SERVICIOS                º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º 1.  Iniciar un servicio                          º
echo              º 2.  Ver sevicios iniciados                       º
echo              º 3.  Detener un servicio                          º
echo              º 4.  Manejar servicios con modo grafico           º
echo              º 5.  Ir al menu principal                         º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
set /p service=

if %service%==1 goto serini
if %service%==2 goto verser
if %service%==3 goto serdet
if %service%==4 services.msc
if %service%==5 goto menu
goto servicios

:serini
cls
echo.
echo Especifica el nombre de servicio a iniciar
echo.
set /p servinomini=
echo.
net start "%servinomini%"
echo.
echo.
pause
goto servicios

:serdet
cls
echo.
echo Especifica el nombre de servicio a detener
echo.
set /p servinomdet=
echo.
net stop "%servinomdet%"
echo.
echo.
pause
goto servicios

:verser
cls
echo.
net start
net start>%homedrive%\toolstar\servicios\servicios_iniciados.txt
msg * Se ha creado un texto con los servicios iniciados
start %homedrive%\toolstar\servicios\servicios_iniciados.txt
echo.
echo.
pause
goto servicios

rem ------------------------------------------------------------------------
rem FINALIZADO MANTENIMINETO DE SERVICIOS
rem ------------------------------------------------------------------------

:arp
cls
echo Esta accion modifica la tabla arp que asigna la ip del router
echo.
echo con la MAC del mismo para que se vuelva estatica
echo.
echo.
echo Esto resuelve ataques MITM para impedir que datos sensibles
echo.
echo sean interpretados por personas ajenas a ellos
echo.
echo Quieres volver las tablas arp hacia tu router estaticas? (si/no)
echo.
set /p arp=

if %arp%==si goto arpest
if %arp%==no goto menu
goto arp

:arpest
cls
echo.
ipconfig
echo.
echo.
echo Dime cual es tu puerta de enlace:
echo.
set /p puerta=
echo.
ping %puerta%
cls
arp -a
echo.
echo.
echo Dime cual es la mac de tu router
echo.
set /p mac=
echo.
cls
echo A continuacion cada 10 segundos tus tablas arp
echo.
echo se vovleran estaticas para prevenir ataques
echo.
echo Para pararlo, cierre la aplicacion
echo.
pause

:arps
color 0b
cls
echo Volviendo estaticas las tablas arp...
arp -s %puerta% %mac%
echo.
echo Verificando las tablas arp...
arp -a
echo.
echo.
echo PARA PARAR ESTE PROCESO CIERRE LA APLICACION
ping -n 1800 127.0.0.1 >nul
for /L %i IN (1,1,48) do goto arps

:mates
cls
echo.
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º       ToolStar OPERACIONES MATEMATICAS           º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º 1.  Suma                                         º
echo              º 2.  Resta                                        º
echo              º 3.  Multiplicacion                               º
echo              º 4.  Division                                     º
echo              º 5.  Potenciacion                                 º
echo              º 6.  Raices Cuadradas                             º
echo              º 7.  Ir al menu principal                         º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
set /p mates=

if %mates%==1 goto suma
if %mates%==2 goto resta
if %mates%==3 goto multiplicacion
if %mates%==4 goto division
if %mates%==5 goto potenciacion
if %mates%==6 goto raizcu
if %mates%==7 goto menu
goto mates

:suma
cls
echo.
echo Indica el 1 numero a sumar
echo.
set /p num1=
echo.
echo Indica el 2 numero a sumar
echo.
set /p num2=
set /a solucionado=num1+num2
cls
echo Operacion: %num1%+%num2%
echo.
echo Resultado: %solucionado%
echo.
pause
goto mates

:resta
cls
echo.
echo Indica el 1 numero
echo.
set /p num1=
echo.
echo Indica el 2 numero a restar
echo.
set /p num2=
set /a solucionado=num1-num2
cls
echo Operacion: %num1%-%num2%
echo.
echo Resultado: %solucionado%
echo.
pause
goto mates

:multiplicacion
cls
echo.
echo Indica el 1 numero
echo.
set /p num1=
echo.
echo Indica el 2 numero
echo.
set /p num2=
set /a solucionado=num1*num2
cls
echo Operacion: %num1%*%num2%
echo.
echo Resultado: %solucionado%
echo.
pause
goto mates

:division
cls
echo.
echo Indica el 1 numero
echo.
set /p num1=
echo.
echo Indica el 2 numero a dividir
echo.
set /p num2=
set /a solucionado=num1/num2
cls
echo Operacion: %num1%/%num2%
echo.
echo Resultado: %solucionado%
echo.
pause
goto mates

:potenciacion
cls
echo Indica la Base:
echo.
set /p base=
echo.
echo Indica el Exponente:
echo.
set /p exponente=
set /a contador=1
set resultado=%base%

:potenciacion1
set /a resultado=%resultado%*%base%
set /a contador=%contador%+1
if %contador%==%exponente% goto resultao
goto potenciacion1

:raizcu
color 0c
c
echo.
echo Atencion: Realiza raices cuadradas de numeros enteros
echo.
echo En caso de que la raiz de decimales el programa se bloqueara
echo.
echo Ingresa el numero:
echo.
set /p num1=
:raiz2
set /a resultado=%resultado%+1
set /a contador=%resultado%*%resultado%
if %contador%==%num1% goto resultaoo
goto raiz2
:resultaoo
cls
echo Operacion: Raiz de %num1%
echo.
echo Resultado: %resultado%
echo.
pause
goto menu

:resultao
cls
echo Operacion: %base% elevado a %exponente%
echo.
echo Resultado: %resultado%
echo.
pause
goto mates

rem ------------------------------------------------------------------------
rem Ejecutando utilidades del sistema
rem ------------------------------------------------------------------------

:utilidades
cls
echo.
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º       ToolStar APLICACIONES DEL SISTEMA          º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º 1.  Administrador de Tareas                      º
echo              º 2.  Control de contraseñas de usuarios           º
echo              º 3.  Administracion de Equipos                    º
echo              º 4.  Directivas de seguridad                      º
echo              º 5.  Msconfig                                     º
echo              º 6.  Desfragmentador de Disco duro                º
echo              º 7.  Administrador de dispositivos                º
echo              º 8.  Administrador de discos duros                º
echo              º 9.  Ir al menu principal                         º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º 10. Paint                                        º
echo              º 11. Buscaminas                                   º
echo              º 12. Solitario                                    º
echo              º 13. Corazones                                    º
echo              º 14. Paintball                                    º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /p opapliher=Elige una opcion por su respectivo numero:


rem EL LA 1 CONDICION PUSE así EL CODIGO PARA PODER ESPECIFICAR MAS VARIABLES DE ENTORNO EN LA APLICACION
if %opapliher%==1 start %windir%\system32\taskmgr.exe
if %opapliher%==2 control userpasswords2
if %opapliher%==3 compmgmt.msc
if %opapliher%==4 secpol.msc
if %opapliher%==5 start msconfig
if %opapliher%==6 dfrg.msc
if %opapliher%==7 devmgmt.msc
if %opapliher%==8 diskmgmt.msc
if %opapliher%==9 goto menu
if %opapliher%==10 mspaint.exe
if %opapliher%==11 winmine.exe
if %opapliher%==12 sol.exe
if %opapliher%==13 mshearts.exe
if %opapliher%==14 start PINBALL.EXE
goto utilidades

:informacion
cls
echo.
echo         ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo         º                  Version de Windows                   º
echo         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
ver
echo.
echo.
echo         ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo         º                  Drivers Instalados                   º
echo         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
driverquery
echo.
echo.
echo         ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo         º                  Informacion de red                   º
echo         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo Ipconfig:
echo.
ipconfig /all
echo.
echo.
echo Arps asociadas:
echo.
arp -a
echo.
echo.
echo Nombre de tarjetas de red y sus macs:
echo.
getmac
echo.
echo.
echo         ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo         º                Informacion de volumen                 º
echo         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo Numero de serie de %homedrive%:
echo.
vol
echo.
echo.
echo Checkando disco...
echo.
echo.
chkdsk
echo.
echo.
:textoinfo
echo Desea obtener un infrome en txt? (si/no)
echo.
echo Esto tomara unos minutos
echo.
set /p infortxxt=

if %infortxxt%==si goto informetext
if %infortxxt%==no goto menu
goto textoinfo

:informetext
if not exist %homedrive%\toolstar\sistema>nul md %homedrive%\toolstar\sistema
echo.>%homedrive%\toolstar\sistema\informacion.txt
echo         ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»>>%homedrive%\toolstar\sistema\informacion.txt
echo         º                  Version de Windows                   º>>%homedrive%\toolstar\sistema\informacion.txt
echo         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
ver>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo         ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»>>%homedrive%\toolstar\sistema\informacion.txt
echo         º                  Drivers Instalados                   º>>%homedrive%\toolstar\sistema\informacion.txt
echo         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
driverquery>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo         ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»>>%homedrive%\toolstar\sistema\informacion.txt
echo         º                  Informacion de red                   º>>%homedrive%\toolstar\sistema\informacion.txt
echo         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo Ipconfig:>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
ipconfig /all>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo Arps asociadas:>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
arp -a>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo Nombre de tarjetas de red y sus macs:>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
getmac>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo         ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»>>%homedrive%\toolstar\sistema\informacion.txt
echo         º                Informacion de volumen                 º>>%homedrive%\toolstar\sistema\informacion.txt
echo         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo Numero de serie de %homedrive%:>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
vol>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo Checkando disco...>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
chkdsk>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
echo.>>%homedrive%\toolstar\sistema\informacion.txt
start %homedrive%\toolstar\sistema\informacion.txt
msg * el informe fue creado satisfactoriamente
goto menu

:ayuda
color 0e
cls
echo.
echo Toolstar es una herramienta de mantenimiento
echo.
echo Entre algunas de sus funciones se encuentran:
echo.
echo Modificaciones de registro
echo Administracion de configuracion del sistema
echo Modificaciones de los servicios
echo Control de acceso para usuarios del sistema
echo Desfragmentacion del disco duro
echo.
echo         ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo         º             ToolStar ACCESOS DIRECTOS                 º
echo         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo         ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo         º                                                       º
echo         º %%1=registro: menu registro                            º
echo         º %%1=servicios: menu servicios                          º
echo         º %%1=calculadora: operaciones matematicas               º
echo         º %%1=utilidades: aplicaciones del sistema               º
echo         º %%1=registro y %%2=crear: crear registro                º
echo         º %%1=servicios y %%2=inciar: iniciar servicio            º
echo         º %%1=registro y %%2=crear y %%3=backup:crear dword        º
echo         º                                                       º
echo         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
pause>nul
echo.
echo Esta aplicacion a sido desarrollada en exclusividad
echo.
echo para presentarse a el Batch Lab de CPH
echo.
echo Rogamos a holyknight que sea bueno con nosotros
echo.
pause
exit

rem ------------------------------------------------------------------------
rem Desinstalando toda la aplicacion
rem ------------------------------------------------------------------------

:eliminar
cls
color 0c
echo.
echo ATENCION: Con esta opcion eliminaras esta aplicacion y su carpeta
echo.
echo Esta Seguro que quiere realizarlo? (si/no)
echo.
set /p elimconf=

if %elimconf%==si goto eliminacion
if %elimconf%==no goto menu
goto eliminar

:eliminacion
rd /s /q %homedrive%\toolstar
msg * desinstalacion finalizada
del %0

rem ------------------------------------------------------------------------



Si sabes de la existencia de un batch lab en elhacker hacermelo saber que me presento

saludos, si hay problemas con el post, lo edito  ;)