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 >
Wrap
Text File
|
2008-04-14
|
464b
|
20 lines
Function UninstallCab ()
Const PRO_ID = "Windows XP Support Tools on Desktop"
CONST SERVER_ID = "Windows Support Tools"
Dim PCHUpdate
Dim Item
Dim strProductId
Set PCHUpdate = CreateObject("HCU.PCHUpdate")
For Each Item in PCHUpdate.VersionList
If Item.ProductId = PRO_ID OR Item.ProductId = SERVER_ID Then
strProductId = Item.ProductId
Item.Uninstall
End If
Next
Set PCHUpdate = Nothing
UninstallCab = 1
End Function