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"