Установка и удаление программ под АД

[MickyMouse]

Привет сообществу вот озадачился решением одного вопросика.
Задача: Вопрос решение лицензионности установленого программного обеспечения на системах находящихся под управлением АД.
1) Есть к примеру WinZIP, ставилась одна версия но не под АД а локально, как мне используя политики удалить со всех компов находящихся под АД? (замена в лице 7-Zip уже стоит через политику.), один из вариантов вижу опять же через политику установить тот-же WinZIP и апосля уго удалить но удалит ли он софт который был установлен локально, а не через АД? или ка можно решить данный вопрос. Спс.

[exo]

но удалит ли он софт который был установлен локально »
нет.
опять же через политику установить тот-же WinZIP и апосля уго удалить »
не знаю. я бы протестировал бы...

[monkkey]

Есть к примеру WinZIP, ставилась одна версия но не под АД а локально »
Если есть .msi файл - без проблем, всё равно как эта программа устанавливалась. Либо писать .cmd с чисткой реестра и Program Files

[MickyMouse]

To monkkey, exo да получилось, после установки и последующим удалением всё удалилось кроме путей и ссылок в Меню. какими средствами и как это всё можно подчистить или как задать, что-бы функция сработала тогда когда удаляется софтвар?

Вопщем к вечеру проблему решил частично

в смдешке прописал следующие:

[MickyMouse]

@ECHO OFF
RMDIR "%systemdrive%\Documents and Settings\All Users\Start Menu\Programs\WinRAR" /s /q
PAUSE


Он срабатывает и удаляет все вложеные ссылки но в меню саму ссылку на программу WinRAR, что-бы ему дописать что бы он удалил саму ссылку (выделено)?

[Petya V4sechkin]

MickyMouse, для WinRAR:
start "" /wait "%ProgramFiles%\WinRAR\uninstall.exe" /s

[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


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

[DmitriiV]

Пример:

strFile = "X:\Path\File.txt"
strComputer = "."
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FileExists(strFile) Then
Set objFile = objFS.OpenTextFile(strFile, 1)
strTemp = objFile.ReadAll
objFile.Close
arrTemp = Split(strTemp, vbNewLine)
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
For i = 0 To UBound(arrTemp)
If Len(arrTemp(i)) > 0 Then
Set colSoftware = objWMIService.ExecQuery("Select * from Win32_Product Where Name='" & arrTemp(i) & "'")
For Each objSoftware In colSoftware
objSoftware.Uninstall
Next
End If
Next
End If