有没有远程为服务器注册控件的方法？？？在线等。。。

[ht1980]

rt

[xxrl]

<%
Dim strPageName
strPageName = "Reg.asp"
If Request.Form("SUBMIT") = "" Then
Response.write "<CENTER><FORM ACTION=""" & strPageName & """ METHOD=POST>"
Response.write "<INPUT TYPE=TEXT NAME=FILEPATH SIZE=120>Full Path/Filename "
Response.write "to DLL to be registered/un registerd<BR>"
Response.write "<INPUT TYPE=CHECKBOX NAME=ACTIONTYPE CHECKED>Check to "
Response.write "Register; Uncheck to Unregister<BR>"
Response.write "<INPUT TYPE=SUBMIT NAME=SUBMIT VALUE=SUBMIT></CENTER>"
Response.write "</FORM>"
Else
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
strPath = objFileSystem.GetSpecialFolder(1) & "\REGSVR32.EXE /s "
Set objWshShell = CreateObject("WScript.Shell")
strRun = "CMD /C " & strPath & " /u "
If Request.Form("ACTIONTYPE")="on" Then strRun = "CMD /C " & strPath
strReturn = objWshShell.Run(strRun & Request.Form("FILEPATH"), 1, True)
Set objFileSystem = Nothing
Set objWshShell = Nothing
End If
%>