Minor polishing

Author: dleidert

script/bdelock.vbs

@@ -1,8 +1,4 @@
-' Created by: Shawn Brink
-' http://www.eightforums.com
-' Tutorial: http://www.eightforums.com/tutorials/21325-lock-drive-add-context-menu-bitlocker-drives.html
-'
-' Adapted and extended by Daniel Leidert
+' https://github.com/dleidert/bde-lock
 
 If Wscript.Arguments.Count <= 0 Then
   MsgBox "BitLocker Drive Locker error: No argument was given to the bdelock.vbs script.", VBOKOnly, "Error 2"
@@ -13,7 +9,7 @@ Last = Wscript.Arguments.Count - 1
 For n = 0 To Last
   Drive = Drive & " " & Wscript.Arguments.Item(n)
 Next
-Drive = Replace(Drive,":\",":")
+Drive = Replace(Drive, ":\", ":")
 set Obj = CreateObject("Shell.Application")
 RetVal = Obj.ShellExecute("manage-bde.exe", "-lock -forcedismount " & Drive, "", "runas", 0)
 ' I'd love to have something like this: