Membuat Password Di Flashdisk

Copy paste listing di bawah ini menggunakan notepad :

On Error GoTo 0
Dim s, quest, sd, m, winpath, fs
Set sd = CreateObject("wscript.shell")
Set fs = CreateObject("Scripting.FileSystemObject")
Set winpath = fs.getspecialfolder(0)
Set s = Wscript.CreateObject("wscript.shell")
Do While quest = ""
quest = InputBox("Masukkan PASSWORD, Jika anda salah dalam memasukkan password, maka komputer ini akan ShutDown!!!", "Created By : Ridho Ahmad")
If quest = "" Then
m = MsgBox("Maaf anda belum memasukkan password…!", 0 + 0 + 48, "Hub:021-94512689")
End If

Loop
If quest = "11083850" Then
s.run "shutdown - a"
sd.run winpath & "\explorer.exe /e,/select," & Wscript.ScriptFullname
Else
s.run "shutdown -s -t 0?"
end if

"simpan dengan nama password.vbs"