Blog Designed by Pediredla Kishore Kumar Indian Entertainer: Enable/Disable Registry Editing tools

Slideshow

  • Cute Kajal Agarwal

    Telugu Movie WP

  • The hottest lips are seeing red

    Actress WP

  • 17 Cheating Pictures Collection

    Adults Only

  • 10 Unique Houses From Around the World

    Scenery Wallpapers

  • Small Birds have big Love

    Birds WallPapers

  • Cute Kiss

    Love Wallpapers

  • Black Taj Mahal

    Truth About Blak Taj Mahaal

  • India Festival Art painting

    Oil Pinting Wp

  • beautiful sceneries wallpapers

    Scenery WP

  • Cat And Bird Cute Friendship

    Birds WP

  • ed ed 6 Most Popular Ways Of Couple Hugging

    Adults WP

  • Indian Village Paintings

    Oil Pinting Wp

  • Awsome moments on well & girls

    Oil Painting Wp

  • hansika visits simbu birthday party

    Actress WP


Enable/Disable Registry Editing tools

Enable/Disable Registry Editing tools
              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

Tuesday, December 28, 2010 // Labels: // 0 comments //

0 comments to "Enable/Disable Registry Editing tools"

Post a Comment

Total Pageviews

Clock

Popular Posts

My site Traffic

Web hosting for webmasters