Connection au bureau a distance

Bonjour tous le monde,

Je suis un administrateur d'un domaine sur toute une région et je recherche le moyen de connaitre via l'envoie de mail qui se connecte en bureau a distance sur mes serveurs.
Le bon c'est qu'un script vbs s'exécute au démarrage du serveur et me renvoie les information.
J'ai déja commencer mais je bloque complètement, si quelqu'un pourrais m'aider se serait simpa.
voici se que j'ai déja fait et n'hésitez a me corriger.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
i=0
strcomputer = "."
Set ObjWMIServices = GetObject ("Winmgmts:" & "\\"  & strcomputer & "\root\cimv2" )
 
Set colServices = ObjWMIservices.ExecNotificationQuery ("SELECT * FROM __InstanceCreationEvent " & "WITHIN 2 " &_
	"WHERE TargetInstance " & "ISA 'Win32_process' ")
 
Set colService = ObjWMIservices.ExecNotificationQuery ("SELECT * FROM __InstanceCreationEvent " & "WITHIN 2 " &_
	"WHERE TargetInstance " & "ISA 'Win32_process' ")
 
do while i=0
	Set objService = colServices.NextEvent
	Set objServices = colService.NextEvent
 
		set mail = CreateObject("CDO.Message")
		Set ObjWMIServices = GetObject ("Winmgmts:" & "\\"  & strcomputer & "\root\cimv2" )
 
		Set objEvenement = ObjWMIServices.ExecNotificationQuery ("SELECT * FROM __InstanceCreationEvent " & _
			"WITHIN 2 " & "WHERE TargetInstance " & "ISA 'Win32_process'" )
 
		Set objEvenements = ObjWMIServices.ExecNotificationQuery ("SELECT * FROM __InstanceCreationEvent " & _
			"WITHIN 2 " & "WHERE TargetInstance " & "ISA 'Win32_Session'" )
 
		Set objEventObject = objEvenement.NextEvent()
		Set objEventsObject = objEvenements.NextEvent()
 
		With mail
			.From="toto@free.fr"
			.To="toto@free.fr"
			.Subject="Changement d'Etat"
			.TextBody=vbCrLf & "Le service " & objService.TargetInstance.Name & " a changer d'état sur le serveur " & vbCrLf &_
				 strcomputer & vbCrLf & objservice.TargetInstance.ExecutionState & vbCrLf &_
				 objservices.TargetInstance.StartTime & vbCrLf 
 
			.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
loop