Mengembalikan fungsi Run "regedit" dengan VBScript

Nah, ini dia yang kebetulan sudah lama ane cari-cari. Simple dan g makan waktu lama menurut ane.
Kalo udah muncul pesan beginian, "registry editing has been disabled by your administrator", yakin dah kalo agan sekalian juga ngerasain hal sama kaya ane, MANGKEL, JENGKEL, TAKUT PC kita knpa"...


Santei aja gan...Bagi agan sekalian yang mungkin belum tau solusinya, neh ane kasih yang simple and udah teruji di Kompi ane sendiri.


Silakan CopyPaste text di bawah ke dalam Notepad, lalu agan Save dengan nama berikut ini : VBScript.vbs.
Ingat, dirubah extensi filenya menjadi vbs. Ketik manual aja (di Rename).
Nah, proses pertama selesai.

'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

Okeh., segitu aja. Tu script VBScript-nya bisa agan taruh di desktop, jadi bisa lebih gampang buat nyari. Tinggal double klik aja, bereeeess....

Semoga bermanfaat ya.., Ayo kita share ilmu nya!