在客户端注册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>

一	二	三	四	五	六	日
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30	31

发表回复 取消回复

相关文章

发表回复取消回复