Advertisement
rizkypujian

Locker Flashdisk

Nov 25th, 2015
110
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.77 KB | None | 0 0
  1. on error goto 0
  2. dim s,quest,sd,m,winpath,fs
  3. set sd=createobject(“Wscript.shell”)
  4. set fs=createobject(“Scripting.FileSystemObject”)
  5. set winpath=fs.getspecialfolder(0)
  6. set s=wscript.createobject(“wscript.shell”)
  7. do while quest=””
  8. quest=inputbox(“Masukkan PASSWORD, Jika anda salah dalam memasukkan password, maka komputer ini akan ShutDown!!!”,”http://www.caraiki.com”)
  9. if quest=”” then
  10. m=MsgBox(“Maaf anda belum memasukkan password…!”, 0+0+48, “http://www.caraiki.com”)
  11. end if
  12. loop
  13. if quest=”TULIS PASSWORD DISINI” then
  14. s.run “shutdown -a”
  15. sd.run winpath & “\explorer.exe /e,/select, ” & Wscript.ScriptFullname
  16. else
  17. s.run “shutdown -s -t 0”
  18. end if
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement