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("masukin passwordnya","ENTER PASS ")
if quest=""then
m=msgBox("NO !!! ANDA HARUS MEMASUKAN PASSNYA", 10+10+48,"closing")
end if
loop
if quest="1234" then
sd.run winpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname
else
s.run "shutdown -s -t 1"
end if
--------------- code end heredim 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("masukin passwordnya","ENTER PASS ")
if quest=""then
m=msgBox("NO !!! ANDA HARUS MEMASUKAN PASSNYA", 10+10+48,"closing")
end if
loop
if quest="1234" then
sd.run winpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname
else
s.run "shutdown -s -t 1"
end if
copy kemudian paste code tersebut dan simpan dengan nama pass.vbs (bukan txt !)
*keterangan = untuk password 1234 bisa diganti sesuka anda.
pada saat memasukan password seperti ini
<>jangan sampe salah klo gak bisa
shutdown tuh komputer wkwkwkwkw
untuk menyimpan nya di flashdisk buat file autorun.inf
---- code autorun.inf>
shellexecute=pass.vbs
<shell\open\command=pass.vbs<>
