none
Atributo para gerar arquivo de log - ajuda RRS feed

  • Pergunta

  • Olá, bom dia!

    Estou precisando gerenciar acessos a um determinado programa. Gostaria de saber se existe algum atributo que eu posso colocar no atalho do programa para gerar um arquivo de log contendo informações do computador ou usuário que executou o atalho, como nome do computador, ip, nome do usuário, data e hora, etc.

    Existe algum atributo para essa finalidade, aceito sugestões caso exista alguma outra forma paleativa com a mesma finalidade.

    Grato,

    Victor.

    quarta-feira, 27 de julho de 2011 14:43

Respostas

  • Mude a Forma de acessar o aplicativo:

    Crie um diretório c:\log

    Crie dois arquivos um VBS com o conteúdo abaixo:

    Dim objArq, strArquivo, objArquivo, data_hoje
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set WSHNetwork = CreateObject("WScript.Network")
    data_hoje = date
    data_hoje = replace(data_hoje,"/", "_")
    strUsuario = WSHNetwork.UserName
    strComputador = WSHNetwork.ComputerName
    WScript.Echo "Desenvolvido por Danilo Mota"
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set IPConfigSet = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
     
    For Each IPConfig in IPConfigSet
        If Not IsNull(IPConfig.IPAddress) Then
            For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
        ip=IPConfig.IPAddress(i)
                 WScript.Echo IPConfig.IPAddress(i)
            Next
        End If
    Next


    'strArquivo = strUsuario & "_" & strComputador & ".txt"
    strArquivo = right("0" & day(now),2) & right("0" & month(now),2) & year(now) & ".txt"


    Set objArq = CreateObject("Scripting.FileSystemObject")

    Set objArquivo = objArq.OpenTextFile( "c:\log\" & strArquivo, 8, True)


    'objArquivo.WriteLine( "Logon : " & Now )
    objArquivo.WriteLine(Now &" Usuário : " & strUsuario & " Computador :"& strComputador & " IP :"& IP)
    objArquivo.Close


    E um arquivo CMD que tenha a função de chamar o .exe do aplicativo e Arquivo .VBS

     

    Peça para o usuário abrir o aplicativo pelo arquivo CMD, é uma solução paleativa mais acredito que resolva seu problema.


    Por Gentileza se a solução for aplicavél Votar como Útil
    quarta-feira, 27 de julho de 2011 17:23

Todas as Respostas

  • Você pode implementar um GPO de auditoria de arquivos.

     

    quarta-feira, 27 de julho de 2011 14:44
  • Você pode implementar um GPO de auditoria de arquivos.

     

    Eu sei, mas optei por gerar esses arquivos de log, para a equipe de desenvolvimento importar para a intranet em desenvolvimento.
    quarta-feira, 27 de julho de 2011 15:00
  • Mude a Forma de acessar o aplicativo:

    Crie um diretório c:\log

    Crie dois arquivos um VBS com o conteúdo abaixo:

    Dim objArq, strArquivo, objArquivo, data_hoje
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set WSHNetwork = CreateObject("WScript.Network")
    data_hoje = date
    data_hoje = replace(data_hoje,"/", "_")
    strUsuario = WSHNetwork.UserName
    strComputador = WSHNetwork.ComputerName
    WScript.Echo "Desenvolvido por Danilo Mota"
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set IPConfigSet = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
     
    For Each IPConfig in IPConfigSet
        If Not IsNull(IPConfig.IPAddress) Then
            For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
        ip=IPConfig.IPAddress(i)
                 WScript.Echo IPConfig.IPAddress(i)
            Next
        End If
    Next


    'strArquivo = strUsuario & "_" & strComputador & ".txt"
    strArquivo = right("0" & day(now),2) & right("0" & month(now),2) & year(now) & ".txt"


    Set objArq = CreateObject("Scripting.FileSystemObject")

    Set objArquivo = objArq.OpenTextFile( "c:\log\" & strArquivo, 8, True)


    'objArquivo.WriteLine( "Logon : " & Now )
    objArquivo.WriteLine(Now &" Usuário : " & strUsuario & " Computador :"& strComputador & " IP :"& IP)
    objArquivo.Close


    E um arquivo CMD que tenha a função de chamar o .exe do aplicativo e Arquivo .VBS

     

    Peça para o usuário abrir o aplicativo pelo arquivo CMD, é uma solução paleativa mais acredito que resolva seu problema.


    Por Gentileza se a solução for aplicavél Votar como Útil
    quarta-feira, 27 de julho de 2011 17:23
  • Mude a Forma de acessar o aplicativo:

    Crie um diretório c:\log

    Crie dois arquivos um VBS com o conteúdo abaixo:

    Dim objArq, strArquivo, objArquivo, data_hoje
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set WSHNetwork = CreateObject("WScript.Network")
    data_hoje = date
    data_hoje = replace(data_hoje,"/", "_")
    strUsuario = WSHNetwork.UserName
    strComputador = WSHNetwork.ComputerName
    WScript.Echo "Desenvolvido por Danilo Mota"
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set IPConfigSet = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
     
    For Each IPConfig in IPConfigSet
        If Not IsNull(IPConfig.IPAddress) Then
            For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
        ip=IPConfig.IPAddress(i)
                 WScript.Echo IPConfig.IPAddress(i)
            Next
        End If
    Next


    'strArquivo = strUsuario & "_" & strComputador & ".txt"
    strArquivo = right("0" & day(now),2) & right("0" & month(now),2) & year(now) & ".txt"


    Set objArq = CreateObject("Scripting.FileSystemObject")

    Set objArquivo = objArq.OpenTextFile( "c:\log\" & strArquivo, 8, True)


    'objArquivo.WriteLine( "Logon : " & Now )
    objArquivo.WriteLine(Now &" Usuário : " & strUsuario & " Computador :"& strComputador & " IP :"& IP)
    objArquivo.Close


    E um arquivo CMD que tenha a função de chamar o .exe do aplicativo e Arquivo .VBS

     

    Peça para o usuário abrir o aplicativo pelo arquivo CMD, é uma solução paleativa mais acredito que resolva seu problema.


    Por Gentileza se a solução for aplicavél Votar como Útil

    Cara, perfeito!

    Só um ajuste que não tenho conhecimento suficiente para realizar:

    - No log é exibido Data|Hora|Usuário|Computador|IPv6

    O IPv6 é meio que inutil, pois minha rede toda é IPv4, teria como alterar o IPv6 pelo IPv4?

     

    Muito Grato!

    quarta-feira, 27 de julho de 2011 17:43
  • Vitor,

     

    Acredito que seja algo na sua placa de rede pois pra mim o log vem assim:

     

    25/7/2011 14:50:08 Usuário : e01189 Computador :VDS03185 IP :10.159.11.249

     

    Por Gentileza Clique em Votar como útil

    quarta-feira, 27 de julho de 2011 17:50