none
Como posso ver os logs computer manager. RRS feed

  • Pergunta

  • 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.

    quinta-feira, 10 de maio de 2007 09:35

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?

    http://blogs.technet.com/b/heyscriptingguy/archive/2004/10/26/hey-scripting-guy-can-i-retrieve-just-failure-events-from-the-security-event-log.aspx

    Abs


    * 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 *

    terça-feira, 5 de junho de 2012 14:11
    Moderador

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?

    http://blogs.technet.com/b/heyscriptingguy/archive/2004/10/26/hey-scripting-guy-can-i-retrieve-just-failure-events-from-the-security-event-log.aspx

    Abs


    * 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 *

    terça-feira, 5 de junho de 2012 14:11
    Moderador
  • 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


    domingo, 10 de junho de 2012 02:44
    Moderador
  • 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!

    domingo, 29 de julho de 2012 18:43
    Moderador
  • Thiago,

    Por favor não marcar solicitações como respostas(Exemplo: alguma novidade? Respondido/), apenas respostas propriamentes ditas.


    Fábio de Paula Junior


    segunda-feira, 17 de dezembro de 2012 16:27
    Moderador
  • 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!

    terça-feira, 18 de dezembro de 2012 11:08
    Moderador
  • 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!

    terça-feira, 18 de dezembro de 2012 11:08
    Moderador
  • 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!

    terça-feira, 18 de dezembro de 2012 11:08
    Moderador
  • 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


    quarta-feira, 19 de dezembro de 2012 17:19
    Moderador
  • Thiago,

    Estou aguardando seu contato.


    Fábio de Paula Junior

    quinta-feira, 20 de dezembro de 2012 11:05
    Moderador