Ich möchte eine Email bekommen, wenn sich ein bestimmter User an einer Windows Domäne anmeldet

'----------eMail---------  
Const smtp = "Mailserver"  
Const user = ""  
Const pass = ""  
Const from = "test@test.com" 'Hier MUSS eine Mail-Adresse stehen sonst Fehlermeldung  
Const empfaenger = "empfaenger@test.com"  

'Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.  
'Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).  
'Const cdoAnonymous = 0 'Do not authenticate  
Const cdoBasic = 1 'basic (clear-text) authentication  
'Const cdoNTLM = 2 'NTLM  
'----------eMail---------  

Sub eMail
	Dim WshNetwork
	Dim ObjSendMail
	Const cdoAnonymous = 0 'Do not authenticate  
	Const cdoBasic = 1 'basic (clear-text) authentication  
	Const cdoNTLM = 2 'NTLM  
	Set WshNetwork = Wscript.CreateObject("Wscript.Network")  
	Set ObjSendMail = CreateObject("CDO.Message")  
	ObjSendMail.Subject = "Mail von " & WshNetwork.ComputerName  
	ObjSendMail.Sender = from   
	ObjSendMail.To = empfaenger
	ObjSendMail.TextBody = "Auf dem PC " & strComputerName & " hat sich am " & Date & " um " & Time & " der Benutzer " & UCase(strUserName) & " angemeldet." & vbcrlf  
	'==Dieser Teil entält die Konfigurationsinformationen des SMTP server.  
	
	'Send the message using the network (SMTP over the network).  
	ObjSendMail.Configuration.Fields.Item _
	("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2   
	
	'Name oder IP vom SMTP Server  
	ObjSendMail.Configuration.Fields.Item _
	("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp  
	
	'Art der Authentifikation, NONE, cdoBasic (Base64 encoded), NTLM  
	ObjSendMail.Configuration.Fields.Item _
	("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAnonymous'NONE  
	
	'Benutzername auf dem SMTP server  
	ObjSendMail.Configuration.Fields.Item _
	("http://schemas.microsoft.com/cdo/configuration/sendusername") = from  
	
	'Password auf dem SMTP server  
	ObjSendMail.Configuration.Fields.Item _
	("http://schemas.microsoft.com/cdo/configuration/sendpassword") = pass  
	
	'Serverport (normalerweise 25)  
	ObjSendMail.Configuration.Fields.Item _
	("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25   
	
	'SSL verwenden (False oder True)  
	ObjSendMail.Configuration.Fields.Item _
	("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False  
	
	'Connection Timeout in Sekunden (Zeit die CDO versucht, um mit den Mailserver zu connecten)  
	ObjSendMail.Configuration.Fields.Item _
	("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60  
	
	ObjSendMail.Configuration.Fields.Update
	
	'==Ende der Konfigurationsinformationen des SMTP server==  
	
	ObjSendMail.Send
End Sub