Aller au contenu

mavric

Membres
  • Compteur de contenus

    4
  • Inscription

  • Dernière visite

mavric's Achievements

Junior Member

Junior Member (3/12)

0

Réputation sur la communauté

  1. mavric

    Vérification des TSE

    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?
  2. mavric

    Vérification des TSE

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

    Vérification des TSE

    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.
  4. 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
×
×
  • Créer...