Лучший вариант, который я могу найти, это:
1) откройте оболочку, запустите mountvol и найдите GUID
\\?\Volume{1be3da43-6602-11e0-b9e6-f11e1c50f5b5}\
F:\
2) выполнить mountvol / p [GUID] в скрипте
Dim eject
Set eject = WScript.CreateObject("WScript.Shell")
eject.Run "mountvol \\?\Volume{1be3da43-6602-11e0-b9e6-f11e1c50f5b5}\ /p"
Set eject = Nothing
Единственная проблема этого метода заключается в том, что ему требуется доступ администратора для удаления буквы диска. При вызове пользователем он размонтирует диск, в этом случае остается фантом F :. USB-накопитель можно безопасно удалить, или вы можете извлечь фантом, чтобы извлечь его.