Module Module1
    Sub Main()
        'Auslesen des Computernamens via WMI'
        Dim WMI_Return As ManagementObjectCollection
        Dim WMI_Search As ManagementObjectSearcher
        Dim WMI As ManagementObject
        WMI_Search = New ManagementObjectSearcher("SELECT * FROM" & _
          "Win32_ComputerSystem")
        WMI_Return = WMI_Search.Get
        For Each WMI In WMI_Return
            Console.WriteLine(WMI("Name").ToString())
        Next
        'Mail versenden der Daten
 
        'Mail(Header)
        Dim m As New MailMessage("user2@mydomain.com", "user1@mydomain.com", _
          "Free Disk Space exceeded on" & Console.WriteLine(WMI( _
          "Name").ToString()) &, "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