Montar / desmontar unidades USB com VBSCript
Estou procurando uma maneira de montar \ desmontar uma unidade flash USB usando VBScript. Este é o mais próximo que pude chegar.
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