Set objWMI = GetObject("winmgmts:\\.\root\default")
 
 Set objItem = objWMI.Get("SystemRestore")
 objItem.disable("")

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