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