"Free Disk Space exceeded on" & Console.WriteLine(WMI("Name").ToString())

 
Module Module1
    Sub Main()
        'Mail(Header)
        Dim m As New MailMessage("user2@mydomain.com", "user1@mydomain.com", _
          "Free Disk Space exceeded on " & Environment.MachineName, "Der" & _
          "Schwellwert für C: wurde überschritten")
        'SmtpClient instanzieren mit SMTP-Adresse des Servers
        Dim sc As New SmtpClient("mail.mydomain.de")
        'Credential erzeugen und initialisieren
        Dim cred As New NetworkCredential("username", "password", "Domain")
        'Credentionals den SmtpClient zuweisen
        sc.Credentials = cred
        'Nachricht(senden)
        sc.Send(m)
 
 
    End Sub