Function for Powershell to test if TCP port answers

function Test-Port($hostname, $port)
{
    # This works no matter in which form we get $host - hostname or ip address
    try {
        $ip = [System.Net.Dns]::GetHostAddresses($hostname) | 
            select-object IPAddressToString -expandproperty  IPAddressToString
        if($ip.GetType().Name -eq "Object[]")
        {
            #If we have several ip's for that address, let's take first one
            $ip = $ip[0]
        }
    } catch {
        Write-Host "Possibly $hostname is wrong hostname or IP"
        return
    }
    $t = New-Object Net.Sockets.TcpClient
    # We use Try\Catch to remove exception info from console if we can't connect
    try
    {
        $t.Connect($ip,$port)
    } catch {}

    if($t.Connected)
    {
        $t.Close()
       $true
    }
    else
    {
     $false                              
    }

}

Powershell: Start all services with startuptype: Automatic on remote server

start_services

param (
    [string]$computer 
)
$services = Get-Service -Computer $Computer| Where-Object { $_.Starttype -like "Automatic*" -and $_.status -notlike "Running" } |select name, starttype, status

if ($services) {
foreach ( $service in $services){
get-service -computername $computer -name $service.name | start-service
write-host "Starting service:" $service.name "on Computer:" $computer -ForegroundColor green
}
}
else {
write-host "No services to start" -ForegroundColor yellow
}

Remote powershell

Allow remote powershell
Enable-PSRemoting -Force 
Enable-WSManCredSSP -Role Server -Force
Get-Service winrm | Start-Service 
Enable-WSManCredSSP -Role Client -DelegateComputer * -Force 
Set-ItemProperty HKLM:\SYSTEM\CurrentControlSet\Control\Lsa\Credssp\PolicyDefaults\AllowFreshCredentials -Name WSMan -Value WSMAN/* 
Set-ItemProperty HKLM:\SYSTEM\CurrentControlSet\Control\Lsa\Credssp\PolicyDefaults\AllowFreshCredentialsDomain -Name WSMan -Value WSMAN/*  

Test from an other machine: 
Invoke-Command -ComputerName Remote-Server -ScriptBlock {Get-host}


Allow crossdomain:
On remote server do the above and:
New-Itemproperty -name LocalAccountTokenFilterPolicy -path HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System -propertyType DWord -value 1

On remote and local machine run:
Set-item wsman:localhost\client\trustedhosts -value 'server1,server2,server3'

Test from an other machine: 
$credential = Get-Credential
Invoke-Command -ComputerName RM-SERVER -ScriptBlock {Get-Process} -Credential $credential

Send SMS via modem and Powershell

$comport = "COM10"
$msg = get-date
$ext = "+45"
$number = $ext + "12345678"


$serialPort= new-Object System.IO.Ports.SerialPort $comport,9600,None,8,one
$serialPort.open()
$serialPort.Write("E1")
$serialPort.Write("AT+CMGF=1`r`n") ; $serialPort.Readline()
$serialPort.Write("AT+CMGS=`"$number""`r`n"); $serialPort.Readline()
$serialPort.Write("$msg`r`n") ; $serialPort.Readline()
$serialPort.Write($([char] 26))
$serialPort.Readline()
$serialPort.Readline()
$serialPort.Readline()
$serialPort.Readline()
$serialPort.Readline()
$serialPort.Readline()
$serialPort.Close()