vbscript - window2 - windows 1 vbs

Montar/desmontar unidades USB con VBSCript

Question

Estoy buscando una manera de montar / desmontar una unidad flash USB con 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 Desmontar un Volumen .

Answer 2

Puede abrir el cuadro de diálogo de expulsión usando 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

Eche un vistazo a este hilo , habla sobre el uso de la herramienta de línea de comandos mountvol.exe para montar / desmontar una unidad, y debería funcionar para 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