Set shell = CreateObject("Wscript.shell")
X=Inputbox("Enter choice, 1 to disable, 0 to enable")
If X=1 Then
Shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"
Else
Shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 0, "REG_DWORD"
End If

• 24/03/2010 23:39 - Scripting Concepts and Terminology
• 13/01/2010 00:39 - History of VBScript
• 12/01/2010 05:17 - Scripting Guide For Windows

• 14/04/2011 05:41 - VB Script to delete older file from a Folder

• 24/08/2010 03:48 - VB Script for Service Pack Information
• 18/08/2010 06:00 - VB Script on hard disk information
• 15/08/2010 13:19 - VB Script for PC System Summary information
• 15/08/2010 12:48 - VB Script for System Information