$Input = Get-QADComputer -SizeLimit 0 | where {$_.OSName -match "Windows Server" }
 
$expfileok = New-Item -ItemType file -Path .\TermServLicensing.csv -Force
Add-Content -Path $expfileok -Value "Name,OK"
 
 
foreach ($server in $Input)
{
$version = $null
$version = Get-WmiObject Win32_OperatingSystem -ComputerName $server.name -ErrorAction SilentlyContinue
 
	If ( $version -eq $null)
	{
		Write-Host $server.name " Inaccessible." -Separator ","  -ForegroundColor Red
	}
	Else
	{
 
	$Service = Get-Service -ComputerName $server.name -Name "TermServLicensing" -ErrorAction SilentlyContinue
		If ($Service.name -eq "TermServLicensing")
		{
		Write-Host $server.name "OK"-Separator "," -ForegroundColor Green
		Add-Content -Path $expfileok -Value "$($server.name),$("OK")"
 
		}
	}	
}