elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Temas
Páginas: [1]
1  Programación / Scripting / Crear Varias carpetas y Sub-Carpetas en: 23 Agosto 2019, 03:07 am
Buenas.
 Cree este diminuto script, en mi trabajo hay c=que realizar barias carpetas, con algunas normas.
Por ejemplo.

La fecha es AAAAMMDD y numero de incidente
Las carpetas deben estar dentro de un laboratorio
cada entrega depende de que impacta (Data, Reports, App, etc)
Le coloque para que al momento de colocar los datos no esten en blanco, con los if.
Seguro existen maneras menos artesanales, pero asi me funciona  :rolleyes: :rolleyes: :rolleyes:
Se los dejo aquí, para el que necesite de alguna parte, pues lo use, y si alguno lo quiere mejorar, y compartir...
Código:
@ECHO off
title Carpetas Entrega             Fcoelho 0.2
color f1
MODE CON COLS=50 LINES=15
set bausch="bau"
:menu
cls  
SET /P labora= Nombre de Laboratorio :
    REM con el siguiente if verificamos si colocaron algun dato
        if not defined labora (
            set torio= NuevoLaBoratorio
            ECHO  No tiene nombre de laboratorio.
            ECHO  Se creara carpeta NuevoLaBoratorio
        ) else (
            set torio=%labora%
        )
    echo.

REM Se convierte la fecha en el formati invertido y sin las divisiones
set DD=%DATE%
set fecha=%DD:/=%
set AAMMDD=%fecha:~-4%^%fecha:~2,2%^%fecha:~0,2% 
:menu2
SET /P report= Colocar Numero Incidente :
    REM If para validar el numero de reporte
        if not defined report (
            ECHO Debes colocar numero de reporte
            goto menu2
        ) else (
            set numero=%report%
        )

[color=blue]:opcion
ECHO.
ECHO  ******* Tipo de Entrega *********
ECHO _ 1.Data
ECHO _ 2.APP_WEB
ECHO _ 5.Reporte
ECHO _ 0. Ninguna de las anteriores:
ECHO.
SET /P imp=  OPCION :



REM Validar que valor colocan
    if not defined imp (
        echo Colocar algun Caracter
        goto opcion
    ) else (
        if %imp% == 1 goto Data
        if %imp% == 2 goto app
        if %imp% == 5 goto repor
        echo Recuerde colocar valores validos
        pause>nul
        goto opcion
    )[/color]

:Data
md "Entregas Soporte 2"\"%torio%"\"%AAMMDD%"_Incidente_"%numero%"\"01.DataBaseUpdate"\"SELECT DATA,VERSION FROM _DBVERSION"\Data\
goto carpeta

:app
md "Entregas Soporte 2"\"%torio%"\"%AAMMDD%"_Incidente_"%numero%"\"02.APP_WEB"\"entities"\
md "Entregas Soporte 2"\"%torio%"\"%AAMMDD%"_Incidente_"%numero%"\"02.APP_WEB"\"JS"\"Controllers"\
goto carpeta2
 
:repor
md "Entregas Soporte 2"\"%torio%"\"%AAMMDD%"_Incidente_"%numero%"\"01.DataBaseUpdate"\"SELECT DATA,VERSION FROM _DBVERSION"\Reportes\
md "Entregas Soporte 2"\"%torio%"\"%AAMMDD%"_Incidente_"%numero%"\"05.Reports"\
goto carpeta2
 
:otro
ECHO Gracias por estar aqui.
ECHO Desea Intentar otra vez. 
ECHO 1 . Si (Puedes Utilizar la letra Y o S, tambien el numero 1) 
ECHO 2 . No (Puedes Utilizar la letra N, tambien el numero 2,0)
set /P sal=
if %sal% == 1
goto menu
if %sal% == Y
goto menu
if %sal% == y
goto menu
if %sal% == S
goto menu
if %sal% == s
goto menu
if %sal% == N
exit
if %sal% == n
exit
if %sal% == 0
exit 
if %sal% == 2
exit 


:carpeta
cls
ECHO.
ECHO    ********************
ECHO    *                  *
ECHO    * Carpetas Creadas *
ECHO    *                  *
ECHO    ********************
ECHO.
pause>nul
explorer.exe "Entregas Soporte 2"\"%torio%"\"%AAMMDD%"_Incidente_"%numero%"\"01.DataBaseUpdate"\"SELECT DATA,VERSION FROM _DBVERSION"\Data\
Exit

:carpeta2
cls
ECHO.
ECHO    ********************
ECHO    *                  *
ECHO    * Carpetas Creadas *
ECHO    *                  *
ECHO    ********************
ECHO.
pause>nul
explorer.exe "Entregas Soporte 2"\"%torio%"\"%AAMMDD%"_Incidente_"%numero%"\
Exit
 
 
REM :BD sqlcmd -S Miservidor\nombredeinstancia con eso puedo conetarme y colocar los comandos hasta colocar GO





Espero le ayude a alguien, y disculpen, mi manera de hacerlo jejejeje

 :silbar: :silbar: ;-)

Modifique para que esten en las opciones, y coloquen valores específicos, gracias por el comentario 
Citar
@string Manolo
2  Programación / Scripting / Como buscar un ejecutable en el disco duro sabiendo solo 2 letras (Prxxx.exe) en: 27 Octubre 2014, 15:25 pm
Buenas.
Como puedo hacer unprograma que busque y ejecute un programa que tengo guardado en c:..

Ejemplo: tengo un ejecutable, en varios equipos, pero cada uno de los tecnico que lo guardo le coloco un nombre distinto.
Necesito intakar Java. Pero le colocan varios nombre y varias versiones.
- jre-7-windows-i586
- Java 7
- jre-6u21-windows-i586
- jre-6u21-windows-i586(1) ... y exetera...
Bueno por eso quisiera hacer un programa que busque en un directorio espesifico los javas que tenga: seria algo asi

Código:
:: Segun los instaladores estan en esa carpeta tecnico
dir c:\tecnico\jre-*.exe /s

Eso me los listara. Como los guardo para selecionar uno, o como puedo buscar que ersion tengo instalada para asi no instalar una version anterior.
En lo posible como se haria una comparacion de la version instalada con la que voy a instalar, y en caso de que no este me arroje un error indicando que no hay javas para instalar.

tengo el codigo para chequear que sistema operativo es:

Código:
@ECHO OFF
mode con cols=60 lines=3
title Reconfigurador de JAVA
color 9f
REM XP Check
ver | findstr /i "5\.1\." > nul
IF %ERRORLEVEL% EQU 0 SET VER=XP-%PROCESSOR_ARCHITECTURE%

REM 7 Check
ver | findstr /i "6\.1\." > nul
IF %ERRORLEVEL% EQU 0 SET VER=WIN7-%PROCESSOR_ARCHITECTURE%

REM 8 Check
ver | findstr /i "6\.2\." > nul
IF %ERRORLEVEL% EQU 0 SET VER=WIN8-%PROCESSOR_ARCHITECTURE%

tambien puedo intalar uno de los javas si me se la direccion del programa
Código:
@echo off
mode con cols=60 lines=3
title Reconfigurador de JAVA
color 9f
"C:\Tecnico\Instaladores\Java\jre-7-windows-i586.exe" /passive

Gracias y disculpe que sea ten necio jejejeje.. feliz dia.
Claro si es con vbs, con bat, igual lo utilizaria.
3  Programación / Scripting / Modificar los .JAR cuando le instalan el winrar a lo loco. en: 24 Octubre 2014, 01:37 am
Buenas tengo otra cosita por aca.
en la empresa donde trabajo, instalan todo como sea, y sin preguntar ni nada. Entonces.
Instalan el winrar a lo loco, y las integraciones las tildan todas. (opciones>configuracion>Integraciones.)
Entonces al momento de ejecutar una aplicacion ej java (.jar) abre el programa con winrar y pues se forma toda una locura por eso.
Y para poder quitar ese pequeño problema hay que destildar de winrar el JAR y reinstalar el java, para que pueda funcionar tranquilamente.
Oka es facil en 10 maquinas pero en donde trabajo (Es un banco al nivel nacional) y son mas de 700 Agencias y cada una tiene un promedio de 6 Equipos, saquen la cuenta jejeje.. Y los genios de las politicas del dominio le pedimos que hagan eso y lo trataron de hacer y quedopeor la cosa.
Oka, ya esta la charla de lo que pasa, entonces hice esta pequeña aplicaion en bat, para que destilde lo que necesito e instale el java con solo darle doble clip.

Código:
@echo off
mode con cols=60 lines=3
title Reconfigurador de JAVA
color 9f
REG DELETE HKCR\.rar /f
REG DELETE HKCR\.JAR /f
REG ADD "HKEY_CURRENT_USER\Software\WinRAR\Setup\.jar" /V Set /t REG_DWORD /d 0 /f
REG ADD "HKEY_CURRENT_USER\Software\WinRAR\Setup\.jar" /V Type /t REG_SZ /d javafile /f
"c:\Archivos de Programa\WinRAR\uninstall.exe" /setup /s
"C:\Tecnico\Instaladores\Java\jre-7-windows-i586.exe" /passive
exit


Eso me hace todo muy bien, aca viene el problemita, por las politicas y la cantidad de imagenes que utilizan los tecnicos de soporte, cada uno tiene los instaladores en carpetas distintas.

Entonces deberia ser asi el programa:

Primero hago un chequeo de que sistema operativo tiene y colocar el acceso directo de la aplicaion (Porque aun tenemos XP jejejeje). estas lineas de codigo ya las tengo de chequear cual es cual... Si no tienen la aplicaion instalada.. pues eso es otra cosa jejejeje.

Código:
@ECHO OFF
REM XP Check
ver | findstr /i "5\.1\." > nul
IF %ERRORLEVEL% EQU 0 SET VER=XP-%PROCESSOR_ARCHITECTURE%

REM 7 Check
ver | findstr /i "6\.1\." > nul
IF %ERRORLEVEL% EQU 0 SET VER=WIN7-%PROCESSOR_ARCHITECTURE%

REM 8 Check
ver | findstr /i "6\.2\." > nul
IF %ERRORLEVEL% EQU 0 SET VER=WIN8-%PROCESSOR_ARCHITECTURE%

ECHO %VER%
if %VER%==WIN7 (set coco=%userprofile%/desktop) else (set coco=%userprofile%/Escritorio)
cd %coco%
echo Set WshShell = WScript.CreateObject("WScript.Shell") > "ad.vbs"
echo Set Link = WshShell.CreateShortcut("Compensacion Bicentenario.lnk") >> "ad.vbs"
echo With Link >> "ad.vbs"
echo .TargetPath = "%PROGRAMFILES%\CompensacionBicentenario\1.5\BacosiRegional.jar" >> "ad.vbs"
echo .WindowStyle = 1 >> "ad.vbs"
echo .Hotkey = "" 'HotKey >> "ad.vbs"
echo .IconLocation = "%PROGRAMFILES%\CompensacionBicentenario\1.5\BacosiRegional.jar" >> "ad.vbs"
echo .Description = "" >> "ad.vbs"
echo .WorkingDirectory = "%PROGRAMFILES%" >> "ad.vbs"
echo .Save >> "ad.vbs"
echo End With >> "ad.vbs"
ad.vbs
del ad.vbs
Exit /B 0

Buscar el instalador de Java en el disco c: para luego instalarlo. Esete es el problema, puedo hacer la busueda con un /s asi:

Código:
:: Segun los instaladores estan en esa carpeta tecnico
dir c:\tecnico\jre-*.exe /s

Como puedo hacer para que haga la busqueda del archivo a instalar y ejecutarlo.

Y estoy haciendo una en visual estudio (bueno yo no, mi compañero jejejeje) ya que el jefe le gusta que se vea todo lindo lindo para los usuarios  :laugh: :laugh: :laugh: :laugh: ;-) ;-)
Porque el que hago solo es una pantalla azul y listo jejejeje... que lo hice en un rato buscando por internet, y metinedole logica.

Nota: Si no esta el instalador tengo que descargarlo de un servidor de aplicaiones que tenemos.
Tambien seria bueno chequear que java tienen instalado para no instalr una version anterior, por que si hacemos eso, pues toca desinstalar todoooo, winrar, java y aplicaion para que pueda funcionar.

Gracias por la ayuda que me puedan brindar y luego pongo el de visual estudio 2013.
4  Programación / Scripting / Como puedo destildar unas propiedades de seguridad??? en: 8 Mayo 2014, 15:08 pm
Buenas.
Tengo que desactivar unas propiedades de seguridad de propiedades de internet, ya que en mi trabajo hicieron unas apicaiones que sacan ventanas eergentes de mensajes, que indican cuandoimprimen, cunto tiempo tienne de atencion y cosas asi.
Bueno tengo un scripting que activas los Activex. y varios cosas.

Este de los activex
Código:

Set WshShell = CreateObject("Wscript.Shell")

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1001", "0", "REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1004", "0", "REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1200", "0", "REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1201", "0", "REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1206", "0", "REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1207", "0", "REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1208", "0", "REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1209", "0", "REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\120A", "0", "REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\120B", "3", "REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1407", "1", "REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1809", "1", "REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1609", "1", "REG_DWORD"

Tambien coloco otro de proxy
Código:

@echo off
title BY ********* Bicentenario *********
echo.
echo Instalando Pagina Inicio del Portal Bicentenario...
echo..

:: -------   Pagina de Inicio ------
reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "Start Page" /d "http://portalbbu.bicentenariobu.com" /f



::--------- Proxys --------
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyOverride /t REg_SZ /d "*.banfoandes.com.ve;*.bicentenariobu.com;10.*;172.16.*;172.1.1.*;192.168.*; *sitel.bicentenariobu.*
" /f 

reg add "HKLM\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyOverride /t REg_SZ /d "*.banfoandes.com.ve;*.bicentenariobu.com;10.*;172.16.*;172.1.1.*;192.168.*; *sitel.bicentenariobu.*
" /f

reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /t REg_SZ /d proxy.bicentenariobu.com:3128

reg add "HKLM\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /t REg_SZ /d proxy.bicentenariobu.com:3128

reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f 

reg add "HKLM\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zonemap" /V ProxyByPass /t REG_DWORD /d 1 /f

:: --------- Fin ---------
Echo....
Pause
exit

Y este es para deactivar otras cositas y coloar las paginas que necesito.
Código:

@echo off
:: los /d es el valor. 1 es Preguntar, 0 es Habilitar . y 3 es Deshabilitar 

:: Configuracion de Intranet
:: 1407 es Permitir el acceso programático portapapeles
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1" /v 1407 /t REG_DWORD /d 3 /f
:: 1609 es Mostrar contenido mixto
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1" /v 1609 /t REG_DWORD /d 0 /f 
:: Agregar branchnet
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\bicentenariobu.com\branchnet"  /v * /t REG_DWORD /d 1 /f


:: Configuracion de Internet
:: 1407 es Permitir el acceso programático portapapeles
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1" /v 1407 /t REG_DWORD /d 3 /f
:: 1609 es Mostrar contenido mixto
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0" /v 1609 /t REG_DWORD /d 0 /f 
pause

Y en realidad lo que quiero es poder hacer esto.
Asi estan las propiedades.


y quisiera que quedara asi.


 Busque y lo que consegui fue esto.
Código:
:: Valores emergentes
reg add "HKLM\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_WEBOC_POPUPMANAGEMENT" /v iexplore.exe /t REG_DWORD /d 3 /f
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v EnableBalloonTips /t REG_DWORD /d 1 /f
reg add "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1" /v 1809 /t REG_DWORD /d 3 /f
pero no me distilda las opciones de la imagen anterior.
Les agradezco la ayuda que me puedan brindar.
5  Programación / Scripting / como puedo usr el psexec para cerra la sesion (De manera remota). en: 27 Marzo 2014, 17:02 pm
Buenas...

Tengo esta codigo...

Código:
@echo off
color 17
echo. *****************************************************
echo.
set /p equipo= Nombre de La maquina:
@echo %equipo%
echo.
echo. *****************************************************
set /p nombre= Nombre del usuario:
@echo. %nombre%
echo psexec.exe \\%equipo% net localgroup Administradores %nombre%@dominio /add > usuario.bat
echo psexec.exe \\%equipo% net localgroup Administradores %nombre%@dominio /add>> Listado.txt
:: El Listado.txt es para tener la relacion de todos los equipos, y correr la lista cada 3 o 4 horas.
pause.
echo. *****************************************************
echo.
call usuario.bat
echo.
echo. ******************************************************
exit

Esto lo que hace es llamar al archivo .bat.. con el codigo de Psexec ya con todo los dtos, que vamos agregando...

Con eso puede colocar al usuario como administrador local, para que este puede hacer un grupo de procesos que utilizan algunos .dll....

Pero para que estos cambios surtan efecto, hay que cerrar la sesion, y los usuario uno le dice cerrar secion y unos reinician el equipo, otros pagana el monitos, otoros cierran el programa que no pueden ejecutar sin pribilegios, ect... por eso quisiera hacerlo autamaticamente... pero las intruccion que me funciona es para reiniciar.

Tengo aca un codico que lo uso local. cundo no me puedo conectar remotamente y no funciona el psexec..

Código:
@echo off
title BY ***CSI ****
::-------- Pasar usuario a administrador
net localgroup Administradores nombre.apellido@dominio /add
pause
::-------- Listado de usuarios
net user
pause
::-------- Reinicio de sesion
msg * Se va  a reiniciar la sesión
shutdown -f -l

Entonces la instrucion
Código:
shutdown -f -l
que meto en psexec me arroja un error..

Código:
:: Este es que me da error
psexec.exe \\%equipo% shutdown -f -l 
***********************************
::Esta es la que funciona la de reinicio.
psexec.exe \\%equipo% shutdown -r

 Que cambio podria hacer para que al ejecutar el bat, y agregue al usuario como administrador, cierre la cesion, y no duro los 60 segundos predeterminados que tiene de espera.

Gracias... :silbar:
6  Programación / Scripting / Bat para chequera Direcciones IP activas. en: 14 Febrero 2014, 13:35 pm
Buenas.

Estoy tratando de realizar un Scripting para hacerle ping a una seria de router (Direcciones IP), y me guarde cual de las ip estan activas y cuales no en un archivo txt, para luego enviarlo por correo, por que en l empresa donde trabajo compraron el zenoss pero casiq ue el de prueba y no podemos realizar todos los reportes......

Entonces tengo esto...

Código:
@echo off

	REM Establece la variable YYYYMMDD con la fecha del sistema
	for /f "tokens=1,2,3,4* delims=/, " %%a in ('date /t') do set dia=%%c%%b%%a
	REM Establece la variable HHMM con la hora del sistema
	FOR /F "TOKENS=1-4 DELIMS=:., " %%a IN ('TIME /T') DO SET hora=%%a%%b%%c

	FOR /F "Usebackq Delims=" %%# IN (".\ping.txt") DO (
	REM Echo La IP que utilizaremos es: %%~#
	(
	ping -n 1 "%%~#" 
	) && (Call :Ok "%%~#") || (Call :Fail "%%~#")
	 
    )
    Goto :END
     
    :Ok
    Echo: Direccion IP Activas: "%~1" >>Resultado_%dia%_%hora%.txt
    GOTO:EOF
	 
    :Fail
    Echo: Direccion IP caidas: "%~2" >>Resultado_%dia%_%hora%.txt
    GOTO:EOF
     
    :END
    Echo: Todas las IP esta chequeadas.
    Pause & Exit /B 1


Entoces. al momento de ejecutarlo. Indica ue todas estan activas.. ya que al realizar un ping a un router, se van los paquetes a otra direccion. y me arroja un mensaje:

Código:
RESPUESTA DESDE XX.XX.XX.XX TTL EXPIRADO EN TRANSITO
RESPUESTA DESDE XX.XX.XX.XX TTL EXPIRADO EN TRANSITO
RESPUESTA DESDE XX.XX.XX.XX TTL EXPIRADO EN TRANSITO

Y en eso me dice que no hay paquetes perdidos, y al terminar el chequeo de toda las IP.. me dice que todas estan activas.

Sabiendo que hay direcciones que no estan activas...
Gracias por la ayuda que me puedan prindar..
7  Programación / Scripting / programita para crear un acceso directo (.bat con vbs) en: 27 Diciembre 2013, 20:14 pm
Buenas aca les dejo ese programita que busque y pues acomode...
Primero chequeo que tipo de de SO, para luego crear un acceso directo en el esritorio del usuario que lo ejecute.

Código
  1. @ECHO OFF
  2. REM XP Check
  3. ver | findstr /i "5\.1\." > nul
  4. IF %ERRORLEVEL% EQU 0 SET VER=XP-%PROCESSOR_ARCHITECTURE%
  5.  
  6. REM 7 Check
  7. ver | findstr /i "6\.1\." > nul
  8. IF %ERRORLEVEL% EQU 0 SET VER=WIN7-%PROCESSOR_ARCHITECTURE%
  9.  
  10. ::REM 8 Check
  11. ::ver | findstr /i "6\.2\." > nul
  12. ::IF %ERRORLEVEL% EQU 0 SET VER=WIN8-%PROCESSOR_ARCHITECTURE%
  13.  
  14. ECHO %VER%
  15. if %VER%==WIN7 (set coco=%userprofile%/desktop) else (set coco=%userprofile%/Escritorio)
  16. cd %coco%
  17. echo Set WshShell = WScript.CreateObject("WScript.Shell") > "ad.vbs"
  18. echo Set Link = WshShell.CreateShortcut("Compensacion Bicentenario.lnk") >> "ad.vbs"
  19. echo With Link >> "ad.vbs"
  20. echo .TargetPath = "%PROGRAMFILES%\CompensacionBicentenario\1.5\BacosiRegional.jar" >> "ad.vbs"
  21. echo .WindowStyle = 1 >> "ad.vbs"
  22. echo .Hotkey = "" 'HotKey >> "ad.vbs"
  23. echo .IconLocation = "%PROGRAMFILES%\carpeta\1.5\BacosiRegional.jar" >> "ad.vbs"
  24. echo .Description = "" >> "ad.vbs"
  25. echo .WorkingDirectory = "%PROGRAMFILES%" >> "ad.vbs"
  26. echo .Save >> "ad.vbs"
  27. echo End With >> "ad.vbs"
  28. ad.vbs
  29. del ad.vbs
  30. Exit /B
  31.  

Nota: este programa los monto en la pagina de intranet de la empresa para que los usuairo lo puedan ejecutar, sin tener que ingresar al equipo y crearles el acceso direccto..
8  Sistemas Operativos / Windows / Archivos por lotes. BAT para descubriri la clave de dominio. en: 26 Diciembre 2013, 20:35 pm


Lo que quiero que haga el bat, es que salga de for, y me indique cual es la clave que se pudo conectar. acá esta el que tengo..

 

@echo off
echo.
echo.
color 17
set /p equipo= Escriba el numero de IP:
set /p usar= Nombre del Usuario:
SET /A NUM=0
FOR /F "tokens=*" %%A IN (claves.txt) DO (
echo La clave que utilizaremos es: %%A
net use \\%equipo% /user:%equipo%\%usar% %%A
set esta= %%A
@if "%ERRORLEVEL%" == "2" goto fallo
)
:bien
echo La clave fue encontrada!
echo valor de retorno = %esta%
goto fin
:fallo
echo Esta aplicación esta fallo!
echo valor de retorno = %ERRORLEVEL%
echo %%A
goto fin
:fin
echo Listo.
pause

 

Claro lo que tengo acá, hce lo que quiero, pasea por el archivo .txt, y testeo todas las claves, pero eso es lo que no quiero... quiero que cuando arroje el error que el la conexión es correcta, salga del for y me indique cual es la clave, sin tener que esperar a que culmine la corrida completa, y luego buscar la clave que utilice y se conecto...

Si me pueden ayudar... se los agradezco..je je...
9  Programación / Scripting / Porgrama para detectar contraseña de una txt externo. en: 26 Diciembre 2013, 19:27 pm
Buenas buenas...

Lo que quiero que haga el bat, es que salga de for, y me indique cual es la clave que se pudo conectar. acá esta el que tengo..

 

Código
  1. @echo off
  4. color 17
  5. set /p equipo= Escriba el numero de IP:
  6. set /p usar= Nombre del Usuario:
  7. SET /A NUM=0
  8. FOR /F "tokens=*" %%A IN (claves.txt) DO (
  9. echo La clave que utilizaremos es: %%A
  10. net use \\%equipo% /user:%equipo%\%usar% %%A
  11. set esta= %%A
  12. @if "%ERRORLEVEL%" == "2" goto fallo
  13. )
  14. :bien
  15. echo La clave fue encontrada!
  16. echo valor de retorno = %esta%
  17. goto fin
  18. :fallo
  19. echo Esta aplicación esta fallo!
  20. echo valor de retorno = %ERRORLEVEL%
  21. echo %%A
  22. goto fin
  23. :fin
  24. echo Listo.

 

Claro lo que tengo acá, hce lo que quiero, pasea por el archivo .txt, y testeo todas las claves, pero eso es lo que no quiero... quiero que cuando arroje el error que el la conexión es correcta, salga del for y me indique cual es la clave, sin tener que esperar a que culmine la corrida completa, y luego buscar la clave que utilice y se conecto...

Si me pueden ayudar... se los agradezco..je je...


[MOD]: Usa las etiquetas de código.
10  Sistemas Operativos / Windows / Modificar usuarios remotamente utilizando msdos? en: 19 Octubre 2011, 16:59 pm
Wenas…
Tengo una super duda. Estoy tratando de hacer lo siguiente.
Usando un .bat
Conectarme a otro equipo, ver los usuario del equipo, colocar uno de esos usuarios como administrador del equipo, colocándole la clave que desee, para luego reiniciar el equipo y poder ingresar por VNC o ultra vnc, remoteadministreitor.. cualquier programa de esos que podemos trabajar remotamente en el equipo.
Ejemplo.
Para poderme  conectar estoy usando esto.
set /p equipo=Escriba el numero de maquina:
set /p usuar= Nombre del Usuario:
set /p clave= Escribe la clave:
net use \\%equipo% /user:%equipo%\%usuar% %clave%
Hay estoy conectado al equipo que quiero. Cree una unidad de red asi
net use g: \\%equipo%\c$
Aquí es donde quiero ver los usuario de este equipo con al asi…… net use pero solo me da los del equipo local, mas no el remoto…. Ya un amigo me dijo que es porque estoy conectado a una carpeta, más no a una sesión como tal.
 Por qué quiero hacer esto?  Porque en mi trabajo me conecto remotamente a los equipos y le presto apoyo remoto con problemas de impresoras compartidas, y no pueden abrir documentos y cosas asi. Pero como se unieron varias empresas, cada una con un dominio y directivas distintas, contraseñas de administrador distintas, que toca darle y meterse por todos lados a ver cómo se puede resolver para evitar los gastos de viáticos.
También tengo esta línea que según es para cambiar las propiedades del usuario a system…
echo /p usuario:Coloque aqui el usuario que vas a modificar
CACLS C:\* /G %usuario%:F
Si alguien sabe cómo hacer eso, se lo agradecería, y si no existe la manera sería bueno que también me dijeran.
Cabe destacar que esto es para utilizarlo en equipos con winxp y con win7…
Gracias de antemano  ;-) ;-) ;-) ;-) ;D
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines