virus and registry problem

[Usman Khalid]

A.A
dear friends
due w32 virus my ther some problem i alos install nortron anirvirus
problems:
when we write regedit in run then message display me your registry disable from the adminstarotr and after this message windows is shutting dow.
dear plz help i have face many time of this problems.
and

[Abdul Moeed]

Usman bahi where U R trying to open registry ?? In campus or at home???

If u want to do it in campus then i am affraid U cant do so .. as We the students are not allowed .
Hope U understand ...

[Usman Khalid]

no in my home

[Exe.Troy]

Dear,
may koch scrip day raha hon..app ye sub Copy karky..Notepad may paste karo..or phir..Save AS .VBS kar do..Example. Regtool.vbs or phir Double click karky Run kar do..app kay system pr Registry Editor Enable hojay ga..Shukriya

'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\Po licies\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