Montar/Desmontar unidades USB con VBSCript

Question

Estoy buscando una forma de montar/desmontar una unidad flash USB utilizando 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 

Answer 1

Esto funcionará en Windows Server 2003, pero no en NT/2000/XP/Vista, lamentablemente.

strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

Set colItems = objWMIService.ExecQuery _ 
    ("Select * From Win32_Volume Where Name = 'E:\\'") 

For Each objItem in colItems 
    objItem.Dismount(True, True) 
Next 

De Dismount a Volume.

Answer 2

Puede abrir el cuadro de diálogo de expulsión utilizando algo como esto. No estoy seguro de si es posible desmontar un dispositivo específico.

Set WshShell = WScript.CreateObject("WScript.Shell") 
intReturn = WshShell.Run("RunDll32.exe shell32.dll,Control_RunDLL hotplug.dll", 1, TRUE) 

Answer 3

Tome un vistazo a este thread, sus conversaciones sobre el uso de la herramienta de línea de comandos mountvol.exe para montar/desmontar una unidad, y debe trabajar para las unidades flash USB, o también hay un programa llamado deveject. Se este hilo para más información: http://social.msdn.microsoft.com/Forums/en-US/csharpgeneral/thread/d2e5d16e-e7c9-48ef-88b8-3abf6e638384