home *** CD-ROM | disk | FTP | other *** search
- Attribute VB_Name = "Startup"
- Option Explicit
-
- ' Useage is ExAirInstall path or ExAirInstall /u
- ' The former is to install packages and path is the full path to the packages
- ' The latter is to uninstall the packages
- Sub Main()
- If Command$ = "/u" Or Command$ = "/U" Then
- UninstallAllPackages
- UninstallJavaComponents
- UninstallCOMComponents
- ElseIf Command$ = "" Then
- MsgBox "Install directory name not provided. Please provide the full path to the .PAK files.", vbExclamation + vbOKOnly, "ExAir Install Problem"
- Else
- ' Get the path to ExAir from the passed in command line
- ' By default command$ is c:\inetpub\iissamples\exair\bin
- ' This section prunes off the last part of the path
- Dim strFullPathToBin As String
- Dim strPath As String
- Dim i As Integer
-
- strFullPathToBin = Command$
- i = Len(strFullPathToBin)
- Do
- i = i - 1
- Loop Until Mid(strFullPathToBin, i, 1) = "\"
- strPath = Left(strFullPathToBin, i)
-
- If IISSettings(strPath) Then
- InstallJavaComponents
- InstallCOMComponents Command$
- InstallAllPackages Command$
- End If
- End If
- End Sub
-