[qpa3ep]

Нужно ограничить количество одновременно запускаемых программ для пользователей терминального доступа на w2k3.
Подскажите как это можно сделать?

[foss]

В групповых политиках:
User Configuration\Administrative Templates\Windows Components\Windows Explorer---> Maximum number of recent documents

Maximum number of recent documents Enabled
Maximum number of recent documents 15
(15 -кол-во приложений)

[Blast]

http://www.oszone.net/3644/#18

[ShaddyR]

проверил я предложенные варианты... вопрос не решен. Озвучу промежуточные результаты:
1) указанное foss: не то. Кто дружит с английским, поймет описание предложенного параметра:

Determines how many shortcuts the system can display in the Documents menu on the Start menu. The Documents menu contains shortcuts to the nonprogram files the user has most recently opened. By default, the system displays shortcuts to the 10 most recently opened documents.

2) вариант скрипта vbs: более реально, но
2.1) Прежде всего, суммируются все инстанции названных процессов. То есть, если я запущу два калькулятора, то два нотепада я запустить уже не смогу
2.2) Нет возврата счетчика в обратное состояние, если одна из копий закрывается.

Ессно, я понимаю, что скрипт набросан на скорую руку. В содержимом разобрался, но с визуал бейсиком не дружен, посему:
1) можно ли создать массив из связок имя_процесса-кол-во_копий
2) можно ли добавлять в этот массив компоненты динамически, а не прописывать в скрипте
3) можно ли отслеживать завершение работы копии и делать соответствующие изменения в счетчике (с удалением единицы массива при закрытии последней из копий данного процесса)

[hasherfrog]

ShaddyR, я очень скоренько наборосал...
Не все проблемы решены.

Код:

Set Args = WScript.Arguments

' *******************************************

CONST FIELDS = 3
CONST PSNAME = 0
CONST PSNUMB = 1
CONST PSMAXN = 2

Dim thePsArray ( )
Dim nToWatch
nToWatch = 0

Function AddPsToWath( name, number )
 ReDim Preserve thePsArray ( FIELDS, nToWatch )
 thePsArray(PSNAME, nToWatch) = name
 thePsArray(PSNUMB, nToWatch) = number
 thePsArray(PSMAXN, nToWatch) = number
 addPsToWatch = nToWatch
 nToWatch = nToWatch + 1
End Function

' *******************************************

Sub ReadPsWatchFile(filename)
 Dim fso, f
' On Error Resume Next 
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set f = fso.OpenTextFile(filename, 1, False)
 if Err.Number<>0 then
   call Error_(0)
 else
   while not f.atEndOfStream
     s = f.ReadLine
     ms = Split(s, " ", -1, vbBinaryComapre)
     s1 = ms(0)
     n2 = CInt(ms(1))
     n = AddPsToWath(s1, n2)
     Err.Clear
   wend
   f.Close
 end if 
End Sub

' *******************************************

Sub StartUpWatcher()

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

  Set colMonitoredProcesses = objWMIService. _        
    ExecNotificationQuery("select * from __InstanceCreationEvent" _ 
        & " within 1 where TargetInstance isa 'Win32_Process'")

  Set colMonitorProcessesd = objWMIService.ExecNotificationQuery _
   ("SELECT * FROM __InstanceDeletionEvent " & _ 
   "WITHIN 1 WHERE TargetInstance ISA 'Win32_Process' ")


  Do While 1
    Set objLatestProcess = colMonitoredProcesses.NextEvent

    For psn=0 to nToWatch-1
      If objLatestProcess.TargetInstance.Name = thePsArray(PSNAME, psn) Then
        thePsArray(PSNUMB, psn) = thePsArray(PSNUMB, psn) - 1 
'        Wscript.Echo "Num: "& thePsArray(PSNUMB, psn)
        If thePsArray(PSNUMB, psn) < 0 then
          Wscript.Echo "Вы запустили лишнюю копию программы "&  objLatestProcess.TargetInstance.Name  _
                     & " - разрешенный лимит только " & thePsArray(PSMAXN, psn)
          objLatestProcess.TargetInstance.Terminate
          thePsArray(PSNUMB, psn) = thePsArray(PSNUMB, psn) + 1 
        End If
      End If
    Next

  Loop
End Sub

' *******************************************

for i=0 to Args.count-1
 If Args(i) = "-f" Then	
  iaFilename = Args(i+1)
 End If
Next

If iaFilename<>"" Then
  Set fso = CreateObject("Scripting.FileSystemObject")
  If (fso.FileExists(iaFilename)) Then
    Call ReadPsWatchFile(iaFilename)
    If nToWatch=0 Then
      Wscript.Echo "File is empty."
    Else
      Call StartUpWatcher()
    End If
  Else
    Wscript.Echo "File exists not." 
  End If
Else
  Wscript.Echo "watcher.vbs -f filename" 
End If

Формат файла такой

Код:

имяпрограммы1.exe n1
имяпрограммы2.exe n2
имяпрограммы3.exe n3

Запускается скрипт watcher.vbs -f filename

но вот по поводу 2.2) Нет возврата счетчика в обратное состояние, если одна из копий закрывается. - это я не могу сейчас сообразить. как сделать


И вообще не уверен, что это возможно :-|

[hasherfrog]

А вообще нет, чего я... Можно просто пересчитывать количества процессов перед каждый новым запуском... Так, наверное.
Прошу прощения, если критично кому, но я завтра только смогу поковыряться...

Плюс второй вариант - http://www.microsoft.com/technet/scr....mspx?mfr=true

[ShaddyR]

hasherfrog: я понял)
Резалты теста (назвал скрипт Processrestrict.vbs):
1)

Код:

Processrestrict.vbs -f calc.exe

возвращает "File exists not."
2) Processrestrict.vbs -f "C:\WINDOWS\system32\calc.exe"
возвращает ошибку в аттаче)

[hasherfrog]

НЕЕЕЕЕ... Вы чего?
filename - это текстовый файл, в котором перечислены файлы, подлежащих "рестриктированию".
Там написано за кем следить - и сколько раз можно запускать.

Кстати, Вы бежите впереди паровоза :] Я как завтра хотел написать вторым вариантом решение таким образом, каким Вы сейчас предлагаете, когда на каждый файл рестрикта будет свой собственный "наблюдатель". А первым вариантом - доработать "комплексный" обработчик-рестриктизатор.

[dosim]

2.2) Нет возврата счетчика в обратное состояние, если одна из копий закрывается

hasherfrog

а когда сооборазите насчет возврата счетчика?? как раз то, что мне нужно.