none
статистика запуска программ RRS feed

 > 

  • Вопрос

  • Question
    Нужно войти
    0
    Нужно войти
    Добрый день. Есть есть домен есть пользователи домена, каккие образом можно собрать статистику запуска программ пользователями. Например Microsoft Office запускали 40 раз такие пользователи.
    24 ноября 2008 г. 10:28
    |

Ответы

Все ответы

  • Question
    Нужно войти
    0
    Нужно войти

     Sedoi написано:
    Добрый день. Есть есть домен есть пользователи домена, каккие образом можно собрать статистику запуска программ пользователями. Например Microsoft Office запускали 40 раз такие пользователи.

     

    Такой отчет есть. Только его готовит System Center Configuration Manager.

    24 ноября 2008 г. 11:19
    |
  • Question
    Нужно войти
    0
    Нужно войти

    Можно попробовать и без SMS: делаешь через политику logon-script для тех пользователей, у кого хочешь мониторить

    количество запусков, например, ворда, создаешь шару на сервере с правами записи для этих пользователей.

    В результате, в расшаренной папке появляются файлики *.txt, где вместо звездочки - имя пользователя, внутри файлика строчки, когда ворд был запущен (не чаще чем раз в 5 секунд)

    Code Snippet

    On Error Resume Next
    Const ForAppend = 8


    Sub TextOut (Text, File)

    Set fso = WScript.CreateObject("Scripting.FileSystemObject")
    Set FOut = fso.OpenTextFile(File,ForAppend,True)
    FOut.WriteLine Text
    FOut.Close

    End Sub

    StrComputer = "."
    StrNameSpace = "Root\CIMV2"
    Set objService = GetObject("WinMgmts:\\"&StrComputer&"\"&StrNameSpace)
    Set objEventSource = objService.ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE (TargetInstance ISA 'Win32_Process' AND TargetInstance.Name='winword.exe')")
    Set colItems = objService.ExecQuery("Select * from Win32_ComputerSystem",,48)

    For Each objItem In colItems
     FirstItem = objItem.UserName
     SecondItem = objItem.Name
     Exit For
    Next
    UsrName = Mid(FirstItem,11)
    UsrName = UsrName & ".txt"

    Do
    Set objEvent = objEventSource.NextEvent
    strResult = "ворд запущен " & Date & " в " & Time
    TextOut strResult,"\\server\share$\"&UsrName
    Loop

     

    UsrName = Mid(FirstItem,11) - здесь число 11 - это количество знаков в netbios-имени домена

    24 ноября 2008 г. 11:50
    |
    Отвечающий
  • Question
    Нужно войти
    0
    Нужно войти
     Michael Gotch написано:

     Sedoi написано:
    Добрый день. Есть есть домен есть пользователи домена, каккие образом можно собрать статистику запуска программ пользователями. Например Microsoft Office запускали 40 раз такие пользователи.

     

    Такой отчет есть. Только его готовит System Center Configuration Manager.



    Не подскажите где можно скачать Demo версию, чтобы ознакомится и решить покупать или нет?
    25 ноября 2008 г. 9:41
    |
  • Question
    Нужно войти
    0
    Нужно войти

    Microsoft System Center Configuration Manager 2007 SP1 Evaluation

    http://www.microsoft.com/downloads/details.aspx?FamilyId=06D54615-8F0A-49AB-B195-5CD4FD76ABDF&displaylang=en

     

    SCConfigMgr07_EVAL_EN.exe

     

    180 дней на оценку.

    27 ноября 2008 г. 6:25
    |