rem *** I love You virus cleaner (fast edit no guarantee) ** rem *** Copyright TEQ-nederland www.teq.nl (fvs) dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow on error resume next Set fso = CreateObject("Scripting.FileSystemObject") Set dirwin = fso.GetSpecialFolder(0) Set dirsystem = fso.GetSpecialFolder(1) Set dirtemp = fso.GetSpecialFolder(2) Set c = fso.GetFile(WScript.ScriptFullName) deleteafile(dirsystem&"\MSKernel32.vbs") deleteafile(dirwin&"\Win32DLL.vbs") deleteafile(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") deleteafile(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT") deleteafile(dirsystem&"\LOVE-LETTER-FOR-YOU.HTM") deleteafile(dirtemp&"\LOVE-LETTER-FOR-YOU.TXT.vbs") deleteafile(dirtemp&"\LOVE-LETTER-FOR-YOU.TXT") Dim num,downread regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MSKernel32","" regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Win32DLL","" regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WIN_BUGSFIX","" regcreate "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page","about:blank" Sub DeleteAFile(filespec) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(filespec) End Sub sub regcreate(regkey,regvalue) Set regedit = CreateObject("WScript.Shell") regedit.RegWrite regkey,regvalue end sub