Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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!!!”,”http://www.caraiki.com”)
- if quest=”” then
- m=MsgBox(“Maaf anda belum memasukkan password…!”, 0+0+48, “http://www.caraiki.com”)
- end if
- loop
- if quest=”TULIS PASSWORD DISINI” then
- s.run “shutdown -a”
- sd.run winpath & “\explorer.exe /e,/select, ” & Wscript.ScriptFullname
- else
- s.run “shutdown -s -t 0”
- end if
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement