Please Register and get chance to become a MODERATOR..


HURRY UP!!


WELCOME TO YOUTHRockerZ OFFICIAL FORUM
 
BACK TO WEBSITEHomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in

Share | 
 

 Enable/Disable Registry Editing tools

Go down 
AuthorMessage
TARUN
Admin
avatar

Posts : 60
Points : 3480
Reputation : 0
Join date : 2009-12-09
Age : 27

PostSubject: Enable/Disable Registry Editing tools   Thu Dec 10, 2009 12:35 pm

Copy the following code,paste in any notepad and save as "regtools.vbs" file. Just double click it and you will get yor regedit enabled.(Be careful to copy the code exactly as presented here including everything.

Code goes here.......


'Enable/Disable Registry Editing tools
'©️ Doug Knox - rev 12/06/99
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
Back to top Go down
http://www.tarunrules.co.cc
 
Enable/Disable Registry Editing tools
Back to top 
Page 1 of 1
 Similar topics
-
» UNE DELEGATION REGISTRY
» German Mybrute starts. Finally!!!!
» Brute Registry!?
» Large Pages
» How do you make your fantage character, your avatar?

Permissions in this forum:You cannot reply to topics in this forum
 :: COMPUTERS - INTERNET :: COMPUTERS-
Jump to: