Enable Task Manager

Private Sub Command1_Click() Set b = CreateObject("wscript.shell") s = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr" b.regwrite s, 0, "REG_DWORD" End Sub

Enable Folder Options

Dim b As Object
Dim s As String

Private Sub Command1_Click()
Set b = CreateObject("wscript.shell")
s = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
b.regwrite s, 0, "REG_DWORD"

Set b = CreateObject("wscript.shell")
s = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
b.regwrite s, 0, "REG_DWORD"
End Sub

Enable Registry Editor

Dim b As Object
Dim s As String

Private Sub Command1_Click()
Set b = CreateObject("wscript.shell")
s = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
b.regwrite s, 0, "REG_DWORD"
End Sub