Usuário com melhor resposta
Como posso ver os logs computer manager.

Pergunta
-
Respostas
-
Bom Dia,
Você não deve ler diretamente no arquivo, vc deve utilizar o WMI.
Veja um exemplo para ler os logs de segurança (para colocar no Excel retire os wscript e coloque no lugar código para escrever em células)
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Security)}!\\" & _ strComputer & "\root\cimv2") Set colLoggedEvents = objWMIService.ExecQuery _ ("Select * FROM Win32_NTLogEvent WHERE Logfile = 'Security'" ) For Each objEvent in colLoggedEvents Wscript.Echo "===================================================" Wscript.Echo "Category: " & objEvent.Category Wscript.Echo "Computer Name: " & objEvent.ComputerName Wscript.Echo "Event Code: " & objEvent.EventCode Wscript.Echo "Message: " & objEvent.Message Wscript.Echo "Record Number: " & objEvent.RecordNumber Wscript.Echo "Source Name: " & objEvent.SourceName Wscript.Echo "Time Written: " & objEvent.TimeWritten Wscript.Echo "Event Type: " & objEvent.Type Wscript.Echo "User: " & objEvent.User Wscript.Echo Next
Vc pode adicionar filtro para retornar apenas determinado evento, ou apenas de uma data em diante, etc
Obs.: Para ler o log de segurança vc deve executar este código como administrador da estação (mais este problema pra vc, porque o usuário que vai usar a planilha é administrador? Então já indico novamente aquela solução do login script).
Links:
Hey, Scripting Guy! Can I Retrieve Just Failure Events from the Security Event Log?* Ajude a organizar melhor o Fórum, dando Feedback sobre a dúvida solicitada, e marcando como Útil e como Resposta, a postagem dos colaboradores que resolveram o seu caso, ou foram úteis *
- Marcado como Resposta Wagner dos Santos VasconcellosModerator terça-feira, 5 de junho de 2012 14:11
- Não Marcado como Resposta Fábio JrModerator domingo, 10 de junho de 2012 02:42
- Sugerido como Resposta Thiago Cardoso LuizMicrosoft employee, Moderator domingo, 29 de julho de 2012 18:42
- Marcado como Resposta Thiago Cardoso LuizMicrosoft employee, Moderator domingo, 29 de julho de 2012 18:42
- Não Marcado como Resposta Fábio JrModerator quarta-feira, 8 de agosto de 2012 00:52
- Marcado como Resposta Fábio JrModerator terça-feira, 18 de dezembro de 2012 11:24
Todas as Respostas
-
Bom Dia,
Você não deve ler diretamente no arquivo, vc deve utilizar o WMI.
Veja um exemplo para ler os logs de segurança (para colocar no Excel retire os wscript e coloque no lugar código para escrever em células)
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Security)}!\\" & _ strComputer & "\root\cimv2") Set colLoggedEvents = objWMIService.ExecQuery _ ("Select * FROM Win32_NTLogEvent WHERE Logfile = 'Security'" ) For Each objEvent in colLoggedEvents Wscript.Echo "===================================================" Wscript.Echo "Category: " & objEvent.Category Wscript.Echo "Computer Name: " & objEvent.ComputerName Wscript.Echo "Event Code: " & objEvent.EventCode Wscript.Echo "Message: " & objEvent.Message Wscript.Echo "Record Number: " & objEvent.RecordNumber Wscript.Echo "Source Name: " & objEvent.SourceName Wscript.Echo "Time Written: " & objEvent.TimeWritten Wscript.Echo "Event Type: " & objEvent.Type Wscript.Echo "User: " & objEvent.User Wscript.Echo Next
Vc pode adicionar filtro para retornar apenas determinado evento, ou apenas de uma data em diante, etc
Obs.: Para ler o log de segurança vc deve executar este código como administrador da estação (mais este problema pra vc, porque o usuário que vai usar a planilha é administrador? Então já indico novamente aquela solução do login script).
Links:
Hey, Scripting Guy! Can I Retrieve Just Failure Events from the Security Event Log?* Ajude a organizar melhor o Fórum, dando Feedback sobre a dúvida solicitada, e marcando como Útil e como Resposta, a postagem dos colaboradores que resolveram o seu caso, ou foram úteis *
- Marcado como Resposta Wagner dos Santos VasconcellosModerator terça-feira, 5 de junho de 2012 14:11
- Não Marcado como Resposta Fábio JrModerator domingo, 10 de junho de 2012 02:42
- Sugerido como Resposta Thiago Cardoso LuizMicrosoft employee, Moderator domingo, 29 de julho de 2012 18:42
- Marcado como Resposta Thiago Cardoso LuizMicrosoft employee, Moderator domingo, 29 de julho de 2012 18:42
- Não Marcado como Resposta Fábio JrModerator quarta-feira, 8 de agosto de 2012 00:52
- Marcado como Resposta Fábio JrModerator terça-feira, 18 de dezembro de 2012 11:24
-
Wagner,
Acho que você mandou o script errado. Além do Event Viewer ele quer informações do tipo: Espaço em disco, tamanho de pastas e o mais dificil: gravar isto em um MDB(que pode ser bem complicado).
Fábio de Paula Junior
- Editado Fábio JrModerator domingo, 10 de junho de 2012 03:29
- Sugerido como Resposta Thiago Cardoso LuizMicrosoft employee, Moderator domingo, 29 de julho de 2012 18:42
- Marcado como Resposta Thiago Cardoso LuizMicrosoft employee, Moderator domingo, 29 de julho de 2012 18:43
- Não Marcado como Resposta Fábio JrModerator quarta-feira, 8 de agosto de 2012 00:52
- Não Sugerido como Resposta Fábio JrModerator quarta-feira, 8 de agosto de 2012 00:52
-
Preciso de um scripts que me premita extrair imformação sobre os users o servidor o espaço em disco e tamanho dos ficheiros.
Alguém pode ajudar....
A informação é para inserir numa mdb.
Alguma novidade??<o:p></o:p>
vou fechar a Thread para manter o forum
organizado.<o:p></o:p>[]'s<o:p></o:p>
Thiago Cardoso Luiz
W: www.thiagocardoso.org
T: www.twitter.com/t_cardoso
Microsoft Student Partner - Brazil/SP
MCT MCITP MCSE MCSA MCTS ITIL MSP MCC
Caso seja util vote e coloque como resposta!
- Sugerido como Resposta Thiago Cardoso LuizMicrosoft employee, Moderator domingo, 29 de julho de 2012 18:43
- Marcado como Resposta Thiago Cardoso LuizMicrosoft employee, Moderator domingo, 29 de julho de 2012 18:43
- Não Marcado como Resposta Fábio JrModerator quarta-feira, 8 de agosto de 2012 00:45
- Não Sugerido como Resposta Fábio JrModerator quarta-feira, 8 de agosto de 2012 00:52
- Marcado como Resposta Thiago Cardoso LuizMicrosoft employee, Moderator domingo, 16 de dezembro de 2012 21:28
- Não Marcado como Resposta Fábio JrModerator segunda-feira, 17 de dezembro de 2012 16:26
-
Thiago,
Por favor não marcar solicitações como respostas(Exemplo: alguma novidade? Respondido/), apenas respostas propriamentes ditas.
Fábio de Paula Junior
- Editado Fábio JrModerator segunda-feira, 17 de dezembro de 2012 16:32
-
Thiago,
Por favor não marcar solicitações como respostas(Exemplo: alguma novidade? Respondido/), apenas respostas propriamentes ditas.
Fábio de Paula Junior
Fabio qual seu email? vamos alinhar algumas coisas como melhores praticas no forum..
Obrigado,
Thiago Cardoso Luiz
W: www.thiagocardoso.org
T: www.twitter.com/t_cardoso
Microsoft Student Partner - Brazil/SP
MCT MCITP MCSE MCSA MCTS ITIL MSP MCC
Caso seja util vote e coloque como resposta!
-
Thiago,
Por favor não marcar solicitações como respostas(Exemplo: alguma novidade? Respondido/), apenas respostas propriamentes ditas.
Fábio de Paula Junior
Fabio qual seu email? vamos alinhar algumas coisas como melhores praticas no forum..
Obrigado,
Thiago Cardoso Luiz
W: www.thiagocardoso.org
T: www.twitter.com/t_cardoso
Microsoft Student Partner - Brazil/SP
MCT MCITP MCSE MCSA MCTS ITIL MSP MCC
Caso seja util vote e coloque como resposta!
-
Fabio qual seu email? vamos alinhar algumas coisas como melhores praticas no forum..
Obrigado,
Thiago Cardoso Luiz
W: www.thiagocardoso.org
T: www.twitter.com/t_cardoso
Microsoft Student Partner - Brazil/SP
MCT MCITP MCSE MCSA MCTS ITIL MSP MCC
Caso seja util vote e coloque como resposta!
-
Só complementando:
How To Open ADO Connection and Recordset Objects
support.microsoft.com/kb/168336/en-us
E tem este do Script Center:
Add a New Record to a Table
Description Demonstration script that adds a new record to a database.
Supported Platforms
Windows Server 2003
Yes
Windows XP
Yes
Windows 2000
Yes
Windows NT 4.0
Yes
Windows 98
Yes
Script Code
Const adOpenStatic = 3 Const adLockOptimistic = 3 Set objConnection = CreateObject("ADODB.Connection") Set objRecordSet = CreateObject("ADODB.Recordset") objConnection.Open _ "Provider = Microsoft.Jet.OLEDB.4.0; " & _ "Data Source = inventory.mdb" objRecordSet.Open "SELECT * FROM GeneralProperties" , _ objConnection, adOpenStatic, adLockOptimistic objRecordSet.AddNew objRecordSet("ComputerName") = "atl-ws-01" objRecordSet("Department") = "Human Resources" objRecordSet("OSName") = "Microsoft Windows XP Professional" objRecordSet("OSVersion") = "5.1.2600" objRecordSet("OSManufacturer") = "Microsoft Corporation" objRecordSet.Update objRecordSet.Close objConnection.Close
Fábio de Paula Junior
- Editado Fábio JrModerator quarta-feira, 19 de dezembro de 2012 17:20
-