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

来自Dismount a Volume。

Answer 2

看看这个thread，它讨论了如何使用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)

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

3 个答案: