[endigro]

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

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

For Each objSoftware in colSoftware
objSoftware.Uninstall()
Next


ДОбрый день,
есть такой скрипт он удаляет программы грамотно и без сообщений (как и надо)
каким образом заставить его работать, чтобы он название удаляемой программы брал из тестового файла и запусклся столько раз сколько строк в тестовом файле?
Заранее спасибо!