• Up/Down status on servers(including individual services would be a huge bonus)
• Windows Event log errors
• Disk space utilization – trends
• Non server hardware alive status(routers, switches etc…)
• Custom alerts(ping, batch file etc..)

Forward Lookup Zones

        *Company Name*

                Name: (same as parent folder); Type: (SOA); Data:  [1], win-rgdmldi7rnf., hostmaster.

                Name: (same as parent folder); Type: (NS); Data:  win-rgdmldi7rnf.

        *Company Name*.Homip.net

                Name: (same as parent folder); Type: (SOA); Data: [8], *server name*., hostmaster.

                Name: (same as parent folder); Type: (NS); Data:  *server name*.

                Name: Mail; Type: (A); Data: 192.168.X.X

                Name: Mail; Type: (MX); Data: [10] mail.*Company Name*.Homip.net.

Reverse Lookup Zones

        X.168.192.in-addr.arpa

                Name: (same as parent folder); Type: (SOA); Data:  [4], *server name*., hostmaster.

                Name: (same as parent folder); Type: (NS); Data:  *server name*.

                Name: 192.168.X.X; Type: (PTR); Data: mail.*Company Name*.Homip.net.

<mailSettings>

<smtp from="max@bionex.ca">

<network defaultCredentials="false" host="localhost" password="XXXX" userName="XXXX" />

</smtp>

</mailSettings>

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)

        Label1.Text = "good?"

        Trace.warn("click")

        'Try

        'send email concerning the report

        'Instantiate a new instance of MailMessage

        Dim mMailMessage As New MailMessage()



        'Set the sender address of the mail message

        mMailMessage.From = New MailAddress("max@bionex.ca")

        'Set the recepient address of the mail message

        mMailMessage.To.Add(New MailAddress("max@bionex.ca"))



        'Set the subject of the mail message

        mMailMessage.Subject = "Subject"

        'Set the body of the mail message

        mMailMessage.Body = "Body"



        'Set the format of the mail message body as HTML

        mMailMessage.IsBodyHtml = True

        'Set the priority of the mail message to normal

        mMailMessage.Priority = MailPriority.High



        'Instantiate a new instance of SmtpClient

        Dim mSmtpClient As New SmtpClient("localhost")

        mSmtpClient.servicepoint.maxidletime = 1

        mSmtpClient.deliverymethod = smtpdeliverymethod.pickupdirectoryfromiis

        'Send the mail message

        mSmtpClient.Send(mMailMessage)

        'Catch ex As Exception

        'Label1.Text = "<h3>There Was an Error With The request</h3><p class='alert'>Please try again.<!--" & ex.ToString().Replace("-->", "- >") & "--></p>"

        'End Try

    End Sub