home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / CPPComp.bas < prev    next >
BASIC Source File  |  1997-11-01  |  681b  |  21 lines
  1. Attribute VB_Name = "CPPComp"
  2. Public Sub InstallCOMComponents(strPath As String)
  3.     On Error Resume Next
  4.     Dim varRetVal
  5.      
  6.     ' Append a '\' to the path if it's missing
  7.     If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
  8.     varRetVal = Shell("regsvr32 /s " & strPath & "PermChk.dll", vbMinimizedNoFocus)
  9.     varRetVal = Shell("regsvr32 /s " & strPath & "ProdInfo.dll", vbMinimizedNoFocus)
  10.     
  11. End Sub
  12.  
  13. Public Sub UninstallCOMComponents()
  14.     On Error Resume Next
  15.     Dim varRetVal
  16.      
  17.     varRetVal = Shell("regsvr32 /u /s PermChk.dll", vbMinimizedNoFocus)
  18.     varRetVal = Shell("regsvr32 /u /s ProdInfo.dll", vbMinimizedNoFocus)
  19.  
  20. End Sub
  21.