Saturday, November 22, 2008

MenEnable RegEdit

Tau yang namanya virus kan??? virus komputer maksud q bukan virus HIV yang serem ataupun virus influenza yang bikin idung meler mulu... ni virus komputer! hari gini gak kenal virus komputer??!! kemana aja???

kalo si "flu" bikin idung kita mampet... kalo virus komputer sering x bikin RegEdit mampet..
gimana sih bikin RegEdit gk mampet??? ini ada script yg kebetulan dapet.. lumayan lah bisa di share.. semoga bermanfaat..
'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

itu script masukin ke notepad trus save as... dengan format .vbs
contoh: "isenk.vbs" tanpa petik["]
kalo uda di save
doble klik, ntr langsung proses enabling RegEdit..
lancar kembali deh RegEdit gk
mampet kembali..

Readmore »»

Akhirnya.....

setelah sekian lama menunda... akhirnya... my pal
si mas Lulllaby maksa-maksa benahin blog q bwt dy liad, jadi gk enak kl ngecewain..
yah aq bikin nih blog... biarpun koncept masi amburadul... yang penting ada..
hehehehe...

~JUST WELCOME~

Readmore »»