Email automatisch versenden bei windows anmeldung

iUser

Cadet 4th Year
Registriert
Apr. 2006
Beiträge
79
Hi!

Ich baue grade einen PC für meinen kleinen Cousin, meine tante (seine mutter) hat mich gebeten, herauszufinden, ob es möglich ist, dass sie automatich eine email bekommt, wenn er sich an den PC anmeldet. Der hintergrund ist, dass sie dann auch merkt, wenn er am PC war, wenn sie nicht zuhause war, und mein cousin nicht an den computer durfte, denn restriktionsmaßnahmen, wie Tastatur mitnehmen sind in einem haushalt mit 3 PC's nicht effektiv und software jedesmal einzurichten, wenn er nicht darf, während seine mutter einkauft zu aufwändig. zusätzlich wird so eine art vertrauensbasis geschaffen ("du kannst zwar an den pc, darfst es aber nicht. ich verbiete es, verhindere es aber nicht.")

danke für eure antworten.
 
Andere Möglichkeit:
Schau dir mal die Jugendschutzoptionen von Windows 7 an.
Diese sind nämlich überaschend gut ausgefallen.

EDIT:
Es gäbe sicherlich auch eine Möglichkeit eine automatische Benachrichtigung einzurichten, aber ich denke dass das langfristig keinen Sinn macht.

Noch eine Idee, wäre natürlich dem Jungen gegenüber einfach zu behaupten, dass eine solche Mailbenachrichtigung existiert (Abschreckung)
 
Jop, wollte ich auch gerade vorschlagen, Zeitlimits sind auch dort relativ einfach zu bewerkstelligen..
 
Man kann in der Aufgabenplanung (ehemals Taskmamager) meine ich zu einem best. Zeitpunkt ein Programm starten oder eben auch eine E-Mail versenden. Bei mir hat das jedoch noch nie funktioniert :-(
 
Hab eben mal noch ein wenig herumgestöbert.

Folgendes dabei gefunden: E-Mail per VBScript versenden (mit Erklärung der notwendigen Einstellungen)
Code:
option explicit
 
Dim oEmail, oConf
Dim authuser, authpass, smtpserver
Dim recipient,sender,subject,message
 
authuser="foo"
authpass="bla"
smtpserver="myservername"
 
recipient="recipient@example.org"
sender="sender@example.org"
subject="Test E-Mail"
message="My Test E-Mail"
 
Set oEmail = CreateObject("CDO.Message")
Set oConf = CreateObject("CDO.Configuration")
 
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = authuser
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = authpass
oConf.Fields.Update
 
oEmail.Configuration = oConf
oEmail.To = recipient
oEmail.From = sender
oEmail.ReplyTo = sender
oEmail.Subject = subject 
oEmail.HTMLBody = message
 
oEmail.Send
 
Set oConf = Nothing
Set oEmail = Nothing

Habe es mal testweise unter Windows XP & Windows 7 probiert und es funktioniert..

Greets
smiler10
 
Zuletzt bearbeitet:
Win7-Jugendschutz: alles schön und gut, nur der rechner ist ne alte klapperkiste mit WinXP auf nem athlonXP 1600+ und 512 MB RAM und ner radeon 9600, ein reste-pc eben, den ich aus alten teilen gebaut habe, weil meine tante sehr knapp bei kasse ist.
 
Ich wüsste nicht,
wieso man einem Kind verbieten sollte den PC zu benutzen.
Meine Eltern haben mir das auch nie verboten
und ich habe trotzdem ein reales Leben und einen guten Abschluss. ;)
 
mein cousin hat ADHS. deswegen alles schön geregelt.
 
Zurück
Oben