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

我正在寻找一种使用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

---

这将在WindowsServer2003上运行，但不幸的是，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

---

从。

您可以使用类似的方法弹出弹出对话框。我不确定是否可以卸载特定设备

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

---

看看这个，它讲的是使用mountvol.exe命令行工具来装载/卸载驱动器，它应该适用于USB闪存驱动器，或者还有一个名为devject的程序。查看此帖子以了解更多信息：

如果有人有C#示例，我也会对C#中的这一点感兴趣。事实上，它们可能非常相似。