Монтирование / размонтирование USB-накопителей с помощью VBSCript

Question

Я ищу способ смонтировать \ размонтировать флешку с помощью VBScript. Это самое близкое, что я смог получить.

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

Это будет работать на Windows Server 2003, но, к сожалению, не на NT / 2000 / XP / Vista.

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

С Снять том .

Answer 2

Взгляните на этот поток , в котором рассказывается об использовании инструмента командной строки mountvol.exe для монтирования / размонтирования диска, и он должен работать для флэш-накопителей USB, или есть также программа под названием deveject. Перейдите по этой теме для получения дополнительной информации: http://social.msdn.microsoft.com/Forums/en-US/csharpgeneral/thread/d2e5d16e-e7c9-48ef-88b8-3abf6e638384

Answer 3

Вы можете открыть диалоговое окно извлечения, используя что-то вроде этого. Я не уверен, возможно ли отключить конкретное устройство.

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