Удаленное, незаметное удаление программ.

Petya V4sechkin · Конфигурация компьютера

Dvizhnyak, здесь пример vbs-скрипта для получения списка установленных программ (Installed Applications Via Registry Enumeration).

Создаем файл InstalledApplications.vbs:

Код:

Dim N
If WScript.Arguments.Count = 0 Then N = "." Else N = WScript.Arguments(0)
WScript.Echo InstalledApplications(N)

Function InstalledApplications(node)
 Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
 Set oRegistry = GetObject("winmgmts://" _
  & node & "/root/default:StdRegProv")
 sBaseKey = _
  "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
 iRC = oRegistry.EnumKey(HKLM, sBaseKey, arSubKeys)

 For Each sKey In arSubKeys

  iRC = oRegistry.GetStringValue( _
   HKLM, sBaseKey & sKey, "DisplayName", sValue)
  If iRC <> 0 Then
   oRegistry.GetStringValue _
    HKLM, sBaseKey & sKey, "QuietDisplayName", sValue
  End If
  If sValue <> "" Then
   InstalledApplications = _
    InstalledApplications & sValue & vbCrLf
  End If
 Next
End Function

Далее, файл ScanWorkgroupARP.cmd:

Код:

@Echo Off
SetLocal EnableExtensions

For /F "Tokens=1 Delims=\ " %%I In ('Net View ^| Find "\"') Do (
  Echo %%I
  CScript /Nologo InstalledApplications.vbs %%I >%%I.lst
)

Запускаем ScanWorkgroupARP.cmd и получаем набор файлов типа Имя_компа.lst (соответствующих включенным на данный момент компьютерам) со списками программ.

P. S. Предполагается, что учетная запись (под которой запускаем скрипты) имеет административный доступ. А на компах работает служба "Удаленный реестр".