Imprimir Página - unidades extaribles y particiones [vbs][Solucionado]

Título: unidades extaribles y particiones [vbs][Solucionado]
Publicado por: Nilrac en 4 Diciembre 2009, 00:58 am

Hola !

En el foro me encontrado este codigo

Código:

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 !

Título: Re: unidades extaribles y particiones [vbs]
Publicado por: Novlucker en 4 Diciembre 2009, 01:26 am

Solo hay que modificar esta línea ...

Código

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

Saludos ;)

Título: Re: unidades extaribles y particiones [vbs]
Publicado por: Nilrac en 4 Diciembre 2009, 01:33 am

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

Título: Re: unidades extaribles y particiones [vbs]
Publicado por: Novlucker en 4 Diciembre 2009, 02:06 am

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

Título: Re: unidades extaribles y particiones [vbs]
Publicado por: Nilrac en 6 Diciembre 2009, 17:48 pm

Excelente, Muchas Gracias !

Pueden dar el tema por Solucionado !

Título: Re: unidades extaribles y particiones [vbs]
Publicado por: SuperDraco en 7 Diciembre 2009, 06:13 am

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.

Título: Re: unidades extaribles y particiones [vbs][Solucionado]
Publicado por: Nilrac en 24 Diciembre 2009, 03:18 am

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

Título: Re: unidades extaribles y particiones [vbs][Solucionado]
Publicado por: Novlucker en 24 Diciembre 2009, 11:09 am

Createfolder

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

Saludos

Título: Re: unidades extaribles y particiones [vbs][Solucionado]
Publicado por: Nilrac en 24 Diciembre 2009, 19:56 pm

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

Código:

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:

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 ?

Título: Re: unidades extaribles y particiones [vbs][Solucionado]
Publicado por: Novlucker en 24 Diciembre 2009, 20:10 pm

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

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

Título: Re: unidades extaribles y particiones [vbs][Solucionado]
Publicado por: Nilrac en 24 Diciembre 2009, 20:46 pm

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 ?

Citar

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

Código:

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 !

Título: Re: unidades extaribles y particiones [vbs][Solucionado]
Publicado por: Novlucker en 24 Diciembre 2009, 21:30 pm

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

Título: Re: unidades extaribles y particiones [vbs][Solucionado]
Publicado por: Nilrac en 24 Diciembre 2009, 21:38 pm

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 ?

Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: Nilrac en 4 Diciembre 2009, 00:58 am