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

Я ищу способ смонтировать \ размонтировать флешку с помощью 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

Ответы на вопрос(1)

Ваш ответ на вопрос