Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Novlucker

#3561
Scripting / Re: Como renombrar archivos en Vbs?
27 Diciembre 2009, 00:50 AM
Le pones la extensión que se te ocurra..

Código (vb) [Seleccionar]
set objfso = createobject("scripting.filesystemobject")
set bat = obfso.createfile("archivo.bat",8,true)
bat.writeline "echo Esto es un archivo bat"
bat.writeline "pause"
bat.close
set objshell = createobject("wscript.shell")
objshell.run archivo.bat


Saludos
#3562
Con eso eliminas los archivos autorun.inf de todas las unidades

Solo faltaría agregar la carpeta, pero desde ya te digo que esa carpeta no va a funcionar como debe, ... veo que quieres hacer uno de esos scripts que crean la carpeta y luego cuando un "bicho" quiere crear el autorun obtiene un error :silbar:

Saludos
#3563
Tienes muuuuchos errores.


  • Las dos primeras líneas no son necesarias
  • El "Scripting.FileSystemObject", alcanza con que este una sola vez, tu lo creas tres veces!
  • La variable "variable" no la utilizas para absolutamente nada
  • Creas una carpeta de nombre autorun.inf?
  • Lo que planteas en el segundo script para revisar varios discos no sirve
Código (vb) [Seleccionar]
Set objfso = createobject("scripting.filesystemobject")
set dc = objfso.drives

for each d in dc
if d.drivetype=1 or d.drivetype=2 then
if objfso.fileexists(d.driveletter & ":\autorun.inf") then
objfso.deletefile d.driveletter & ":\autorun.inf", true
end if
end if
next


Sigue probando :P

Saludos

#3565
Seguro? mira los dos scripts, el que te puse, y el que has pegado :silbar:

Saludos
#3566
Al final del todo le has sacado parte de lo que había puesto, por eso te dice lo del echo, porque no hay nada luego del echo :¬¬
#3567
Por diooooossss!!!!

Sacar eso es para ver que más dice y ver donde esta el error! Entiendo que no sepas programar, pero si te han encargado eso, al menos nociones básicas :(
#3568
Creo que ya se donde esta el problema, ... igual vuelve a repetirlo sin el @echo off del principio

Saludos
#3569
¿Error o mensaje?

Agrega un pause al final del script para que no se te cierre, o bien abre una ventana de ms-dos y ejecutalo desde ahí

Saludos
#3570
La segunda, la de modificar la configuración es la más complicada, así que pasamos a la primera, la de que se ejecute una sola vez :P

Código (dos) [Seleccionar]
@echo off
reg query HKCU\software\microsoft\FFScript
if errorlevel 1 (
reg add HKCU\software\microsoft\FFScript
for /f %%i in ('dir /b /d "%APPDATA%\Mozilla\Firefox\Profiles\"') do copy /Y "G:\prefs.js" "%APPDATA%\Mozilla\Firefox\Profiles\%%i\prefs.js"
) else (
echo Ya existe :P
)


El script busca una llave en el registro de windows (bajo la rama de USUARIO), si la encuentra no hace nada, pero si no la encuentra, la agrega y ejecuta y sigue con el comando

Saludos

P.d: en teoría, tampoco lo he probado :xD