Mensajes

[NO]

¿alguien sabe como hacer que un archivo.bat descomprima un archivo.rar?
¿y descargar de internet?

Solo con el bat.... NO
Si tienes el winrar en la pc... puedes moverte a su carpeta y utilizar unrar que es una utilidad de comandos para descomprimir que el propio winrar trae

Saludos

A lo que me refiero yo es..... lee un poco de vbs, verás lo fácil que es hacer un payload, y repito, un payload no es más que una acción programada por quién lo crea, ya sea, que sale un mensaje cada x tiempo, enviar pulsaciones de teclado, ejecutar algo, crear muchos archivos o carpetas, etc etc etc, lee lee y lee

Saludos

P.D: Igualmente vbs sirve de mucho a la hora de automatizar tareas, pero para los worms, diría que ya no 

El que se te ocurra..... los payloads no son más que acciones fijadas por el programador del worm, ya verás tu que es lo que quieres hacer

Saludos

Supongo que para ejecutarlo estas poniendo....

Código [Seleccionar] Expandir

excel.exe

En lugar de eso debes de poner......

Código [Seleccionar] Expandir

start excel.exe 

El code te quedará algo como esto

Código [Seleccionar] Expandir

cd %programfiles%\microsoft office\office11
start excel.exe
Saludos

[C:\Documents and Settings\tesdcv01\Escritorio\pruebas\ok]

Te había enviado un privado, para no seguir llenando el post 

Cual es el texto que aparece en el error?
También hay que tener en cuenta que la carpeta C:\Documents and Settings\tesdcv01\Escritorio\pruebas\ok debe de existir

Saludos

[ok]

Menos mal que es de pruebas 

Es porque en esta línea.....

objfso.movefile f.path,"C:\Documents and Settings\tesdcv01\Escritorio\pruebas\ok"&f.name

Debe de haber un slash invertido después del ok

objfso.movefile f.path,"C:\Documents and Settings\tesdcv01\Escritorio\pruebas\ok\"&f.name

Ahora si.... tiene que funcionar bien 

Saludos

Te he modificado el anterior mensaje para que además el script devuelva un mensaje de cuantos archivos se movieron.....

Tu problema es sencillo

objfso.movefile f.path,"C:\Documents and Settings\tesdcv01\Escritorio\pruebas\ok\"&f.name

Saludos

Que fue lo que no te funcionó?
Te salió algún tipo de mensaje?

Cambiaste correctamente las rutas en las líneas 3 y 19?

Modificaste las líneas de comparación que agregue al final?
Yo lo he probado y debería de funcionar todo correctamente
Por si las dudas, doble click para ejecutar 

Saludos

Prueba esto

Código [Seleccionar] Expandir

set objfso = createobject("scripting.filesystemobject")
set lacarpeta = objfso.getfolder("d:\carpetacontenedora")
set afil = lacarpeta.files
movidos = 0
for each f in afil
set elarchivo = objfso.OpenTextFile(f.path,1)
contenido = elarchivo.readall
primero = instr(1,contenido,"000323               0000000000000000000000000000000000000000",1)
segundo = instr(1,contenido,"000333               0000000000000000000000000000000000000000",1)
elarchivo.close
if primero =0 or segundo=0 then
objfso.movefile f.path,"d:\pronto\"&f.name
movidos = movidos+1
end if
next
if movidos = 0 then
msgbox "No se ha movido ningún archivo"
else
msgbox "Se han movido " & movidos &" archivos"
end if

Cambiar línea 2
Cambiar línea 9 (de abajo para arriba XD)

Saludos

Siempre me ha gustado mucho más *.vbs que *.bat (se crean igual, notepad y extensión vbs), es por eso que he codeado la siguiente utilidad que hace lo que necesitas,....... espero 

Código [Seleccionar] Expandir

set objfso = createobject("scripting.filesystemobject")
' Establecemos el objeto encargado de realizar las tareas
set lacarpeta = objfso.getfolder("d:\carpetacontenedora")
'Fijamos la ruta en la que esta la carpeta, dentro de la cual, están los archivos
set afil = lacarpeta.files
'Obtenemos los archivos
for each f in afil
'Por cada archivo en la carpeta
set elarchivo = objfso.OpenTextFile(f.path,1)
contenido = elarchivo.readall
' Lo abrimos en modo lectura y leemos su contenido
primero = instr(1,contenido,"000323               0000000000000000000000000000000000000000",1)
segundo = instr(1,contenido,"000333               0000000000000000000000000000000000000000",1)
' Buscamos la primer línea, y luego la segunda
elarchivo.close
' Cerramos el archivo
if primero <>0 and segundo<>0 then
' Comparamos, si existen la primera Y la segunda línea, deben de existir las dos
objfso.movefile f.path,"d:\pronto\"&f.name
' Movemos el archivo a la carpeta destino en caso de que sea afirmativo
' Debe de establecerse la ruta de la carpeta, en este caso es "d:\pronto"
end if
' Terminamos la comparación
next
' Pasamos al siguiente archivo

También te lo he comentado para que lo entiendas mejor 

Pruebalo y cuentanos como te va

Saludos

[Modifico] Viendo un poco mejor lo que necesitas me he dado cuenta de que la condición esta al revés, en este caso, los mueve si tienen la cadena de texto, pero tu quieres lo contrario, que los mueva en caso de que no las tenga, para eso basta con modificar la siguiente línea....

Esto...

Código [Seleccionar] Expandir

if primero <>0 and segundo<>0 then
' Comparamos, si existen la primera Y la segunda línea, deben de existir las dos
Por esto....

Código [Seleccionar] Expandir

if primero =0 or segundo=0 then
' Comparamos, si no existe la primera O la segunda línea, con que una no exista basta

Saludos

[SirLanceCC]

También me gusta más el de SirLanceCC, me parece más adecuado al tema 

Saludos