none
Ajuda para script de logon que envia um e-mail informando em que maquina este usuario logou e em que hora(90% concluido) RRS feed

  • Pergunta

  • Prezados,

    Preciso fazer um script de logon que envie um e-mail quando uma determinada conta(com super poderes) for logada na rede , me passando a maquina que logou e a hora.

    Ja pesquisei no forum e achei algumas coisas que podem me ajudar, primeiramente sei q preciso colocar este script na propria conta do usuario que quero (no AD vou  na conta do user e coloco em script de logon)  e tambem achei  um script pelo forum q envia e-mail(testei e funciona) ... falta so conseguir trocar uma coisa , em vez de ele enviar um TXT no corpo, ele enviar o nome da maquina que esta logado e o  horario.ALguem pode me ajudar?

    o Script que achei que funciona mas precisa de um adaptacao é:

    set fso = CreateObject("Scripting.FileSystemObject")
    Set objEmail = CreateObject("CDO.Message")

    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fso, f
    Set f = fso.OpenTextFile("c:\teste.txt", ForReading)
    BodyText = f.ReadAll
    f.Close
    Set f = Nothing
    Set fso = Nothing

    objEmail.From = "quemenvia@email.com"
    objEmail.To = "quemrecebe@email.com"
    objEmail.Subject = "Usuario X logou"
    objEmail.TextBody = BodyText
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Servidor.empresa.com.br"
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update
    objEmail.Send


    Microsoft Certified System Administrator Microsoft Certified Desktop Support technician Mcafee System Security Certified MikroTik Certified Network Associate

    sexta-feira, 20 de julho de 2012 16:44

Respostas

  • Galera descobri como  fazer:

    Usei  o mesmo script de e-mail so que antes eu rodo um bat criando  o txt com o nome da maquina e depois chamo o script para envia-lo por mail

    Bat:

    c:
    cd windows\system32\
    hostname > d:\hostname.txt

    Start \\servidor\netlogon\verificauseradm.vbs

    o script é verificauseradm.vbs

    set fso = CreateObject("Scripting.FileSystemObject")
    Set objEmail = CreateObject("CDO.Message")

    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fso, f
    Set f = fso.OpenTextFile("d:\hostname.txt", ForReading)
    BodyText = f.ReadAll
    f.Close
    Set f = Nothing
    Set fso = Nothing

    objEmail.From = "quemenvia@email.com"
    objEmail.To = "quemrecebe@email.com"
    objEmail.Subject = "Usuario X logou"
    objEmail.TextBody = BodyText
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Servidor.empresa.com.br"
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update
    objEmail.Send


    Microsoft Certified System Administrator Microsoft Certified Desktop Support technician Mcafee System Security Certified MikroTik Certified Network Associate

    • Marcado como Resposta Rafael Schmitt sexta-feira, 20 de julho de 2012 17:40
    sexta-feira, 20 de julho de 2012 17:39