home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / mts4.cab / WSH_InstPakCLI.vbs < prev    next >
Text File  |  1997-11-14  |  2KB  |  54 lines
  1. ' Filename: InstPakCLI.vbs
  2. '
  3. ' Description: Sample VB Script that installs the Sample Bank package from a .pak file
  4. '
  5. ' This file is provided as part of the Microsoft Transaction Server Samples
  6. ' See the MTS Software Development Kit for more information on Scriptable Administration Objects
  7. '
  8. ' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT 
  9. ' WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, 
  10. ' INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES 
  11. ' OF MERCHANTABILITY AND/OR FITNESS FOR A  PARTICULAR 
  12. ' PURPOSE.
  13. '
  14. ' Copyright (C) 1997 Microsoft Corporation, All rights reserved
  15. '
  16. ' Use: InstPakCLI.vbs "pak path"
  17. ' Ex:  InstPakCLI.vbs "C:\Program Files\MTX\Samples\Packages\"
  18.  
  19. ' Get arguments
  20. Dim objArgs
  21. Set objArgs = WScript.Arguments
  22.  
  23. ' Set up path names
  24. Dim path
  25. Dim pakPath
  26.  
  27. path = objArgs(0)
  28. pakPath = path & "Sample Bank.pak"
  29. packageName = "Sample Bank"
  30.  
  31. ' First, we create the catalog object
  32. Dim catalog
  33. Set catalog = CreateObject("MTSAdmin.Catalog.1")
  34.  
  35. ' Then we get the packages collection
  36. Dim packages
  37. Set packages = catalog.GetCollection("Packages")
  38. packages.populate
  39.  
  40. ' Remove all packages that go by the same name as the package we wish to install
  41. numPackages = packages.Count
  42. For i = numPackages - 1 To 0 Step -1
  43.     If packages.Item(i).Value("Name") = packageName Then
  44.         packages.Remove (i)
  45.     End If
  46. Next
  47.  
  48. ' Commit our deletions
  49. packages.SaveChanges
  50.  
  51. ' Add the new package from a .pak file
  52. Dim util
  53. Set util = packages.getUtilInterface
  54. util.InstallPackage pakPath, "", 0