Jeg fik tilsendt nedenstående kode, som skulle kunne fjerne den. Jeg tager ikke ansvar for scriptet !
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
eq=""
ctr=0
Set fso = CreateObject("Scripting.FileSystemObject")
on error resume next
Set dirwin = fso.GetSpecialFolder(0)
Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
Set c = fso.GetFile(WScript.ScriptFullName)
c.delete(dirsystem&"\MSKernel32.vbs")
c.delete(dirwin&"\Win32DLL.vbs")
c.delete(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
c.delete(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT")
c.delete(dirsystem&"\LOVE-LETTER-FOR-YOU.HTM")
c.delete(dirtemp&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
c.delete(dirtemp&"\LOVE-LETTER-FOR-YOU.TXT")
regruns()
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 folderlist(folderspec)
On Error Resume Next
dim f,f1,sf
set f = fso.GetFolder(folderspec)
set sf = f.SubFolders
for each f1 in sf
infectfiles(f1.path)
folderlist(f1.path)
next
end sub
sub regcreate(regkey,regvalue)
Set regedit = CreateObject("WScript.Shell")
regedit.RegWrite regkey,regvalue
end sub
function regget(value)
Set regedit = CreateObject("WScript.Shell")
regget=regedit.RegRead(value)
end function
function fileexist(filespec)
On Error Resume Next
dim msg
if (fso.FileExists(filespec)) Then
msg = 0
else
msg = 1
end if
fileexist = msg
end function
function folderexist(folderspec)
On Error Resume Next
dim msg
if (fso.GetFolderExists(folderspec)) then
msg = 0
else
msg = 1
end if
fileexist = msg
end function