ASP远程注册自己的组件

DSET>
  </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("regs