Modifying script to not prompt for information - Please Help

Question

Hello,
Wondering if any one can help me with this?
We just had one of our techs leave and he had come up with a PS script to check for specific Windows services and have them emailed daily so that we were alerted of any that are stopped.
It works perfectly except for the fact it prompts you to enter an 'Environment' for which you want to check this for. We would like to change it so that it doesn't prompt and just reports on the services for those servers listed and have it running as a scheduled
task.
See a copy of the script below.
Your assistance would greatly be appreciated.
#### Define Parameters
param (
[Parameter(Mandatory=$true, helpmessage="Which environment?")]
[validateset("Dummy","Prod")]
[string]$Environment)
#### Define variables
$HtmlFile="E:\temp\ServiceStatus.html"
#### Start Functions ####
Function Email
Send-MailMessage -SmtpServer emailserver.com -To [email protected] -From [email protected] -Subject Win-Services -Body ($Subject | Out-String) -BodyAsHtml -Priority High -UseSsl
Function Check-Services {
# Set server names based on environment selected
$Servers = switch ($Environment)
Prod {@('SERVER1','SERVER2')}
Dummy {@('SERVER3')}
# Check servers for active services
Foreach ($Server in $Servers)
try
$Services = switch ($Server)
#Prod servers
SERVER1 {@('Specific Service')}
SERVER2 {@('Specific Service','Another Service')}
#Dummy servers
SERVER3 {@('Specific Service','Another Specific Service')}
Foreach ($Service in $Services)
$global:ServiceStatus = @($ServiceStatus) + @(Get-Service -ComputerName $Server -Name $Service)
catch [Exception]
$global:ServiceExecption = $_.Exception.Message
finally
Out-Null
#### End Functions ####
# Check application services are running on all servers
Check-Services $Environment
# Build report
$Style = @"
<style>
TABLE {border-width: 1px;border-style: solid;border-color: black;border-collapse: collapse;}
TH {border-width: 1px;padding: 3px;border-style: solid;border-color: black;background-color: #6495ED;}
TD {border-width: 1px;padding: 3px;border-style: solid;border-color: black;}
</style>
$b = "<H2> Application Services</H2>"
$PostContent = "<i>Report generated by Service Technical automation</i>"
$ServiceStatusHTML = $ServiceStatus | Select MachineName,DisplayName,Status | ConvertTo-Html -Body $b
$Body = ($ServiceStatusHTML)
ConvertTo-Html -Title "Service Daily Report" -Head $Style -Body $Body -PostContent $PostContent | Out-File $HtmlFile
# Set Email body content
$Subject = Get-Content $HtmlFile
# Send Report
Email $Subject
Clear-Variable ServiceStatus -Scope Global

Answer 1

Like this?
#### Define variables
$HtmlFile="E:\temp\ServiceStatus.html"
#### Start Functions ####
Function Email
Send-MailMessage -SmtpServer emailserver.com -To [email protected] -From [email protected] -Subject Win-Services -Body ($Subject | Out-String) -BodyAsHtml -Priority High -UseSsl
Function Check-Services {
# Set server names based on environment selected
$Servers = @('SERVER1','SERVER2')
# Check servers for active services
Foreach ($Server in $Servers)
try
$Services = switch ($Server)
#Prod servers
SERVER1 {@('Specific Service')}
SERVER2 {@('Specific Service','Another Service')}
Foreach ($Service in $Services)
$global:ServiceStatus = @($ServiceStatus) + @(Get-Service -ComputerName $Server -Name $Service)
catch [Exception]
$global:ServiceExecption = $_.Exception.Message
finally
Out-Null
#### End Functions ####
# Check application services are running on all servers
Check-Services
# Build report
$Style = @"
<style>
TABLE {border-width: 1px;border-style: solid;border-color: black;border-collapse: collapse;}
TH {border-width: 1px;padding: 3px;border-style: solid;border-color: black;background-color: #6495ED;}
TD {border-width: 1px;padding: 3px;border-style: solid;border-color: black;}
</style>
$b = "<H2> Application Services</H2>"
$PostContent = "<i>Report generated by Service Technical automation</i>"
$ServiceStatusHTML = $ServiceStatus | Select MachineName,DisplayName,Status | ConvertTo-Html -Body $b
$Body = ($ServiceStatusHTML)
ConvertTo-Html -Title "Service Daily Report" -Head $Style -Body $Body -PostContent $PostContent | Out-File $HtmlFile
# Set Email body content
$Subject = Get-Content $HtmlFile
# Send Report
Email $Subject
Clear-Variable ServiceStatus -Scope Global