Montar / desmontar unidades USB con VBSCript
Estoy buscando una manera de montar / desmontar una unidad flash USB usando VBScript. Esto es lo más cerca que pude llegar.
Sub EjectDrive(strDrive)
On Error Resume Next
CONST SSF_DRIVES = 17
Set objShell = CreateObject("Shell.Application")
Set objDrive = objShell.Namespace(SSF_DRIVES).ParseName(strDrive)
objDrive.InvokeVerb "E&ject"
End Sub