'Remove Swen virus info from registry and reactivate
On Error Resume Next
'Prevents errors from values that don't exist
Set WshShell = WScript.CreateObject("WScript.Shell")

'Delete DisableRegistryTools registry values
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"

' Fix Registry Keys
test = chr(34)+chr(37)+"1"+chr(34)+" "+chr(37)+"*"
regtest="regedit.exe "+chr(34)+chr(37)+"1"+chr(34)
WshShell.RegWrite "HKLM\Software\CLASSES\exefile\shell\open\command\",test,"REG_SZ"
WshShell.RegWrite "HKLM\Software\CLASSES\batfile\shell\open\command\",test,"REG_SZ"
WshShell.RegWrite "HKLM\Software\CLASSES\comfile\shell\open\command\",test,"REG_SZ"
WshShell.RegWrite "HKLM\Software\CLASSES\regfile\shell\open\command\",regtest,"REG_SZ"
WshShell.RegWrite "HKLM\Software\CLASSES\scrfile\shell\open\command\",test,"REG_SZ"

'display message
Message = "You should have access to Regedit now and the Registry is fixed"

X = MsgBox(Message, vbOKOnly, "Done")
Set WshShell = Nothing
Set fso = Nothing