Dim S, Ret
'on error resume next
Set S = WScript.CreateObject ("WSCript.shell")
'S.PopUp "OK"
'oShell.run "net stop mcafeeFramework",0,TRUE
'oShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Network Associates\ePolicy Orchestrator\Agent\"
'oShell.run "net start mcafeeFramework",0,TRUE

'S.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun",0,"REG_DWORD"
'S.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
S.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",0,"REG_DWORD"

'S.regwrite "HKEY_CLASSES_ROOT\*\Shell\Notepad\command\@","Notepad ""%1""","REG_SZ"
'S.regwrite "HKEY_CLASSES_ROOT\*\Shell\Notepad\@","Notepad","REG_SZ" & vbcrlf & vbcrlf & '"HKEY_CLASSES_ROOT\*\Shell\Notepad\command\@","Notepad","REG_SZ"

S.PopUp "OK"

Set S = Nothing