Test connectivity and convert ip to computer name

GetDNSFromIP.ps1

	#TODO: Place custom script here
	Import-Module Activedirectory
$preSearchComputer = "10.140.8.155"
foreach ($item in ([system.Net.dns]::GetHostByName($preSearchComputer)).AddressList.ipaddresstostring)
{
	if (Test-Connection -ComputerName $item -Count 1 -Quiet)
	{
		$Computer = ([System.Net.Dns]::GetHostByAddress($item)).HostName
		$system = Get-WmiObject Win32_ComputerSystem -ComputerName "$Computer" | Select-Object -property name
		$networkResult = Get-WmiObject win32_networkadapterconfiguration -Filter 'ipenabled = "true"' -ComputerName $Computer
		$os = Get-WmiObject Win32_OperatingSystem -ComputerName $Computer
		$description = Get-ADComputer -Filter ('Name -like "*' + $($Computer.Split("."))[0] + '*"') -Property description
		
		$Object = New-Object PSObject -Property @{
			'Name'	    = $system.Name
			'IP Address' = $networkResult.IPAddress
			'OS Caption' = $os.Caption
			'Description' = $description.description
		}
		
		$richtextbox1.Text = $object.psobject.properties | Where-Object{ $_.membertype -eq "noteproperty" } | ForEach-Object{
			"$($_.name) - $($_.value)`r`n"
		}
	}
}