# Generate-Subnet2SitefromAD
#
# requires ActiveDirectory Module
#
# 20170927 frank.carius@netatwork.de  Initial Version

param (
	$subnet2sitecsvfile  = ".\subnet2site.csv"
)

write-host "Generate-Subnet2SitefromAD: Start"
write-host "Generate-Subnet2SitefromAD: Param: subnet2sitecsvfile $subnet2sitecsvfile"
Get-ADReplicationSubnet -Filter * `
| %{write-host "Processing $($_.name)";$_} `
| select `
	@{name="SubnetC";Expression={$_.Name.split(".")[0..2] -join "."}}, `
	@{name="Site";Expression={$_.Site.split("=,")[1]}} `
| Export-csv `
	-path $subnet2sitecsvfile `
	-notypeinformation `
	-encoding unicode

write-host "Generate-Subnet2SitefromAD: End"