Если речь идёт о VBS, я себе когда-то писал вот такое (за основу пример уже не помню откуда брал):

Function UnInstallProg(ProductName, Dialog)
Dim colSoftware,objSoftware,objWMIService
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
UnInstallProg = False
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product Where Name = '" & ProductName & "'")
For Each objSoftware In colSoftware
If Dialog Then
If MsgBox("Обнаружен программный продукт " & Chr(13) & Chr(10) & _
Chr(34) & ProductName & Chr(34) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"Деинсталлировать?", vbExclamation Or vbYesNo, ProductName) = vbYes Then
objSoftware.Uninstall
End If
Else
objSoftware.Uninstall
End If
UnInstallProg = True
Next
End Function

Обработай слегка напильником (выкини лишнее и пр.), и будет тебе счастье... Одно плохо - деинсталляция иногда идёт долго, а всё это "молча". Пользователи ждут и не поймут, что происходит. Как пририсовать ProgressBar какой-нибудь этими средствами - не знаю.