使用 VBSCript 挂载/卸载 USB 驱动器 [英] Mount/Unmount USB drives with VBSCript

问题描述

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

I am looking for a way to mount\unmount a USB flash drive using VBScript. This is the closest I was able to get.

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.

This will work on Windows Server 2003, but not NT/2000/XP/Vista unfortunately.

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

从 卸载卷.

这篇关于使用 VBSCript 挂载/卸载 USB 驱动器的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！