Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - P3NDULO

#1
Scripting / Crear Varias carpetas y Sub-Carpetas
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...

@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
 :huh:

Citar
@Eleкtro
No he entendido nada (literálmente, no se entiende la frase citada).

Al hacer la busqueda la guardo en un .TXT, para luego sacar el directorio de donde esta guarado el .exe
" Eso es lo que tengo que meter en el for que me dices, para que busque los parametros no?"


El volumen de la unidad C no tiene etiqueta.
El n£mero de serie del volumen es: 8E2D-18B6

Directorio de c:\Tecnico\Instaladores\Java

27/06/2014  03:03 p.m.        16.062.240 jre-7-windows-i586.exe
               1 archivos     16.062.240 bytes

Directorio de c:\Tecnico\Programas

27/06/2014  03:03 p.m.        16.062.240 jre-6u21-windows-i586(1).exe
               1 archivos     16.062.240 bytes

     Total de archivos en la lista:
               2 archivos     32.124.480 bytes
               0 dirs  288.073.433.088 bytes libres



Con ese TXT, despues que pase por el for, me deberia salir esto.



"C:\Tecnico\Instaladores\Java\jre-7-windows-i586.exe"



Al ya tener eso, lo puedo ejecutar tranquilamete.

Claro lo que quiero hacer es la automatizacion de una busqueda.
De pasar por inicio -> Equipo -> Disco Local -> Carpeta -> buscar en este directorio carpeta por carpeta el instalador. para luego instalarlo.


las version de java, la colocare para que haga una comparacion de el Java que esta instalado con los que tenemos en el quipo, osea si es el resultado de eso es :

1.8 entonces el java que esta en el equipo es un Java 8 actualizacion 25, entonces deberia instalar unversion igual o mayor.
Ejemplo en tu equipo es:
1.7 entonces el java que debemos instalar en el equipo es un Java 8 actualizacion 25. para eso es la comparacion, para que al momento de instalar el java, no instalemos una version anterior, porque estaran los 2 javas instalados.

de verdad discupa que escriba como muy Mal.


#3
Cita de: Eleкtro en 27 Octubre 2014, 16:36 PM
Source:


PD: No lo he probado en más equipos que el mio.

Saludos

mande a guardar el resultado, en un TXT, para luego comprarlo con un numero


    :: Terminate execution.
    set ver=%Java.CurrentVersion%
    echo %ver% >c:\Tecnico\ver1java.TXT
    POPD & :: Restore working directory.
    Pause&Exit /B 0


tengo la busqueda y la guarde en un TXT:


@echo off
::mode con cols=50 lines=10
title Reconfigurador de JAVA
color
::"C:\Tecnico\Instaladores\Java\jre-7-windows-i586.exe" /passive
dir c:\Tecnico\jre-*.exe /s > java.txt
pause
exit


y cuando abro el TXT.. que por cierto no me abre jejejeje.. tengo que darle editar y veo esto.


El volumen de la unidad C no tiene etiqueta.
El n£mero de serie del volumen es: 8E2D-18B6

Directorio de c:\Tecnico\Instaladores\Java

27/06/2014  03:03 p.m.        16.062.240 jre-7-windows-i586.exe
               1 archivos     16.062.240 bytes

Directorio de c:\Tecnico\Programas

27/06/2014  03:03 p.m.        16.062.240 jre-6u21-windows-i586(1).exe
               1 archivos     16.062.240 bytes

     Total de archivos en la lista:
               2 archivos     32.124.480 bytes
               0 dirs  288.049.954.816 bytes libres


Como hafo para que esa busqueda sea el resultado como que mas limpia, y pues bueno, pueda ejecuatr el .exe en la ubicaion que este.

Muchas gracias @Eleкtro. Si sabes de algun librito, algun tutorial que tenga tantas cosas como las que tienes en la mente me avisas jajajaja,, que eres de verdad una enciclopedia.. Gracias.  ;D
#4
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


:: 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:


@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

@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.
#5
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.


@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.


@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:


:: 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.
#6
Bueno hice esto.
Seria la version 1.2 jejejeje...

Primero solicito la ip de la maquina y saco el nombre de la maquina con este programita:
que esta en .vbs

'-----------------------------------------'
'HACER PING A UNA DIRECCION Y MOSTRAR EL NOMBRE DEL EQUIPO
'-----------------------------------------'
'Pedir la dirección'
titulo ="<CSI> Buscar Nombre de Equipo"
EstaIP=inputbox("Introduzca IP: ", titulo)
'-----------------------------------------'
'Definimos y Creamos objeto para ejecutar comandos DOS
'Se puede usar shell:  Shell "cmd.exe /c move c:\archivo.txt c:\carpeta\"
'si quieres ejecutar varios comandos separalos con &&.
'"/c", para que pueda ejecutar los comandos que le siguen,
'el resultado de la ejecución se pasa a un archivo .txt que está en la raíz
Set MiComandoDos = CreateObject("Wscript.Shell")
MiComandoDos.run "cmd.exe /c ping -a "&EstaIP&">C:\Ping.txt",0, true
'-----------------------------------------'
'Definimos y Creamos objeto para usar archivos
'Modos de abrir un archivo: 1.- Lectura, 2.- Escritura (ini), 8.- Append (fin) + true'
Set MiArchivo =  CreateObject("Scripting.filesystemobject")
Set BuscarEn = MiArchivo.opentextfile("C:\Ping.txt",1)
'Crear un Arreglo para capturar las lineas del archivo, nos interesa la segunda
Dim CadaLinea(13)
i = 0
do Until BuscarEn.atEndOfStream
   CadaLinea(i)= BuscarEn.Readline
   i=i+1
Loop
BuscarEn.close
'-----------------------------------------'
'Buscar Nombre del Equipo en la segunda linea, es la cuarta palabra hasta el punto
m = mid(CadaLinea(1),17,(Len(CadaLinea(1))-38))
'n = instr(1,m,".")
n = instr(1,m," ")
NomPC=left(m,n-1)
If len(NomPC)> 3 then
   'y=msgbox("Ping realizado al siguiente Equipo:... "+Chr(13)+CadaLinea(1)+ _
   '     Chr(13)+"El Nombre del Equipo es: >>> "+NomPC+" <<<",64,titulo)
   x=inputbox("Puede copiar el nombre"+chr(13)+"si desea utilizarlo en otra aplicación" _
          ,titulo,NomPc)
else
   y=msgbox("No se puede encontrar nombre; IP parece ser no válida "+Chr(13)+ _
         "Verifique y ejecute de nuevo el programa.",48,titulo)
end if



Luego con el nombre de la maquina ejecuto este: en bat


@echo off
color 17
echo. *****************************************************
echo.
set /p equipo= Nombre de La maquina:
@echo %equipo%
echo.
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 -i \\%equipo% shutdown.exe -l > usuario.bat
echo psexec.exe \\%equipo% net localgroup Administradores %nombre%@dominio /add>> Listado.txt
pause.
echo. *****************************************************
echo.
call usuario.bat
echo.
echo. ******************************************************
exit


Con ese guardo los datos en un txt, para realizr eso al dia siguiente con una tarea programada jejejeje...
Lo unico malo es que les digo a los usuarios Cierra la secion de Windos... y lo que hacen es reiniciar el quipo", y por politacas de la empresa pierden todos los pribilegios de adminisrador que les coloque.
Utilizo el codigo que me dejo fe80Grau. pero no cierra la sesion. No sabria decirles el porque...
Si hay otra manera pues se los agradezco. gracias por la ayuda.
#7
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


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


@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.


@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.

:: 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.
#8
Buenas...

Tengo esta codigo...


@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..


@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 shutdown -f -l que meto en psexec me arroja un error..


:: 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:
#9
Tu pregunta en si es:
Saca el nombre de usuario?...
tendrias que colocar en cada maquina. un archivito que te sacra esto.. %userprofile% para saber cual esta activo.. y lo guardas el TXT con los datos en una carpeta compartida que tengas en el servidor de dominio.
Sacar el nombre de lamaquina con la ip, @Eleкtro ya te dio las pistas.
Otra es darle un poco de uso al router que tienen en tu empresa, con el


telnet a la Ip
telnet nombre_del_servidor
telnet XX.XX.XX.XX puerto


a la direccion del router... y sacas la tabla de todos los puertos, ip, nomnbres de maquinas, traficos, todo lo que pasa por esos router... por que segun dices que tienes mas de 800 ip... todo esto debe estar bajo un dominio. la otra es pasarle un correoa todos los usuario (Coordinadores de departamento) y que te envien el nombre de sus maquinas y el nombre de usuario.
..... :rolleyes:

Por otra parte...
Aprovecho que ya automatizaste lo de los ip, tengo algo mas o menos parecido mas no igual.....  Si puedes o pueden todos ustedes...  leer este pos y orientarme...
http://foro.elhacker.net/scripting/bat_para_chequera_direcciones_ip_activas-t408771.0.html
Y si alguien me puedeorientar en eso se lo agradeceria...  ;-) ;-) :xD
#10
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...


@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:


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..