VBScript для удаления приложения Windows 7 - PullRequest
Новая
       21

VBScript для удаления приложения Windows 7

1 голос
/ 21 июля 2011

Я пытаюсь написать скрипт, который будет удалять программу при запуске. Проблема в том, что программа не будет иметь одно и то же имя каждый раз, так как к ней будет прикреплен номер версии Можно ли как-нибудь взять имя программы из списка, если оно содержит то, что я ищу? Затем используйте это имя для завершения удаления?

Единственная найденная функция удаления: 

strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

Set colSoftware = objWMIService.ExecQuery _ 
    ("Select * from Win32_Product Where Name = 'Personnel database'") 

For Each objSoftware in colSoftware 
    objSoftware.Uninstall() 
Next

1 Ответ

1 голос
/ 21 июля 2011

Вы можете использовать оператор LIKE вместо = в своем запросе для проверки названия продукта по шаблону, например: 

Set colSoftware = objWMIService.ExecQuery _ 
    ("Select * from Win32_Product Where Name LIKE '%Personnel database%'")
...