您的位置：首页 > 编程语言 > ASP

利用ASP在客户端注册DLL文件

2014-04-25 09:58 281 查看

ClientRegDLL.html
本程式方法介绍利用客户端注册 DLL 文件。

下一回讲解客户端如何获得 DLL 文件。

<html>

<head id="head1">

<meta content="text/html charset=gb2312" 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></table>

</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.dll

sub fun_reg()

Dim WshShell,fso

Set 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 if

set fso=nothing

set WshShell=nothing
end sub

</script>

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航

利用ASP在客户端注册DLL文 件

利用ASP在客户端注册DLL文件