Bonjour tous le monde,
Je suis un administrateur d'un réseau active directory avec tous plein de controleur de domaine sur mon entreprise et je souhaite savoir qui se connecte en bureau a distance sur mes serveurs via mail.
J'ai trouvé comment envoyé un mail et comment vérifier que le bureau a distance se lance sur UN serveur
par contre je n'arrive pas a trouvé QUI se connecte et aussi sur TOUS les serveurs.
voici le débutr de code
set mail = CreateObject("CDO.Message")
strcomputer = "SRV-DC1"
set ObjSWbemServices = GetObject ("Winmgmts:" & "\\" & strcomputer & "\root\cimv2" )
set objEvenement = ObjSWbemServices.ExecNotificationQuery ("SELECT * FROM __InstanceCreationEvent " &_
"WITHIN 5 " & "WHERE TargetInstance " & "ISA 'Win32_process' " & "AND TargetInstance.Name = 'rdpclip.exe'" )
Set objEventObject = objEvenement.NextEvent()
with mail
.From="******@free.fr"
.To="******@free.fr"
.Subject="test"
.TextBody="TSE démarré"
.configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "smtp.free.fr"
.configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.configuration.fields.update
.send
end with