VBS如何退出usb？

Topgunguy

各位版友大家好，我想请教有关随身碟的问题。

要安全退出随身碟必须先点右下角的usb图示後选择移除才能拔，非常麻烦，於是我google了一下是这样
Set shell = WScript.CreateObject("WScript.Shell")
shell.Run "mountvol <drive>: /d"

但是执行後，右下角没有显示已退出，而是电脑里的一个磁碟消失。

然後把随身碟拔起重插，就再也读不到了，要输入一大串英数字重新挂载才读得到。

请问要怎麽用vbs退出随身碟呢？
感谢~