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
|