none
Controle de logon e logoff RRS feed

  • Pergunta

  • Amigos, gostaria de uma ajuda..preciso criar log de logon e logoff de todos os usuarios da rede, é possivel via script vbs

    com os horarios, data e usuarios.

    Obrigado desde ja a todos...


    Pessoal estou usando este script do Claudio Dantas, mas ele esta gravando o logoff junto com logon, alguem poderia me ajudar ??

    Dim objArq, strArquivo, objArquivo

    Set objFSO     = CreateObject("Scripting.FileSystemObject")
    Set WSHNetwork = CreateObject("WScript.Network")

    strUsuario    = WSHNetwork.UserName
    strComputador = WSHNetwork.ComputerName
    strArquivo    = strUsuario & ".txt"
    Set objArq    = CreateObject("Scripting.FileSystemObject")

    If objFSO.FileExists( "\\servidor\pasta$\" & strArquivo ) then
     Set objArquivo = objArq.OpenTextFile("\\servidor\pasta$\"  & strArquivo, 8, True)
    Else
     Set objArquivo = objArq.CreateTextFile( "\\servidor\pasta$\" & strArquivo, True)
    End If

    objArquivo.WriteLine( "Logon : " & Now & " at: " & strComputador)
    objArquivo.Close
















    Dim objArq, strArquivo, objArquivo

    Set objFSO     = CreateObject("Scripting.FileSystemObject")
    Set WSHNetwork = CreateObject("WScript.Network")

    strUsuario    = WSHNetwork.UserName
    strComputador = WSHNetwork.ComputerName
    strArquivo    = strUsuario & ".txt"
    Set objArq    = CreateObject("Scripting.FileSystemObject")

    If objFSO.FileExists( "\\seervidor\pasta$\" & strArquivo ) then
     Set objArquivo = objArq.OpenTextFile( "\\servidor\pasta$\" & strArquivo, 8, True)
    Else
     Set objArquivo = objArq.CreateTextFile( "\\servidor\pasta$\" & strArquivo, True)
    End If

    objArquivo.WriteLine( "LogOff: " & Now & " at: " & strComputador)
    objArquivo.Close

    • Editado Rafaeljr quarta-feira, 9 de novembro de 2011 13:22
    terça-feira, 8 de novembro de 2011 12:54

Respostas

  • no console de group policy management você vai em, User Configuration > Windows Settings > Scripts (Logon/Logoff)
    em logon você coloca  

    Dim objArq, strArquivo, objArquivo

    Set objFSO     = CreateObject("Scripting.FileSystemObject")
    Set WSHNetwork = CreateObject("WScript.Network")

    strUsuario    = WSHNetwork.UserName
    strComputador = WSHNetwork.ComputerName
    strArquivo    = strUsuario & ".txt"
    Set objArq    = CreateObject("Scripting.FileSystemObject")

    If objFSO.FileExists( "\\servidor\pasta$\" & strArquivo ) then
     Set objArquivo = objArq.OpenTextFile("\\servidor\pasta$\"  & strArquivo, 8, True)
    Else
     Set objArquivo = objArq.CreateTextFile( "\\servidor\pasta$\" & strArquivo, True)
    End If

    objArquivo.WriteLine( "Logon : " & Now & " at: " & strComputador)
    objArquivo.Close

    e em logoff

    Dim objArq, strArquivo, objArquivo

    Set objFSO     = CreateObject("Scripting.FileSystemObject")
    Set WSHNetwork = CreateObject("WScript.Network")

    strUsuario    = WSHNetwork.UserName
    strComputador = WSHNetwork.ComputerName
    strArquivo    = strUsuario & ".txt"
    Set objArq    = CreateObject("Scripting.FileSystemObject")

    If objFSO.FileExists( "\\seervidor\pasta$\" & strArquivo ) then
     Set objArquivo = objArq.OpenTextFile( "\\servidor\pasta$\" & strArquivo, 8, True)
    Else
     Set objArquivo = objArq.CreateTextFile( "\\servidor\pasta$\" & strArquivo, True)
    End If

    objArquivo.WriteLine( "LogOff: " & Now & " at: " & strComputador)
    objArquivo.Close

     


    Meu Blog: http://howtoserver.com Minhas Ceritificações: 73-642,73-640
    • Marcado como Resposta Rafaeljr quinta-feira, 10 de novembro de 2011 11:18
    quarta-feira, 9 de novembro de 2011 17:06

Todas as Respostas

  • você publicou os scripts via gpo?  se foi, colocou eles separados na area de login e logoff?
    Meu Blog: http://howtoserver.com Minhas Ceritificações: 73-642,73-640
    quarta-feira, 9 de novembro de 2011 15:22
  • Bem observado pelo Matheus, são dois scripts diferentes, repare que existe um grande espaço em branco entre as linhas objArquivo.Close (onde termina o primeiro script) e a linha Dim objArq, strArquivo, objArquivo (onde começa o segundo). O primeiro deve entra na diretiva de script de Logon e o segundo na diretiva de script do Logoff.


    Fábio de Paula Junior
    quarta-feira, 9 de novembro de 2011 15:37
    Moderador
  • Isso, não expliquei corretamente as gpos... mas é isso ai.
    Meu Blog: http://howtoserver.com Minhas Ceritificações: 73-642,73-640
    quarta-feira, 9 de novembro de 2011 16:10
  • Obrigado meus amigos desde já......

    como publico na GPO ?

    Pois estou utilizando eles no script de logon apenas..

    Rafael

    quarta-feira, 9 de novembro de 2011 17:00
  • no console de group policy management você vai em, User Configuration > Windows Settings > Scripts (Logon/Logoff)
    em logon você coloca  

    Dim objArq, strArquivo, objArquivo

    Set objFSO     = CreateObject("Scripting.FileSystemObject")
    Set WSHNetwork = CreateObject("WScript.Network")

    strUsuario    = WSHNetwork.UserName
    strComputador = WSHNetwork.ComputerName
    strArquivo    = strUsuario & ".txt"
    Set objArq    = CreateObject("Scripting.FileSystemObject")

    If objFSO.FileExists( "\\servidor\pasta$\" & strArquivo ) then
     Set objArquivo = objArq.OpenTextFile("\\servidor\pasta$\"  & strArquivo, 8, True)
    Else
     Set objArquivo = objArq.CreateTextFile( "\\servidor\pasta$\" & strArquivo, True)
    End If

    objArquivo.WriteLine( "Logon : " & Now & " at: " & strComputador)
    objArquivo.Close

    e em logoff

    Dim objArq, strArquivo, objArquivo

    Set objFSO     = CreateObject("Scripting.FileSystemObject")
    Set WSHNetwork = CreateObject("WScript.Network")

    strUsuario    = WSHNetwork.UserName
    strComputador = WSHNetwork.ComputerName
    strArquivo    = strUsuario & ".txt"
    Set objArq    = CreateObject("Scripting.FileSystemObject")

    If objFSO.FileExists( "\\seervidor\pasta$\" & strArquivo ) then
     Set objArquivo = objArq.OpenTextFile( "\\servidor\pasta$\" & strArquivo, 8, True)
    Else
     Set objArquivo = objArq.CreateTextFile( "\\servidor\pasta$\" & strArquivo, True)
    End If

    objArquivo.WriteLine( "LogOff: " & Now & " at: " & strComputador)
    objArquivo.Close

     


    Meu Blog: http://howtoserver.com Minhas Ceritificações: 73-642,73-640
    • Marcado como Resposta Rafaeljr quinta-feira, 10 de novembro de 2011 11:18
    quarta-feira, 9 de novembro de 2011 17:06
  • Entendi...

    Desculpe a falta de conhecimento, pois estou aprendendo dia a dia......

    esta opção esta dentro do AD - GPO - PROPRIEDADES - CRIAR UMA DIRETIVA - ........ 

    OK ?

     

    quarta-feira, 9 de novembro de 2011 17:18
  • Ou você pode utilizar uma diretiva já existente, Botão direito edit nela.
    Meu Blog: http://howtoserver.com Minhas Ceritificações: 73-642,73-640
    quarta-feira, 9 de novembro de 2011 17:25
  • Obrigado a todos....  

    Tudo resolvido e testado...

    "Nascer, morrer, renascer ainda e progredir sempre, tal é a lei" - Alan Kardec

    Rafael Junior

    quinta-feira, 10 de novembro de 2011 11:21