时间: 2021-07-31 作者:daque
clientregdll.html本 程 式 方 法 介 绍 利 用 客 户 端 注 册 dll 文 件。 下 一 回讲 解客 户 端 如 何 获 得 dll 文 件。<html><head id="head1"><meta content="text/html charset=utf8" http-equiv="content-type"><title id="title">client use asp to register the exist dll file</title></head><body bgcolor="skyblue" topmargin=0 leftmargin="0" rightmargin="0" bottommargin="0"><div align="center"><table><tr><td>client use asp to register the exist dll file</td></tr></div> <input type="button" value="register dll" name="reg_dll" language="vbscript" onclick="fun_reg()"> </body></html><script language="vbscript">' we had produce the webreport.dll file and place in the client'win <98\windows\system\webreport.dll'win 98 \windows\system32\webreport.dll'win nt40 \winnt\system\webreport.dll'win 2000 \winnt\system32\webreport.dllsub fun_reg() dim wshshell,fsoset wshshell = createobject("wscript.shell")set fso = createobject("scripting.filesystemobject")if fso.fileexists("\windows\system\webreport.dll") then wshshell.run "regsvr32 /s \windows\system\webreport.dll" , 1, true msgbox "register \windows\system\webreport.dll file sucess!" elseif fso.fileexists("\windows\system32\webreport.dll") then wshshell.run "regsvr32 /s \windows\system32\webreport.dll" , 1, true msgbox "register \windows\system32\webreport.dll file sucess!" elseif fso.fileexists("\winnt\system\webreport.dll") then wshshell.run "regsvr32 /s \winnt\system\webreport.dll" , 1, true msgbox "register \winnt\system\webreport.dll file sucess!" elseif fso.fileexists("d:\winnt\system32\webreport.dll") then wshshell.run "regsvr32 /s d:\winnt\system32\webreport.dll" , 1, true msgbox "register d:\winnt\system32\webreport.dll file sucess!" else msgbox "not found the register dll file!" end ifset fso=nothingset wshshell=nothingend sub </script>