我正在寻找一种使用 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
最佳答案
这将适用于 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 .
关于vbscript - 使用 VBSCript 挂载/卸载 USB 驱动器,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/296560/