SMTP Test Script with GUI
Here is a little script I worked up some time ago to test my SMTP relay. It brings up a GUI where you populate the required info, saves that for the next run, and sends out a test email.
NOTE: The new version and all subsequent updates are at the PowerShell Gallery at https://www.powershellgallery.com
NOTE: The new version and all subsequent updates are at the PowerShell Gallery at https://www.powershellgallery.com
<#==============================================================================
File Name : SMTP_Relay_Test.ps1
Original Author : Kenneth C. Mazie (kcmjr AT kcmjr.com)
:
Description : This script will send an
email to the selected user,
: SMTP host, and SMTP port.
:
: The target email and
server IP are stored and recalled for
: subsequent runs.
:
Notes : Normal operation is with
no command line options.
:
Warnings : None
:
Legal : Public Domain. Modify and redistribute freely. No rights reserved.
: SCRIPT PROVIDED "AS IS" WITHOUT WARRANTIES OR GUARANTEES OF
: ANY KIND. USE AT YOUR OWN RISK. NO TECHNICAL SUPPORT PROVIDED.
:
Credits : Code snippets and/or ideas came from many sources including but
: not limited to the following:
:
Last Update by : Kenneth C. Mazie
Version History : v1.0 - 06-26-12 - Original
$CurrentVersion = "1.0"
Change History : v1.1 - 00-00-00 -
:
===============================================================================#>
Clear-Host
[System.Reflection.Assembly]::LoadWithPartialName("System.Drawing") | Out-null
[System.Reflection.Assembly]::LoadWithPartialName("System.windows.forms") | Out-Null
#--[ Variables ]--
[string]$Username = "user@domain.com" #--[ SSL authentication user. Adjust per
environment
[string]$Password = "Password" #--[ SSL
password. Adjust per environment
$erroractionpreference = "continue"
if (!(Test-Path -pathtype Container "C:\Scripts")){
new-item C:\Scripts -itemType Directory -Force #--[ Create local scripts folder.
}
if (Test-Path c:\Scripts\eMailRecipient.txt) {
[string]$eMailRecipient = Get-Content c:\Scripts\eMailRecipient.txt #--[ This should
be stored as email@domain.com, one line, one entry only
[string]$eMailDomain = $eMailRecipient.Split("@")[1]
}else{[string]$eMailRecipient = "";[string]$eMailDomain = ""}
if (Test-Path c:\Scripts\eMailServer.txt) {
[string]$SMTPserver = Get-Content c:\Scripts\eMailServer.txt #--[ This should be stored as one line,
one entry only
}else{[string]$SMTPserver = ""}
$date = Get-Date
[int]$FormWidth = 350
[int]$FormHeight = 240
$fcenter = ($fswidth / 2)
[int]$ButtonLeft = 55
[int]$ButtonTop = 167
#--[ FQDN of the local computer
]--
$objCompSys = Get-WmiObject win32_computersystem
$localComputer = $objCompSys.name+"."+$objCompSys.domain
Remove-Variable objCompSys
#--[ Functions ]--
Function ProcessMessage {
New-Item c:\Scripts\eMailRecipient.txt -type file -Value "$eMailRecipient@$eMailDomain" -Force -Confirm:$false #--[ Who to send status email to.
New-Item c:\Scripts\eMailServer.txt -type file -Value "$SMTPserver" -Force -Confirm:$false #--[ What server to send through.
$MailMessage = New-Object System.Net.Mail.MailMessage
$MailMessage.IsBodyHtml = $true
$SMTPserverClient = New-Object System.Net.Mail.smtpClient
$SMTPserverClient.host = $SMTPserver
If ($P465RadioButton.checked){
$SMTPport = 465
$SMTPserverClient.EnableSsl = $true
$SMTPserverClient.Credentials = New-Object System.Net.NetworkCredential($Username, $Password);
}
If ($P25RadioButton.checked){
$SMTPport = 25
$SMTPserverClient.EnableSsl = $false
$SMTPserverClient.Credentials = $null
}
#--[ Build Message Body ]--
$strBody = @"
<html><body>
<p>This is a SMTP test
email. Below are the details specific to
this test email:
<p>
<table border='1'>
<TR>
<th
WIDTH='50%'>Originating Computer</th>
<th
WIDTH='50%'>$localComputer</th>
</TR>
<TR>
<th
WIDTH='50%'>SMTP Server Address</th>
<th
WIDTH='50%'>$SMTPserver</th>
</TR>
<TR>
<th
WIDTH='50%'>SMTP Server Port</th>
<th
WIDTH='50%'>$SMTPport</th>
</TR>
<TR>
<th
WIDTH='50%'>Return Address (Sender)</th>
<th
WIDTH='50%'>SMTPtest@$eMailDomain</th>
</TR>
<TR>
<th
WIDTH='50%'>Recipient</th>
<th
WIDTH='50%'>$eMailRecipient@$eMailDomain</th>
</TR>
<TR>
<th
WIDTH='50%'>Date / Time</th>
<th
WIDTH='50%'>$date</th>
</TR>
</table>
<p> The SMTP test has
<b>COMPLETED SUCCESSFULLY</b> if you receive this email!
</body></html>
"@
$Recipient = New-Object System.Net.Mail.MailAddress("$eMailRecipient@$eMailDomain")
$Sender = New-Object System.Net.Mail.MailAddress("SMTPtest@$eMailDomain")
$SMTPserverClient.port = $SMTPport
$MailMessage.Subject = "Test SMTP
email over port $SMTPport from $SMTPserver"
$MailMessage.Sender = $Sender
$MailMessage.From = $Sender
$MailMessage.To.add($Recipient)
$MailMessage.Body = $strBody
Try {$SMTPserverClient.Send($MailMessage)}
Catch {
[System.Reflection.Assembly]::LoadWithPartialName(“System.Windows.Forms”)
[Windows.Forms.MessageBox]::Show($Error[0], “Error Sending
Email”, [Windows.Forms.MessageBoxButtons]::OK, [Windows.Forms.MessageBoxIcon]::Information)
}
$objForm.Close()
}
#-----------------------------[
Main Process ]----------------------------------
#--[ Create Form ]--
$objForm = new-object System.Windows.Forms.form
$objForm.Text = "SMTP Test
Script"
$objForm.size = new-object System.Drawing.Size($FormWidth,$FormHeight)
$objForm.StartPosition = "CenterScreen"
$objForm.KeyPreview = $true
$objForm.Add_KeyDown({if ($_.KeyCode -eq "Enter"){$Recipient=$objTextBox.Text;$objForm.Close()}})
$objForm.Add_KeyDown({if ($_.KeyCode -eq "Escape"){$objForm.Close();$Stop = $true}})
#--[ Add Form Lable ]--
$objFormLabelBox = new-object System.Windows.Forms.Label
$objFormLabelBox.Font = new-object System.Drawing.Font("New Times
Roman",9,[System.Drawing.FontStyle]::Bold)
$objFormLabelBox.Location = new-object System.Drawing.Size(38,5)
$objFormLabelBox.size = new-object System.Drawing.Size(400,20)
$objFormLabelBox.Text = "Select
SMTP test parameters to use:"
$objForm.Controls.Add($objFormLabelBox)
#--[ Add port 25 Radio Button ]--
$P25RadioButton = New-Object Windows.Forms.radiobutton
$P25RadioButton.text = "Use Port
25 (anonymous connection)"
$P25RadioButton.height = 20
$P25RadioButton.width = 220
$P25RadioButton.top = 113
$P25RadioButton.left = 65
$P25RadioButton.checked = $true
$objForm.controls.add($P25RadioButton)
#--[ Add SSL Radio Button ]--
$P465RadioButton = New-Object Windows.Forms.radiobutton
$P465RadioButton.text = "Use Port
465 (SSL connection)"
$P465RadioButton.height = 20
$P465RadioButton.width = 220
$P465RadioButton.top = 135
$P465RadioButton.left = 65
#$P465RadioButton.checked = $true
$objForm.controls.add($P465RadioButton)
#--[ Add Email Form Lable ]--
$objLabel1 = New-Object System.Windows.Forms.Label
$objLabel1.Location = New-Object System.Drawing.Point(20,25)
$objLabel1.Size = New-Object System.Drawing.Size(280,20)
$objLabel1.Text = "Enter the
email address where results should be sent:"
$objLabel1.TextAlign = [System.Drawing.ContentAlignment]::MiddleCenter
$objForm.Controls.Add($objLabel1)
#--[ Add Email Text Input Box ]--
$objTextBox1 = New-Object System.Windows.Forms.TextBox
$objTextBox1.Location = New-Object System.Drawing.Size(54,48)
$objTextBox1.Size = New-Object System.Drawing.Size(100,20)
#if (Test-Path
c:\Scripts\eMailRecipient.txt) {
$objTextBox1.Text = $eMailRecipient.split("@")[0]
#}
$objForm.Controls.Add($objTextBox1)
#--[ Add Email Domain Input Box
]--
$objLabel2 = New-Object System.Windows.Forms.Label
$objLabel2.Location = New-Object System.Drawing.Point(153,50)
$objLabel2.Size = New-Object System.Drawing.Size(14,20)
$objLabel2.Text = "@"
$objForm.Controls.Add($objLabel2)
#--[ Add Email @ Label ]--
$objTextBox2 = New-Object System.Windows.Forms.TextBox
$objTextBox2.Location = New-Object System.Drawing.Point(170,48)
$objTextBox2.Size = New-Object System.Drawing.Size(100,20)
$objTextBox2.Text = $eMailDomain
$objForm.Controls.Add($objTextBox2)
#$eMailDomain = $objTextBox2.Text
#--[ Add SMTP Host Form Lable ]--
$objLabel3 = New-Object System.Windows.Forms.Label
$objLabel3.Location = New-Object System.Drawing.Point(25,70)
$objLabel3.Size = New-Object System.Drawing.Size(280,20)
$objLabel3.Text = "Enter the
SMTP server to use:"
$objLabel3.TextAlign = [System.Drawing.ContentAlignment]::MiddleCenter
$objForm.Controls.Add($objLabel3)
#--[ Add SMTP Host Input Box ]--
$objTextBox3 = New-Object System.Windows.Forms.TextBox
$objTextBox3.Location = New-Object System.Drawing.Size(115,93)
$objTextBox3.Size = New-Object System.Drawing.Size(100,20)
#if (Test-Path
c:\Scripts\eMailServer.txt) {
$objTextBox3.Text = $SMTPserver
#}
$objForm.Controls.Add($objTextBox3)
#$SMTPserver = $objTextBox3.Text
#--[ Add GO Button ]--
$objProcessButton = new-object System.Windows.Forms.Button
$objProcessButton.Location = new-object System.Drawing.Size($ButtonLeft,$ButtonTop)
$objProcessButton.Size = new-object System.Drawing.Size(100,25)
$objProcessButton.Text = "Send
Email"
$objProcessButton.Add_Click({$to=$objTextBox1.Text;$SMTPserver=$objTextBox3.Text;$eMailRecipient=$objTextBox1.Text;$eMailDomain=$objTextBox2.Text;ProcessMessage;$objForm.Close()})
$objForm.Controls.Add($objProcessButton)
#--[ Add STOP Button ]--
$objCloseButton = new-object System.Windows.Forms.Button
$objCloseButton.Location = new-object System.Drawing.Size(($ButtonLeft+125),$ButtonTop)
$objCloseButton.Size = new-object System.Drawing.Size(100,25)
$objCloseButton.Text = "Cancel/Close"
$objCloseButton.Add_Click({$objForm.close()})
$objForm.Controls.Add($objCloseButton)
#--[ Open Form ]--
$objForm.topmost = $true
$objForm.Add_Shown({$objForm.Activate()})
$objForm.ShowDialog()
Comments
Post a Comment