Enable Disable Regedit Script Warning Message VBS

Enable disable regedit, menggunakan vbs warning message, dibuat menggunakan notepad dengan ekstensi vbs, dengan adanya vbs warning message, script yang kita buat tidak akan jalan secara otomatis, script ini akan menunggu perintah dari user, apakah sistem akan di robah atau tidak

1. Enable regedit
script ini fungsi nya untuk mengaktivekan regedit, ketika pilihan kita Yes maka script akan membuka regedit yang telah di blokir. script ini di buat menggunakan notepad( start - all program - accessories- notepad) dengan ekstensi vbs, untuk script bisa di lihat di bawah ini

Dim vResult
Dim objShell
vResult = MsgBox("APa kamu yakin membuka blokir regedit", _
vbYesNo + vbQuestion + vbDefaultButton2 + vbApplicationModal, _
"Enable Disable Regedit VBS")
If vResult = vbyes Then
Set objShell = CreateObject("WScript.Shell")
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "0", "REG_DWORD"
msgbox "regedit sudah aktive dan bisa di buka"
else
msgbox "regedit masih di blokir"
End If




save as dengan ekstensi vbs(misal : enable regedit.vbs)


2. Disable regedit
Kebalikan dari script enable regedit, fungsi dari script untuk memblokir regedit yang sedang aktive,ketika pilihan  kita Yes maka script akan secara otomatis memblokir regedit yang aktive. script ini di buat menggunakan notepad( start - all program - accessories- notepad) dengan ekstensi vbs, untuk script bisa di lihat di bawah ini




Dim vResult
Dim objShell
vResult = MsgBox("Apakah kamu yakin memblokir regedit", _
vbYesNo + vbQuestion + vbDefaultButton2 + vbApplicationModal, _
"Enable Disable Regedit VBS")
If vResult = vbyes Then
Set objShell = CreateObject("WScript.Shell")
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1", "REG_DWORD"
msgbox "regedit telah di blokir"
else
msgbox "regedit belum di blokir"
End If

save as dengan ekstensi vbs (misal: disable regedit.vbs)

3. Enable disabel regedit vbs

scrip ini akan menunggu perintah dari user, ketika pilaihan yes, maka regedit akan di disable, dan ketika pilihan no maka regedit akan kembali di aktivekan, untuk script nya bisa di lihat di bawah ini

Dim vResult
Dim objShell
vResult = MsgBox("Pilih Yes Untu disable Regedit, pilih no untuk enable regedit", _
vbYesNo + vbQuestion + vbDefaultButton2 + vbApplicationModal, _
"Enable Disable Regedit VBS")
If vResult = vbyes Then
Set objShell = CreateObject("WScript.Shell")
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1", "REG_DWORD"
msgbox " regedit telah di blokir"
else
Set objShell = CreateObject("WScript.Shell")
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "0", "REG_DWORD"
msgbox " regedit telah di aktivekan"
End If

save as dengan ekstensi vbs ( misal : enable disable regedit.vbs)