unidades extaribles y particiones [vbs][Solucionado]

[Nilrac]

Hola !

En el foro me encontrado este codigo

Código [Seleccionar] Expandir

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  
Apenas estoy empezando en esto y no entiendo mucho !

Gracias !

[Novlucker]

Solo hay que modificar esta línea ...

Código (vb) [Seleccionar] Expandir

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

Saludos

[Nilrac]

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

[Novlucker]

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

[Nilrac]

Excelente, Muchas Gracias !

Pueden dar el tema por Solucionado !

[SuperDraco]

Nov te salen fans por todos laos 

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

saludos.

[Nilrac]

Gracioas por reabrir 

Con el script antes mencionado

puedo crear una carpeta en las unidades que detecte ?

Si se puede hacer, cuales serian los comandos ?

Gracias 

[Novlucker]

Createfolder

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

Saludos

[Nilrac]

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

Código [Seleccionar] Expandir

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 ?

Código [Seleccionar] Expandir

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 ?

[Novlucker]

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

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

Saludos