У меня была эта проблема, но в течение нескольких дней я ударился головой. Следующие шаги решили мою проблему.
Mabybe это является хорошей начальной точкой для Вас пример Сценарий VB из MSDN:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & _
strComputer & _
"\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("SELECT * FROM Win32_Product")
If colSoftware.Count > 0 Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile( _
"c:\SoftwareList.txt", True)
For Each objSoftware in colSoftware
objTextFile.WriteLine objSoftware.Caption & vbtab & _
objSoftware.Version
Next
objTextFile.Close
Else
WScript.Echo "Cannot retrieve software from this computer."
End If
Я не уверен, является ли это тем, в чем Вы нуждаетесь, но можно запросить список удаления из командной строки с:
REG QUERY HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall