Automate MTS installation components 1

[EdMacDonald]

<br>'**************************************************<br>' This script will install CPS COM components<br>' Be sure the Setup variables in this section<br>' are correct.<br>'<br>'<br>' Ed MacDonald<br>' <A HREF="mailto:EdMacDonald@yahoo.com">EdMacDonald@yahoo.com</A><br>'**************************************************<br><br>Option Explicit<br><br> ' Trailing slash is required on MTS_Package_Directory<br> Dim MTS_Package_Name , MTS_Package_Directory, MTS_Package_DLL <br> MTS_Package_Name = &quot;MyPackage&quot;<br> MTS_Package_Directory = &quot;C:\Program Files\mts\packages\&quot;<br> MTS_Package_DLL = &quot;MyPackage.dll&quot;<br> '&quot;<br><br>If MsgBox(&quot;This will Install the MTS package '&quot; & MTS_Package_Name & &quot;' overwriting the existing installation.&quot;, 1, &quot;Confirm Installation&quot = 1 Then<br> Call Install()<br>End If<br><br><br><br>Sub Install<br> <br>'**************************************************<br>' Declarations & Constants<br>'**************************************************<br><br> Dim CRLF <br> Dim objFS, currentPath, installPath<br> Dim mtsCatalog, mtsPackages, pkgUtil<br><br> CRLF = Chr(13) & Chr(10)<br><br> Set objFS = WScript.CreateObject(&quot;Scripting.FileSystemObject&quot<br> currentPath = objFS.GetAbsolutePathName(&quot;.&quot<br> installPath = MTS_Package_Directory & MTS_Package_Name<br><br> Set mtsCatalog = CreateObject(&quot;MTSAdmin.Catalog.1&quot<br> Set mtsPackages = mtsCatalog.GetCollection(&quot;Packages&quot<br> mtsPackages.populate<br> Set pkgUtil = mtsPackages.GetUtilInterface<br><br>'**************************************************<br>' Stop IIS<br>'**************************************************<br><br>' MsgBox(&quot;Stopping Web Server&quot<br> Dim oServer<br> Set oServer = getObject(&quot;IIS://LocalHost/W3svc/1&quot<br> oServer.Stop<br><br>'**************************************************<br>' Uninstall Existing Package<br>'**************************************************<br><br> 'MsgBox &quot;This will Uninstall the MTS package '&quot; & MTS_Package_Name & &quot;' if it exists.&quot;, 1, &quot;Confirm Uninstall&quot;<br><br> Dim numPackages, i<br> numPackages = mtsPackages.Count<br> For i = numPackages - 1 To 0 Step -1<br> If mtsPackages.Item(i).Value(&quot;Name&quot = MTS_Package_Name Then<br> pkgUtil.ShutdownPackage(mtsPackages.Item(i).Value(&quot;ID&quot)<br> mtsPackages.Remove (i)<br> End If<br> Next<br><br> ' Commit our deletions <br> mtsPackages.SaveChanges<br><br><br>'**************************************************<br>' Replace Files in Package Directory<br>'**************************************************<br><br> 'MsgBox &quot;Copy: &quot; & currentPath & &quot;\&quot; & MTS_Package_DLL & CRLF & &quot;&nbsp;&nbsp;&nbsp;&nbsp;To: &quot; & installPath & &quot;\&quot; & MTS_Package_DLL & &quot;?&quot;, 1, &quot;Confirm File Copy&quot;<br><br> If not objFS.FolderExists(installPath) Then<br> objFS.CreateFolder(installPath)<br> End If<br> objFS.CopyFile currentPath & &quot;\&quot; & MTS_Package_DLL, installPath & &quot;\&quot; & MTS_Package_DLL, True<br><br>'**************************************************<br>' Install New Package<br>'**************************************************<br><br> 'MsgBox &quot;This will Install MTS package '&quot; & MTS_Package_Name & &quot;'&quot;, 1, &quot;Confirm Install&quot;<br><br> ' Add a new package<br> Dim newPackage<br> Set newPackage = mtsPackages.Add<br> newPackage.Value(&quot;Name&quot = MTS_Package_Name<br> newPackage.Value(&quot;SecurityEnabled&quot = &quot;N&quot;<br> <br> ' Commit new package<br> mtsPackages.SaveChanges<br> <br> ' Refresh packages<br> mtsPackages.Populate<br> <br> ' Get components collection for new package<br> Dim mtsComponents<br> Set mtsComponents = mtsPackages.GetCollection(&quot;ComponentsInPackage&quot;, newPackage.Value(&quot;ID&quot)<br> mtsComponents.Populate<br> <br> ' Install components<br> Dim util, dllPath<br> Set util = mtsComponents.GetUtilInterface<br> <br> dllPath = installPath & &quot;\&quot; & MTS_Package_DLL<br> util.InstallComponent dllPath, &quot;&quot;, &quot;&quot;<br> <br> ' Refresh components<br> mtsComponents.Populate<br><br><br>'**************************************************<br>' Start IIS<br>'**************************************************<br>' MsgBox(&quot;Starting Web Server&quot<br>' Dim oServer<br>' Set oServer = getObject(&quot;IIS://LocalHost/W3svc/1&quot<br> oServer.Start<br><br><br>'**************************************************<br>' Done<br>'**************************************************<br> MsgBox(&quot;Done&quot<br><br>End Sub