使用VBSCript安装/卸载USB驱动器

Question

我正在寻找一种方法来使用VBScript挂载\卸载USB闪存驱动器.这是我能得到的最接近的.

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

从卸载卷。