|
|
1、写bat文件；2、执行bat文件；3、读取数据文件
<%@ page language="java" contentType="text/html; charset=GB18030"
pageEncoding="GB18030"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB18030">
<title>页面一</title>
</head>
<body>
<div id='desc'></div>
<FORM method="POST" action='../IndexServlet' name='abc' enctype="multipart/form-data" >
<div style='display:none'><textarea id='file' name='file'></textarea></div>
<input type='button' value='获取数据' onclick='getData(this)'/>
<input id='submit' type='submit' value='提交数据' disabled="disabled"/>
</FORM>
<script>
var baseUrl="D:";
var batFileUrl = baseUrl+"\\myftp.bat";
var dataFileUrl = baseUrl+"\\test.txt";
var fso=null;
function getData(obj){
obj.disabled="disabled";
try{
if(window.ActiveXObject){
fso=new ActiveXObject("Scripting.FileSystemObject");
batFile = fso.CreateTextFile(batFileUrl,true);
batFile.WriteLine(baseUrl);
batFile.WriteLine("echo open 10.192.36.129>ftp.txt");
batFile.WriteLine("echo sxrisk>>ftp.txt");
batFile.WriteLine("echo 1qaz2wsx>>ftp.txt");
batFile.WriteLine("echo get /cccc/sxrisk/test.txt>>ftp.txt");
batFile.WriteLine("echo bye>>ftp.txt");
batFile.WriteLine("ftp -s:ftp.txt");
batFile.WriteLine("del ftp.txt");
batFile.Close();
document.getElementById('desc').innerHTML="创建本地bat文件成功";
WshShell = new ActiveXObject("WScript.Shell");
WshShell.Run("cmd /C call "+batFileUrl,2,false);//2:不显示cmd窗口
document.getElementById('desc').innerHTML+="<br/>执行bat文件,下载文件结束。";
//fso.DeleteFile(batFileUrl);
setTimeout("readData()",100);
}else{
alert("不支持window.ActiveXObject");
}
}catch(e){
alert(e);
}
obj.disabled="";
}
var count=0;
function readData(){
var kk=null;
try{
kk=fso.OpenTextFile(dataFileUrl);
}catch(e){
if(count<10){
setTimeout("readData()",1000);
document.getElementById('desc').innerHTML+="<br/>读取数据文件失败,1秒后继续";
count++;
}
return;
}
var str='';
while(!kk.atEndOfLine){
str+=kk.readLine()+' ';
}
kk.Close();
fso.DeleteFile(dataFileUrl);
document.getElementById('file').innerHTML=str;
document.getElementById('desc').innerHTML+="<br/>读取数据文件成功";
document.getElementById('submit').disabled='';
}
</script>
</body>
</html>
--结果
----ActiveXObject对象有很大几率创建不了，需要做的：
1、降低Internet 选项--安全--自定义级别，经测试IE8版本浏览器只要降低这一项即可，其他默认。
2、网上有说，cmd中执行命令"regsvr32 scrrun.dll"，可以处理"automation服务器不能创建对象"的问题。
3、在注册表中，给Scripting.FileSystemObject项添加权限的事情我也做了，右击"Scripting.FileSystemObject项",添加权限，
4、创建cmd文件，执行修复什么东西的脚本，不知道管不管用，我也试过。(来自:http://www.iyunv.net/article/9772.htm)
5、请将以下语句复制到记事本中，另存为后缀为.cmd的文件，并运行。当然在命令行下一句句运行也没问题。
echo 正在修复，这个过程可能需要几分钟，请稍候……
rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%/System32/dacui.dll
rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%/Catroot/icatalog.mdb
regsvr32 /s comcat.dll
regsvr32 /s asctrls.ocx
regsvr32 /s oleaut32.dll
regsvr32 /s shdocvw.dll /I
regsvr32 /s shdocvw.dll
regsvr32 /s browseui.dll
regsvr32 /s browseui.dll /I
regsvr32 /s msrating.dll
regsvr32 /s mlang.dll
regsvr32 /s hlink.dll
regsvr32 /s mshtml.dll
regsvr32 /s mshtmled.dll
regsvr32 /s urlmon.dll
regsvr32 /s plugin.ocx
regsvr32 /s sendmail.dll
regsvr32 /s mshtml.dll /i
regsvr32 /s scrobj.dll
regsvr32 /s corpol.dll
regsvr32 /s jscript.dll
regsvr32 /s msxml.dll
regsvr32 /s imgutil.dll
regsvr32 /s cryptext.dll
regsvr32 /s inseng.dll
regsvr32 /s iesetup.dll /i
regsvr32 /s cryptdlg.dll
regsvr32 /s actxprxy.dll
regsvr32 /s dispex.dll
regsvr32 /s occache.dll
regsvr32 /s iepeers.dll
regsvr32 /s urlmon.dll /i
regsvr32 /s cdfview.dll
regsvr32 /s webcheck.dll
regsvr32 /s mobsync.dll
regsvr32 /s pngfilt.dll
regsvr32 /s licmgr10.dll
regsvr32 /s hhctrl.ocx
regsvr32 /s inetcfg.dll
regsvr32 /s trialoc.dll
regsvr32 /s tdc.ocx
regsvr32 /s MSR2C.DLL
regsvr32 /s msident.dll
regsvr32 /s msieftp.dll
regsvr32 /s xmsconf.ocx
regsvr32 /s ils.dll
regsvr32 /s msoeacct.dll
regsvr32 /s wab32.dll
regsvr32 /s wabimp.dll
regsvr32 /s wabfind.dll
regsvr32 /s oemiglib.dll
regsvr32 /s directdb.dll
regsvr32 /s inetcomm.dll
regsvr32 /s msoe.dll
regsvr32 /s oeimport.dll
regsvr32 /s msdxm.ocx
regsvr32 /s dxmasf.dll
regsvr32 /s laprxy.dll
regsvr32 /s l3codecx.ax
regsvr32 /s acelpdec.ax
regsvr32 /s mpg4ds32.ax
regsvr32 /s danim.dll
regsvr32 /s Daxctle.ocx
regsvr32 /s lmrt.dll
regsvr32 /s datime.dll
regsvr32 /s dxtrans.dll
regsvr32 /s dxtmsft.dll
regsvr32 /s wshom.ocx
regsvr32 /s wshext.dll
regsvr32 /s vbscript.dll
regsvr32 /s scrrun.dll mstinit.exe /setup
regsvr32 /s msnsspc.dll /SspcCreateSspiReg
regsvr32 /s msapsspc.dll /SspcCreateSspiReg
echo.
echo.
echo 修复成功！任意键退出！
pause>nul |
|
|
QQ群⑧：
窥视卡
雷达卡
发表于 2016-6-10 13:33:19
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡