home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / install.bas < prev    next >
BASIC Source File  |  1997-11-01  |  1KB  |  36 lines
  1. Attribute VB_Name = "Startup"
  2. Option Explicit
  3.  
  4. ' Useage is ExAirInstall path or ExAirInstall /u
  5. ' The former is to install packages and path is the full path to the packages
  6. ' The latter is to uninstall the packages
  7. Sub Main()
  8.     If Command$ = "/u" Or Command$ = "/U" Then
  9.         UninstallAllPackages
  10.         UninstallJavaComponents
  11.         UninstallCOMComponents
  12.     ElseIf Command$ = "" Then
  13.         MsgBox "Install directory name not provided. Please provide the full path to the .PAK files.", vbExclamation + vbOKOnly, "ExAir Install Problem"
  14.     Else
  15.         ' Get the path to ExAir from the passed in command line
  16.         ' By default command$ is c:\inetpub\iissamples\exair\bin
  17.         ' This section prunes off the last part of the path
  18.         Dim strFullPathToBin As String
  19.         Dim strPath As String
  20.         Dim i As Integer
  21.         
  22.         strFullPathToBin = Command$
  23.         i = Len(strFullPathToBin)
  24.         Do
  25.             i = i - 1
  26.         Loop Until Mid(strFullPathToBin, i, 1) = "\"
  27.         strPath = Left(strFullPathToBin, i)
  28.         
  29.         If IISSettings(strPath) Then
  30.             InstallJavaComponents
  31.             InstallCOMComponents Command$
  32.             InstallAllPackages Command$
  33.         End If
  34.     End If
  35. End Sub
  36.