home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / JavaComp.bas < prev    next >
Encoding:
BASIC Source File  |  1997-11-01  |  727 b   |  24 lines
  1. Attribute VB_Name = "JavaComp"
  2. Option Explicit
  3.  
  4. ' Installs the Java components into COM by calling JavaReg.exe
  5. Public Sub InstallJavaComponents()
  6.     On Error Resume Next
  7.     Dim varRetVal, strCommand As String
  8.     
  9.     strCommand = "JavaReg /q /register /class:HiddenWords /progid:Hidden.Words /clsid:{44AB1D71-3B92-11d1-A97A-0080C7E28895}"
  10.     varRetVal = Shell(strCommand, vbMinimizedNoFocus)
  11.  
  12. End Sub
  13.  
  14. ' Un-Installs the Java components into COM by calling JavaReg.exe
  15. Public Sub UninstallJavaComponents()
  16.     On Error Resume Next
  17.     Dim varRetVal, strCommand As String
  18.     
  19.     strCommand = "JavaReg /q /unregister /class:HiddenWords"
  20.     varRetVal = Shell(strCommand, vbMinimizedNoFocus)
  21.  
  22. End Sub
  23.  
  24.