mematikan penggunaan regedit

ketikan script dibawah ini di notepad,dan jangan di copy paste yachh...


dim yonatan
masuk()
sub masuk()
set yonatan = wscript.CreateObject("wscript.shell")
keterangan = "Pilihan:" & vbcrlf &_
"[0].Aktifkan Regedit." & vbcrlf &_
"[1].Nonaktifkan Regedit." & vbcrlf & vbcrlf &_
"[Program Karya Bangsa Indonesia]"
tanya = inputbox(keterangan,"Edit Regedit",0)
yonatan.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion" &_
"\Policies\System\DisableRegistryTools",tanya,"REG_DWORD"
if tanya=1 then
msgbox "Registry dinonaktifkan",vbInformation,"Edit Regedit"
else
if tanya=0 then
msgbox "Registry diaktifkan",vbInformation,"Edit Regedit"
yonatan.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion" &_
"\Policies\System\DisableRegistryTools"
else
msgbox "Masukkan angka 0 atau 1!",vbInformation,"Edit Regedit"
masuk()
end if
end if
end sub
Setelah mengetikan script program diatas bukalah Windows Explorer, lalu cari file yang
bernama regedit.vbs. Klik dua kali pada ikon file tersebut untuk menjalankannya. Maka akan
terbuka suatu jendela dimana Anda dapat memberi nilai 0 untuk mengaktifkan regedit atau 1
untuk menonaktifkan regedit.

Membuat komputer cepat di shut Down Dengan mengklik kanan saja

silahkan anda copast ajjh(copy paste) script dibawah ini :

// Program Sederhana Matiin Komputer Via Klik Kanan
// Programmer : Yonatan Prasdikatama
var vbCancel = 2;
var vbYesNoCancel = 3;
var vbYes = 6;
var vbNo = 7;
var vbQuestion = 32;
var vbInformation = 64;
var natan = WScript.CreateObject('WScript.Shell');
var kata = '.:: http://ikatama.wordpress.com ::.';
var pesan1 = 'Pilihlah opsi berikut ini:\n'+
'--------------------------\n\n'+
'1. Klik ["Yes"] -> untuk Pasang.\n'+
'2. Klik ["No"] -> untuk Copot.\n'+
'3. Klik ["Cancel"] -> untuk Berhenti.\n\n'+
'>> Pilihan Anda? <<'
var tanya = natan.popup(pesan1,0,kata,vbYesNoCancel+vbQuestion);
if (tanya == vbYes)
{
natan.RegWrite('HKCR\\Directory\\shell\\mati\\',
'> Matikan Windows!','REG_SZ');
natan.RegWrite('HKCR\\Directory\\shell\\mati\\command\\',
'shutdown.exe -s -t 0','REG_SZ');
natan.RegWrite('HKCR\\Drive\\shell\\mati\\',
'> Matikan Windows!','REG_SZ');
natan.RegWrite('HKCR\\Drive\\shell\\mati\\command\\',
'shutdown.exe -s -t 0','REG_SZ');
pesan2 = 'Selesai di pasang!';
natan.popup(pesan2,0,kata,vbInformation);
}
else if (tanya == vbNo)
{
natan.RegDelete('HKCR\\Directory\\shell\\mati\\command\\');
natan.RegDelete('HKCR\\Directory\\shell\\mati\\');
natan.RegDelete('HKCR\\Drive\\shell\\mati\\command\\');
natan.RegDelete('HKCR\\Drive\\shell\\mati\\');
pesan3 = 'Selesai di copot!';
natan.popup(pesan3,0,kata,vbInformation);
}
else
{
Komunitas eLearning IlmuKomputer.Com
Copyright © 2003-2007 IlmuKomputer.Com
3
pesan4 = 'Berhenti!';
natan.popup(pesan4,0,kata,vbInformation);
}

kalau udah di coba dan berhasil,sihlahkan comment akuh yach
^_^