mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
445 B
19 lines
445 B
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
|