none
Monitar programa RRS feed

  • Pergunta

  • Bom dia,
    Estou precisando monitor o acesso a um determinado programa, mais precisamente a um determinado "executável". E gostaria que quando esse arquivo fosse utilizado, um arquivo de log fosse gerado informando de qual computador ele foi utilizado e por quem. Esse script também só precisaria "rodar" para alguns usuários.
    Alguém poderia me ajudar?
    sexta-feira, 10 de julho de 2009 13:20

Respostas

  • Olá,

    Entendi...

    Oque você poderia fazer é um script que primeiro gera o log e depois executa o programa, porque eu não sei outra alternativa pra te falar.

    Segue o exemplo:


    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Set WSHShell = WScript.CreateObject("WScript.Shell")

    Set objNetwork = CreateObject("Wscript.Network")
    strUserName = objNetwork.Computername
    strComputerName = objNetwork.ComputerName

    'Coloque aqui o Programa
    strPrograma = "U:\software.exe"

    'Coloque aqui o caminho do log e o nome do log
    strLog = "\\server\compartilhamento\log.txt"

    Set objLogFile = objFSO.OpenTextFile(strLog, 8, True, 0)

    objLogFile.WriteLine "Programa " &  strPrograma &  " executado em : " & Now  & " - Usuário: " & strUsername & " - Computador : " & strComputerName

    objLogFile.Close

    ' Abrir Tela Cheia
    WSHShell.Run strPrograma, 3, true



    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    sexta-feira, 10 de julho de 2009 14:13

Todas as Respostas

  • Olá,

    Você precisa habilitar a auditoria deste executavel (acredito que já te atende)

    Segue link para configurar a auditoria:

    http://technet.microsoft.com/pt-br/library/cc784387(WS.10).aspx

    Após configurar, verifique nos logs do windows se está gerando os registros... aí é só você fazer um filtro nos logs.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    sexta-feira, 10 de julho de 2009 13:27
  • Bom dia Jesiel,
    Em primeiro lugar, obrigado pela ajuda.
    Mas infelizmente essa solução não vai me atender porque esse executável não tem um local fixo, ele pode ser colocado em qualquer diretório, inclusive estar em um mapeamento de rede e habilitar uma auditoria em todos esses diretórios provavelmente iria ocasionar uma quantidade de logs de segurança astronômica.
    sexta-feira, 10 de julho de 2009 13:44
  • Olá,

    Entendi...

    Oque você poderia fazer é um script que primeiro gera o log e depois executa o programa, porque eu não sei outra alternativa pra te falar.

    Segue o exemplo:


    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Set WSHShell = WScript.CreateObject("WScript.Shell")

    Set objNetwork = CreateObject("Wscript.Network")
    strUserName = objNetwork.Computername
    strComputerName = objNetwork.ComputerName

    'Coloque aqui o Programa
    strPrograma = "U:\software.exe"

    'Coloque aqui o caminho do log e o nome do log
    strLog = "\\server\compartilhamento\log.txt"

    Set objLogFile = objFSO.OpenTextFile(strLog, 8, True, 0)

    objLogFile.WriteLine "Programa " &  strPrograma &  " executado em : " & Now  & " - Usuário: " & strUsername & " - Computador : " & strComputerName

    objLogFile.Close

    ' Abrir Tela Cheia
    WSHShell.Run strPrograma, 3, true



    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    sexta-feira, 10 de julho de 2009 14:13