' Ikke kjør dette skriptet slik det er!!
Dim objEmail
Dim WshNetwork, strUser
Set WshNetwork = WScript.CreateObject("WScript.Network")
strUser = WshNetwork.userName

Set objEmail = CreateObject("CDO.Message")
objEmail.From = strUser +"@ulrik.uio.no"
objEmail.To = "cicinst@cicero.uio.no"
objEmail.Subject = "Jeg,brukeren - " + strUser + " er en tulling" 
objEmail.Textbody = "Som du ser er dette et bevis på at " + strUser + " er en sikkelig tulling."
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "smtp.uio.no" 
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send