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
| 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 |
Do you like this article? Share It!
0 comments to "Enable/Disable Registry Editing tools"
Total Pageviews
Post a Comment