Boa tarde Juliano,
Eu faço esse tipo de monitoração, mas de outra forma, pois na rede que administro são muitos usuários e esse procedimento através de emails iria tornar complicado essa verificação.
Ao invés disso eu criei um compartilhamento oculto na rede e quando cada usuário faz logon e logoff, através de um script via GPO, é gravado o nome da máquina, a data e horário do logon ou logoff em um arquivo de
texto cujo o nome é o login do usuário que fez logon ou logoff.
Segue abaixo o script de logon:
Set WshNetwork = WScript.CreateObject("WScript.Network")
StrComputer = "."
FileLog = "\\servidor\share$\"& WshNetwork.UserName &".txt"
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set ObjFileRead = ObjFSO.opentextfile(FileLog, ForReading, True)
Set ObjFileAppending = ObjFSO.opentextfile(FileLog, ForAppending, True)
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 j=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
WriteLog "Logon Em " & now() & " Na Estação de Trabalho " & WshNetwork.ComputerName & " com IP " & IPConfig.IPAddress(j)
Next
End If
Next
Function WriteLog (Text)
ObjFileAppending.WriteLine Text
End Function
O script de logoff é praticamente idêntico, basta trocar "Logon Em " por "Logoff Em " no script acima.
