Option Explicit
 
Dim i
Dim sArgs: sArgs = ""
Dim cArgs: cArgs = Wscript.Arguments.Count - 1
 
For i = 0 To cArgs
    sArgs = sArgs & " " & Wscript.Arguments.Item(i)
Next
sArgs = Replace(sArgs, "\", "")
 
CreateObject("Shell.Application").ShellExecute "manage-bde.exe", "-lock -forcedismount " & sArgs, "", "runas", 1

Windows Registry Editor Version 5.00
 
[-HKEY_CLASSES_ROOT\Drive\shell\relock-bde]
 
[HKEY_CLASSES_ROOT\Drive\shell\relock-bde]
"AppliesTo"="(System.Volume.BitLockerProtection:=1 OR System.Volume.BitLockerProtection:=3 OR System.Volume.BitLockerProtection:=5)"
@="BitLocker-védett meghajtó visszazárása"
"HasLUAShield"=""
"MultiSelectModel"="Single"
 
[HKEY_CLASSES_ROOT\Drive\shell\relock-bde\command]
@="wscript.exe \"C:\\path\\manage-bde-lock.vbs\" %1"