Установка и удаление программ под АД - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Microsoft Windows NT/2000/2003 (http://forum.oszone.net/forumdisplay.php?f=5)

- - Установка и удаление программ под АД (http://forum.oszone.net/showthread.php?t=123376)

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

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

Цитата:

Цитата MickyMouse

но удалит ли он софт который был установлен локально »

нет.

Цитата:

Цитата MickyMouse

опять же через политику установить тот-же WinZIP и апосля уго удалить »

не знаю. я бы протестировал бы...

Цитата:

Цитата MickyMouse

Есть к примеру WinZIP, ставилась одна версия но не под АД а локально »

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

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

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

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

Код:

@ECHO OFF

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

PAUSE

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

MickyMouse, для WinRAR:

Код:

start "" /wait "%ProgramFiles%\WinRAR\uninstall.exe" /s

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

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

Пример:

Код:

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