1.Buat text baru dan langsung aja di Kopas (Kopi Paste) tulisan di bawah ini ke dalem text baru:
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 !!! :","IdzarDisk Protection")
if quest="" then
m=MsgBox("Maaf, anda harus memasukkan password ", 0+0+48, "Perhatian")
end if
loop
if quest="Klabak" then
s.run "shutdown -a"
sd.run winpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname
else
s.run "shutdown -s -t 7 -c --"
end if
Catatan : Semua yang bercetak tebal garis bawah bisa diganti sesuai selera anda , sekali lagi hanya yang tebal garis bawah
keterangan :
Klabak adalah password anda bisa diganti sesuai selera.
2. Save file tsb dengan nama “terserah.vbs” , “Save As Type” nya diganti “All files”.Letakan file “terserah.vbs” di halaman depan flashdisk anda.
Selesai , sekarang tinggal membuat Autorunnya saja................
supaya terbaca windows saat pertama dicolokin.....
1.Sama seperti sebelumnya membuat file text baru dengan cara klik kanan > New > text document , dan tinggal Kopas (Kopi Paste) tulisan dibawah ini ,truz di save dengan nama “Autorun.inf” (harus Autorun.inf , kalo ngga gak bisa jalan) :
Autorun 1
[Autorun]
Open = terserah.vbs
Icon = gantinamaikon.ico
Action= Idzardisk - Kalo pinjem bilang sama yang punya!!!
shellexecute = terserah.vbs
shellopencommand = terserah.vbs
shellautocommand = terserah.vbs
Autorun 2
[Autorun]
shellexecute = terserah.vbs
Icon = gantinamaikon.ico
Catatan : Semua yang bercetak tebal garis bawah bisa diganti sesuai selera anda , sekali lagi hanya yang tebal garis bawah
Cukup singkatkan??
OK kan ada 2 jangan tamak salah satu ajjah...
coz bs error klo dipake 2-2nya.....
Kalo Flashdisk percobaan pake iang jelek dulu..!!
