function MAIN {
InitialiseSheet
ProcessDomain "c:\serverlist.txt"
}

Function Test-MachineCredentials {
	Param($domainx)
	Add-Type -AssemblyName System.DirectoryServices.AccountManagement
	$ct = [System.DirectoryServices.AccountManagement.ContextType]::Machine
	$pc = New-Object System.DirectoryServices.AccountManagement.PrincipalContext($ct, $domainx)
	New-Object PSObject -Property @{
		UserName = $usernamex;
		IsValid = $pc.ValidateCredentials("47ecrivez", "gR@v1tY0").ToString()
		}
}

function InitialiseSheet{
$erroractionpreference = "SilentlyContinue"
$a = New-Object -comobject Excel.Application
$a.visible = $True 

$b = $a.Workbooks.Add()
$global:c = $b.Worksheets.Item(1)

$global:c.Cells.Item(1,1) = "Server"
$global:c.Cells.Item(1,2) = "Password"
$global:c.Cells.Item(1,3) = "Domain"
$global:c.Cells.Item(1,4) = "Ping"
$global:c.Cells.Item(1,5) = "NIC Name1"
$global:c.Cells.Item(1,6) = "MAC"
$global:c.Cells.Item(1,7) = "IP"
$global:c.Cells.Item(1,8) = "IP2"
$global:c.Cells.Item(1,9) = "IP3"
$global:c.Cells.Item(1,10) = "DNS"
$global:c.Cells.Item(1,11) = "DNS2"
$global:c.Cells.Item(1,12) = "WINS1"
$global:c.Cells.Item(1,13) = "WINS2"
$global:c.Cells.Item(1,14) = "Speed/Duplex"

$global:c.Cells.Item(1,15) = "NIC Name3"
$global:c.Cells.Item(1,16) = "MAC"
$global:c.Cells.Item(1,17) = "IP"
$global:c.Cells.Item(1,18) = "IP2"
$global:c.Cells.Item(1,19) = "IP3"
$global:c.Cells.Item(1,20) = "DNS"
$global:c.Cells.Item(1,21) = "DNS2"
$global:c.Cells.Item(1,22) = "WINS1"
$global:c.Cells.Item(1,23) = "WINS2"
$global:c.Cells.Item(1,24) = "Speed/Duplex"

$global:c.Cells.Item(1,25) = "NIC Name3"
$global:c.Cells.Item(1,26) = "MAC"
$global:c.Cells.Item(1,27) = "IP"
$global:c.Cells.Item(1,28) = "IP2"
$global:c.Cells.Item(1,29) = "IP3"
$global:c.Cells.Item(1,30) = "DNS"
$global:c.Cells.Item(1,31) = "DNS2"
$global:c.Cells.Item(1,32) = "WINS1"
$global:c.Cells.Item(1,33) = "WINS2"

$global:c.Cells.Item(1,35) = "Route1"
$global:c.Cells.Item(1,36) = "Mask1"
$global:c.Cells.Item(1,37) = "Destination1"

$global:c.Cells.Item(1,39) = "Route2"
$global:c.Cells.Item(1,40) = "Mask2"
$global:c.Cells.Item(1,41) = "Destination2"

$global:c.Cells.Item(1,43) = "Route3"
$global:c.Cells.Item(1,44) = "Mask3"
$global:c.Cells.Item(1,45) = "Destination3"


$global:d = $global:c.UsedRange
$global:d.Interior.ColorIndex = 19
$global:d.Font.ColorIndex = 11
$global:d.Font.Bold = $True
$global:d.EntireColumn.AutoFit($True)

$global:intRow = 2
}

Function ProcessDomain {
	Param($csv)
	
	$list = import-csv $csv

foreach($entry in $list)
{

echo $global:intRow $entry.Name
$x = [String] $entry.Name

$global:c.Cells.Item($global:intRow, 1) = $x
$global:c.Cells.Item($global:intRow, 3) = $dom




 if ((gwmi Win32_PingStatus -Filter "Address='$x'").StatusCode –eq 0) 
		 {
		
		$global:c.Cells.Item($global:intRow, 4) = “Up”

$socket = new-object Net.Sockets.TcpClient
$socket.Connect($x, 3389)

if ($socket.connected -eq $true ){

		
			if ((Test-MachineCredentials $entry.Name).IsValid –eq $True) 
			{
			$global:c.Cells.Item($global:intRow, 2) = “Accepted”
			}
			else {
			$global:c.Cells.Item($global:intRow, 2) = “Denied”
			}



		
		$nic = 0
		$colItems = Get-wmiobject -class "Win32_NetworkAdapterConfiguration" -computername $entry.Name | Where{$_.IpEnabled -Match "True"}
		
		foreach ($objItem in $colItems) {
			$colAdapter  = Get-wmiobject -class "Win32_NetworkAdapter" -computername $entry.Name | Where{$_.MACAddress -Match $objItem.MACAddress}
			foreach ($objAdapter in $colAdapter) {
			$global:c.Cells.Item($global:intRow, 5 + $nic) = $objAdapter.NetConnectionId
						
				$registry = [Microsoft.Win32.RegistryKey]::OpenRemoteBaseKey([Microsoft.Win32.RegistryHive]::LocalMachine, $entry.Name)
				$baseKey = $registry.OpenSubKey("SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}")
				$subKeyNames = $baseKey.GetSubKeyNames()
				ForEach ($subKeyName in $subKeyNames)
				{
					$subKey = $baseKey.OpenSubKey("$subKeyName")
					$ID = $subKey.GetValue("NetCfgInstanceId")
					If ($ID -eq $objItem.SettingId)
					{
						$componentID = $subKey.GetValue("ComponentID")
						If ($componentID -match "ven_14e4")
						{
							# $myObj.NICModel = "Broadcom"
							$requestedMediaType = $subKey.GetValue("RequestedMediaType")
							$enum = $subKey.OpenSubKey("Ndi\Params\RequestedMediaType\Enum")
							$global:c.Cells.Item($global:intRow, 14 + $nic) = $enum.GetValue("$requestedMediaType")
						}
						ElseIf ($componentID -match "ven_8086")
						{
							# $myObj.NICModel = "Intel"
							$SD = $subKey.GetValue("SpeedDuplex")
							$enum = $subKey.OpenSubKey("Ndi\Params\SpeedDuplex\Enum")
							$global:c.Cells.Item($global:intRow, 14 + $nic) = $enum.GetValue("$SD")
						}
						ElseIf ($componentID -match "b06bdrv")
						{
							# $myObj.NICModel = "HP"
							$SD = $subKey.GetValue("req_medium")
							$enum = $subKey.OpenSubKey("Ndi\Params\req_medium\Enum")
							$global:c.Cells.Item($global:intRow, 14 + $nic) = $enum.GetValue("$SD")
						}
						Else
						{
							#$myObj.NICModel = "unknown"
							$global:c.Cells.Item($global:intRow, 14 + $nic) = "unknown"
						}
					}
				}
			}

		$global:c.Cells.Item($global:intRow, 6 + $nic) = $objItem.MACAddress
		$global:c.Cells.Item($global:intRow, 7 + $nic ) = $objItem.IPAddress[0]
		$global:c.Cells.Item($global:intRow, 8 + $nic ) = $objItem.IPAddress[1]
		$global:c.Cells.Item($global:intRow, 9 + $nic ) = $objItem.IPAddress[2]
		$global:c.Cells.Item($global:intRow, 10+ $nic) = $objItem.DNSServerSearchOrder[0]
		$global:c.Cells.Item($global:intRow, 11+ $nic) = $objItem.DNSServerSearchOrder[1]
		$global:c.Cells.Item($global:intRow, 12+ $nic) = $objItem.WINSPrimaryServer 
		$global:c.Cells.Item($global:intRow, 13 + $nic) = $objItem.WINSSecondaryServer 
		   
		   $nic = $nic + 10 
		   
		}
		
		

		
		$colRoutes = Get-wmiobject -class "Win32_IP4PersistedRouteTable" -namespace "root\CIMV2" -computername $entry.Name
		$route = 0
			foreach ($objRoute in $colRoutes) {

			$global:c.Cells.Item($global:intRow, 35 + $route) = $objRoute.Destination
			$global:c.Cells.Item($global:intRow, 36 + $route) = $objRoute.Mask
			$global:c.Cells.Item($global:intRow, 37 + $route) = $objRoute.NextHop 

			$route = $route + 4
			}
		

		}
		else 
		{
		$global:c.Cells.Item($global:intRow, 4) = "Other OS"
		}
} 
else 
{
$global:c.Cells.Item($global:intRow, 4) = "Offline"
}

$global:intRow = $global:intRow + 1
$global:d.EntireColumn.AutoFit()
}
}

#execute the script
Main