home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_07.cab / CPPComp.bas < prev    next >
Encoding:
BASIC Source File  |  1998-04-27  |  681 b   |  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.