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