mavric

Bonjour, J'ai bien réessayé le script avec toute les modifications et cela ne fonctionne pas. Je ne comprend pas car il m'a mis qu'il ne gére pas la fonction aurais je oublier quelque chose?

Ok merci pour les information. Je testerais toute tous cela Lundi et je vous tiendrais au courant

Salut, se que je veux c'est l'utilisateur qui utilise le bureau a distance. Merci pour l'info. Sinon juste une chose le script qui est au dessus ne m'envoie pas de mail et je me demande si il est bon.

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