27 lines
549 B
Plaintext
27 lines
549 B
Plaintext
|
Function UninstallCab()
|
||
|
|
|
||
|
|
on error resume next
|
||
|
|
|
||
|
|
Const PRO_ID = "Windows Support Tools on Desktop"
|
||
|
|
CONST SERVER_ID = "Windows Support Tools"
|
||
|
|
|
||
|
|
Dim PCHUpdate
|
||
|
|
Dim Item
|
||
|
|
Dim strProductId
|
||
|
|
|
||
|
|
Set PCHUpdate = CreateObject("HCU.PCHUpdate")
|
||
|
|
if not PCHUpdate is nothing then
|
||
|
|
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
|
||
|
|
end if
|
||
|
|
|
||
|
|
UninstallCab = 1
|
||
|
|
|
||
|
|
End Function
|