LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

利用ASP远程注册DLL的方法

admin
2010年7月5日 0:7 本文热度 5715

老外真是聪明,这个方法也想得到,有兴趣的不妨试试,但是如果对方的服务器安全搞的很好的话,这个代码也许就不能用了,但不管怎么样,学习一下也是好的,:)



<% response.buffer = true %>
<% server.scripttimeout = 500
dim frmfolderpath, frmfilepath


frmfolderpath = request.form("frmfolderpath")
frmfilepath = request.form("frmdllpath")
frmmethod = request.form("frmmethod")
btnreg = request.form("btnreg")
%>




regsvr32.asp










regsvr functions
insert path to dll directory





<%
if request.form("btnfilelist") <> "" or btnreg <> "" then
set registerfiles = new clsregister
registerfiles.echob("select file")
call registerfiles.init(frmfolderpath)
registerfiles.echob("
")
if request.form("btnreg") <> "" then
call registerfiles.register(frmfilepath, frmmethod)
end if
set registerfiles = nothing
end if
%>





<%
class clsregister


private m_ofs


public property let ofs(objofs)
m_ofs = objofs
end property


public property get ofs()
set ofs = server.createobject("scripting.filesystemobject")
end property



sub init(strroot) 'root to search (c:, d:, e:)
dim odrive, orootdir
if ofs.folderexists(strroot) then
if len(strroot) < 3 then 'must be a drive
set odrive = ofs.getdrive(strroot)
set orootdir = odrive.rootfolder
else
set orootdir = ofs.getfolder(strroot)
end if
else
echob("folder ( " & strroot & " ) not found.")
exit sub
end if
setroot = orootdir


echo("")
buildoptions
end sub


sub getalldlls(oparentfolder)
dim osubfolders, ofile, ofiles
set osubfolders = oparentfolder.subfolders
set opfiles = oparentfolder.files


for each ofile in opfiles
if right(lcase(ofile.name), 4) = ".dll" or right(lcase(ofile.name), 4) = ".ocx" then
echo("")
end if
next


on error resume next
for each ofolder in osubfolders 'iterate all folders in drive
set ofiles = ofolder.files
for each ofile in ofiles
if right(lcase(ofile.name), 4) = ".dll" or right(lcase(ofile.name), 4) = ".ocx" then
echo("")
end if
next
call getalldlls(ofolder)
next
on error goto 0
end sub


sub register(strfilepath, regmethod)
dim thefile, strfile, oshell, exitcode
set thefile = ofs.getfile(strfilepath)
strfile = thefile.path


set oshell = createobject ("wscript.shell")


if regmethod = "reg" then 'register
oshell.run "c:winntsystem32 egsvr32.exe /s " & strfile, 0, false
exitcode = oshell.run("c:winntsystem32 egsvr32.exe /s " & strfile, 0, false)
echob("regsvr32.exe exitcode = " & exitcode)
else 'unregister
oshell.run "c:winntsystem32 egsvr32.exe /u/s " & strfile, 0, false
exitcode = oshell.run("c:winntsystem32 egsvr32.exe /u/s " & strfile, 0, false)
echob("regsvr32.exe exitcode = " & exitcode)
end if


cleanup oshell
end sub


sub buildoptions
echob("register: ")
echob("unregister: ")
end sub


function echo(str)
echo = response.write(str & vbcrlf)
end function


function echob(str)
echob = response.write(str & "
" & vbcrlf)
end function


sub cleanup(obj)
if isobject(obj) then
set obj = nothing
end if
end sub


sub class_terminate()
cleanup ofs
end sub
end class
%>


该文章在 2010/7/5 0:07:33 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved