home *** CD-ROM | disk | FTP | other *** search
/ ftp.ac-grenoble.fr / 2015.02.ftp.ac-grenoble.fr.tar / ftp.ac-grenoble.fr / assistance.logicielle / XP_ServicePack-3.iso / support / tools / suptools.msi / Binary.UninstallCab < prev    next >
Text File  |  2008-04-14  |  464b  |  20 lines
  1. Function UninstallCab ()
  2. Const PRO_ID = "Windows XP Support Tools on Desktop"
  3. CONST SERVER_ID = "Windows Support Tools"
  4.  
  5. Dim PCHUpdate
  6. Dim Item
  7. Dim strProductId
  8.  
  9. Set PCHUpdate = CreateObject("HCU.PCHUpdate")
  10.  
  11. For Each Item in PCHUpdate.VersionList
  12.     If Item.ProductId = PRO_ID OR Item.ProductId = SERVER_ID Then
  13.         strProductId = Item.ProductId
  14.         Item.Uninstall
  15.     End If
  16. Next
  17. Set PCHUpdate = Nothing
  18. UninstallCab = 1
  19. End Function
  20.