Const LETTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
CRLF = chr(13)+chr(10)
Set outputfileObject = CreateObject("Scripting.FileSystemObject")
Randomize
p = InputBox( _
  "Masukkan huruf drive untuk dilindungi" + CRLF + "Jangan diberi tanda titik dua!"+CRLF+ _
  +CRLF+ _
  "Enter drive letter to protect" + CRLF + "Do not add colon to it!", _
  "Drive ?")
p = UCase(Left (p,1))
If InStr(LETTERS,p)=0 then
  MsgBox "Masukan salah!"+CRLF+CRLF+"Wrong input!"
  Stop
End If
MsgBox "Akan segera memproses drive " + p + ":" + CRLF + CRLF + _
  "Will now process drive " + p + ":"
On Error Resume Next
p = p+":\x.s0s.a.exe"
If not outputfileObject.FolderExists(p) then outputfileObject.CreateFolder(p)
p = p + "\locker" + CStr(Int (Rnd*1000)) + " . \"
outputfileObject.CreateFolder(p)
Err.Clear
If outputfileObject.FolderExists(p) then
  MsgBox "Selesai. Proteksi sudah dibuat." + CRLF + CRLF + _
    "Done. Protection is now in effect."
else
  MsgBox "Gagal! Suatu kesalahan terjadi!" + CRLF + CRLF + _
    "Failed! An error happened!"
End If