[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