#Input from File List of Computers
$MyComputers=Get-Content 'C:\temp\MyComps.txt'
#====================
#Instantiate Array
#===================
$MyArray=@()
$MyFails=@()
#===============================
#Check Access to Each Computer
#===============================
Foreach($Comp in $MyComputers){       
If((Invoke-Command -ErrorAction SilentlyContinue –ComputerName $comp –ScriptBlock {1}) –eq 1){
$MyArray+=$Comp
}Else{
$MyFails+=$Comp
}
}
#---------------------------------------------
# Main Command to Execute on Remote Systems
#---------------------------------------------
$MyCommand={
#For Storing Results
$StartupResultsArray=@()
#Create List of Services
$ListofServicestoCheck=@('RemoteRegistry','WinRM','mpssvc')
#==================Loop Through Services to Set Startmode to Automatic===================
Foreach($service in $ListofServicestoCheck){
#Get Service Info
$WMI = Get-WMIObject -class win32_service -namespace root\cimv2  | where-object { $_.name -eq $service } 
#Check if Service Already Set to Auto Start
If($WMI.StartMode -ne "Auto"){        
#If Not Set to Auto, Change it
$Return = $WMI.changestartmode("Automatic") 
#Check to See if Error Returned
if($Return.returnvalue -eq 0){
$StartupResultsArray+="$Service `t StartMode Success"
}Else{
$StartupResultsArray+="$Service `t StartMode Failure"
}
}Else{
#Message if Service Already in Automatic Startup Mode
$StartupResultsArray+="$Service `t StartMode Already Set"
}
}
Return $StartupResultsArray
} #End Main Command 
#Execute Main Command And Export Results to Screen
Invoke-Command -ComputerName $MyArray -ScriptBlock $MyCommand