Created
July 15, 2009 04:32
-
-
Save dennyhalim/147449 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'Enable/Disable Registry Editing tools | |
'© Doug Knox - rev 12/06/99 | |
'http://www.dougknox.com/security/scripts_desc/regtools.htm | |
Option Explicit | |
'Declare variables | |
Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers | |
Dim enab, disab, jobfunc, itemtype | |
Set WSHShell = WScript.CreateObject("WScript.Shell") | |
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\" | |
p = p & "DisableRegistryTools" | |
itemtype = "REG_DWORD" | |
mustboot = "Log off and back on, or restart your pc to" & vbCR & "effect the changes" | |
enab = "ENABLED" | |
disab = "DISABLED" | |
jobfunc = "Registry Editing Tools are now " | |
'This section tries to read the registry key value. If not present an | |
'error is generated. Normal error return should be 0 if value is | |
'present | |
t = "Confirmation" | |
Err.Clear | |
On Error Resume Next | |
n = WSHShell.RegRead (p) | |
On Error Goto 0 | |
errnum = Err.Number | |
if errnum <> 0 then | |
'Create the registry key value for DisableRegistryTools with value 0 | |
WSHShell.RegWrite p, 0, itemtype | |
End If | |
'If the key is present, or was created, it is toggled | |
'Confirmations can be disabled by commenting out | |
'the two MyBox lines below | |
If n = 0 Then | |
n = 1 | |
WSHShell.RegWrite p, n, itemtype | |
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t) | |
ElseIf n = 1 then | |
n = 0 | |
WSHShell.RegWrite p, n, itemtype | |
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t) | |
End If |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment