Вопрос : Помощь сценария vbs

Я имею окружающую среду SMS и я ищу некоторая помощь для того чтобы извлечь старые пакеты от компьютеров.

I хотел было бы VBScript ищет эти средства программирования на потребителях registy и извлечь одни оно находит.

I am
AND
3) MsiExec.exe /X
AND
2) MsiExec.exe /X

1) MsiExec.exe /X {5783F2D7-5001-0409-0002-0060B0CE6BBA} /QN /NORESTART {5783F2D7-0301-0409-0002-0060B0CE6BBA} /QN /NORESTART {BA3B0FA5-1EAD-476B-8E8D-6569CBC3E154} /QN /NORESTART идя проверить если будут больше применений, то мне нужно извлечь но для теперь этих сделает.

Regards, class=

Ответ : Помощь сценария vbs

Hi, оно реально worth искать пакеты сперва?  Если вы как раз пытаете побежать деинсталлировать? Оно только потерпел бы неудачу если пакет не существовал.

Отношения,

Rob.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:

arrCommands = блок (_ «MsiExec.exe /X {5783F2D7-5001-0409-0002-0060B0CE6BBA} /QN /NORESTART», _ «MsiExec.exe /X {5783F2D7-0301-0409-0002-0060B0CE6BBA} /QN /NORESTART», _ «{BA3B0FA5-1EAD-476B-8E8D-6569CBC3E154} _ /QN /X MsiExec.exe /NORESTART» ) Установите objShell = CreateObject («WScript.Shell») strResult = «средство программирования деинсталлировало: » & VbCrLf & шнур (21, «=") Для каждого strCommand в arrCommands intReturn = objShell.Run (strCommand, 0, поистине) Если intReturn = 0 после этого strResult = strResult & VbCrLf & «УСПЕХ: » & strCommand Еще strResult = strResult & VbCrLf & «ОТКАЗ: » & strCommand Закончитесь если Затем strResult MsgBox