Usuário com melhor resposta
Atributo para gerar arquivo de log - ajuda

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.
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 .VBSPeç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- Marcado como Resposta Victor Hugo França quarta-feira, 27 de julho de 2011 18:07
Todas as 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 .VBSPeç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- Marcado como Resposta Victor Hugo França quarta-feira, 27 de julho de 2011 18:07
-
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 .VBSPeç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 ÚtilCara, 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!
-