Test Foro de elhacker.net SMF 2.1

Hola !

En el foro me encontrado este codigo

set objfso = createobject("scripting.filesystemobject")
set discos = objfso.drives
nu=0

for each d in discos
if d.driveletter <> "A" and d.drivetype = 1 then
u = u & d.driveletter & ":" & chr(13)
nu = nu+1
end if
next

if nu = 0 then
msgbox "No se han deteactado unidades removibles"
else
msgbox "Las unidades removibles son: " & chr(13) & u
end if

Me gustaria que ademas de detectar las unidades extraibles detectara todas las particiones en cualquier maquina que sea utilizado el script

(C:\ y D:\ en mi caso)

Me pueden ayudar a modificarlo por fa  ;D
Apenas estoy empezando en esto y no entiendo mucho !

Gracias !

Solo hay que modificar esta línea ...

if d.driveletter <> "A" and (d.drivetype = 1 or d.drivetype = 2) then

Saludos ;)

Increible !!!

Ustedes son fantasticos...

Novlucker --> Grandioso

Muchas Gracias

-------------------------------------

Tengo otra duda

Tengo un .bat ligado a varios .vbs

Me gustaria crear un .exe que ejecute el .bat y se descompriman todos lo .vbs en la ruta

c:\

Eso es posible ?

Si es posible como lo hago?

Gracias !!!

Puedes crear un SFX (autoextraíble) de winrar

:http://www.google.es/search?hl=es&source=hp&q=tutorial+crear+archivos+sfx+winrar&btnG=Buscar+con+Google&meta=

Saludos

Excelente, Muchas Gracias !

Pueden dar el tema por Solucionado !

Nov te salen fans por todos laos  ;D

Me ha gustado mucho el script, muy practico y simplificado, yo tengo uno parecido de mas de 200 lineas xD!!

saludos.

Gracioas por reabrir  ;D

Con el script antes mencionado

puedo crear una carpeta en las unidades que detecte ?

Si se puede hacer, cuales serian los comandos ?

Gracias  ;D

Createfolder

http://foro.elhacker.net/scripting/tutorial_vbscript-t229032.0.html

Saludos

Esto tratando de eliminar los archivos autorun.inf de todas las unidades que esten conectadas al equipo

Option Explicit
Dim fso,car,var

Set fso = CreateObject("Scripting.FileSystemObject")
Variable = fso.FileExists ("c:\autorun.inf")


Set car = CreateObject("Scripting.FileSystemObject")
car.DeleteFile "c:\autorun.inf", True


Set var = CreateObject("Scripting.FileSystemObject")
var.CreateFolder "c:\autorun.inf"

Cuando compruebo la existencia de ese archivo en mas de una ruta puedo hacer esto ?

Option Explicit
Dim fso,car,var

Set fso = CreateObject("Scripting.FileSystemObject")
Variable = fso.FileExists ("c:\autorun.inf") ("D:\autorun.inf") (E:\autorun.inf)


Set car = CreateObject("Scripting.FileSystemObject")
car.DeleteFile "c:\autorun.inf", "d:\autorun.inf", "e:\autorun.inf", True


Set var = CreateObject("Scripting.FileSystemObject")
var.CreateFolder "c:\autorun.inf""d:\autorun.inf""e:\autorun.inf"

Asi esta bien ?

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

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

Disculpa amigo !

como te dije anteriormente no se mucho de esto  :-(

Me podrias explicar si el codigo esta completo o hay que agregarle algo segun lo que quiero hacer ?

CitarQuiero borrar el archivo autorun.inf de todas las unidades / particiones , que me diga si los elimino y en donde y crear una carpeta con el nombre autorun.inf la cual quede oculta !

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

Gracias !

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

Exacto eso es lo que quiero hacer, es un metodo de desinfecion tradicional

Por que dices que no se puede crear la carpeta y ocultarla como se debe ?

Entonces aplicare la creacion de carpeta desde BATCH pero quiero ocultarla desde .VBS eso si funcionaria ?