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


 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  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 6,407 veces)
daniwxp11

Desconectado Desconectado

Mensajes: 9


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

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



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

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 »

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



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

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

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



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

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 »

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 Básico
tv2q0 7 7,756 Último mensaje 7 Enero 2010, 14:07
por gerard_88
Script Para copiar archos Batch « 1 2 »
Scripting
Guille270 10 3,454 Último mensaje 2 Marzo 2015, 19:36
por Guille270
Programa para copiar datos de otros USB.
Hacking Básico
elmalote123 1 1,181 Último mensaje 9 Septiembre 2016, 12:51
por calaomar17
¿Script para copiar archivos de un USB a escondidas?(urgente) Linux
GNU/Linux
bastian6039 1 978 Último mensaje 12 Diciembre 2015, 22:02
por RevolucionVegana
Script para copiar nombre de imagen en variable
Scripting
Jelopmen 0 374 Último mensaje 9 Enero 2019, 05:32
por Jelopmen
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines