عجیبه آخه روش دوم هم در واقع از همون کد روش اول استفاده میکنه

کد:
Drive = ""
Last = Wscript.Arguments.Count - 1
For n = 0 To Last
 Drive = Drive & " " & Wscript.Arguments.Item(n)
Next
Drive = Replace(Drive,":\",":")
CreateObject("Shell.Application").ShellExecute "manage-bde.exe", "-lock -forcedismount " & Drive, "", "runas", 0
همونطور که گفتند dismount رو حذف کن

کد:
manage-bde -lock f: