Get Azure Virtual Networks with PowerShell

Get-AzureVirtualNetwork.ps1

function Get-AzureVirtualNetwork
{            
        
        #Get the current Network Config
        $XML = Get-AzureVNetConfig 
        #Define it as XML
        [ xml ]$fileContents = $XML.XMLConfiguration

        
        #Get to the root of the Network Configuration
        $networks = $fileContents.DocumentElement.VirtualNetworkConfiguration.VirtualNetworkSites.VirtualNetworkSite
        #How Many Sites?
        $SiteCount = ($fileContents.DocumentElement.VirtualNetworkConfiguration.VirtualNetworkSites.VirtualNetworkSite.Name).Count
        # Start the count at 0 so we can work through the multi-dimensional arrays
        $Count = 0

#-------------------- Single Site
# Root network config is structured differently 

    if($SiteCount -eq 1)
    {


        $Site = @()

        While($Count -le $SiteCount -and $Count -ne $SiteCount)
            {
                
                #Start Site
                $Object = New-Object System.Object

                #Get The Network Site Name & Location - Static amoungst whole network site
                $Object | Add-Member -type NoteProperty -name "Name" -Value $Networks.Name
                $Object | Add-Member -type NoteProperty -name "Location" -Value $Networks.Location
                $Object | Add-Member -Type NoteProperty -name "Network" -Value $Networks.Name
                $Object | Add-Member -Type NoteProperty -name "Type" -Value "Site"
                $object | Add-Member -Type NoteProperty -name "AddressPrefix" -value $Networks.addressspace.AddressPrefix
                $Site += $Object
                
                #Get All the Subnets in the Network
                $SubnetCount = ($Networks.subnets.subnet.name).count
                if($SubnetCount -gt 0)
                    {
                        $SubNetCounts = 0
                        while($SubnetCounts -le $SubnetCount -and $SubnetCounts -ne $SubnetCount)
                        {
                        $Object = New-Object System.Object

                        if($SubNetCounts -eq 0)
                            {
                            
                                $SubnetNamesCount = ($networks.subnets.Subnet.name).count
                                if($SubnetNamesCount -gt 1)
                                {
                                $Object | Add-Member -type NoteProperty -name "Name" -Value $networks.subnets.Subnet.name[0]
                                }
                                else
                                {
                                $Object | Add-Member -type NoteProperty -name "Name" -Value $networks.subnets.Subnet.name
                                }
                            $Object | Add-Member -Type NoteProperty -name "Network" -Value $Networks.Name
                            $Object | Add-Member -type NoteProperty -name "Location" -Value $Networks.Location
                            $Object | Add-Member -Type NoteProperty -name "Type" -Value "Subnet"
                            
                                $PrefixCount = ($networks.subnets.Subnet.AddressPrefix).count
                                if($PrefixCount -gt 1)
                                {
                                $object | Add-Member -Type NoteProperty -name "AddressPrefix" -value $networks.subnets.Subnet.AddressPrefix[0]
                                }
                                else
                                {
                                $object | Add-Member -Type NoteProperty -name "AddressPrefix" -value $networks.subnets.Subnet.AddressPrefix
                                }

                            }
                            else
                            {
                            $Object | Add-Member -type NoteProperty -name "Name" -Value $networks.subnets.Subnet.name[$SubNetCounts]
                            $Object | Add-Member -Type NoteProperty -name "Network" -Value $Networks.Name
                            $Object | Add-Member -type NoteProperty -name "Location" -Value $Networks.Location
                            $Object | Add-Member -Type NoteProperty -name "Type" -Value "Subnet"
                            $object | Add-Member -Type NoteProperty -name "AddressPrefix" -value $networks.subnets.Subnet.AddressPrefix[$SubNetCounts]
                            }

                        $Site += $Object
                        $SubNetCounts++
                        }
                    }
            $Count++
            }
            
}

#--------------------End

#--------------------Sites > 1 

    if($SiteCount -gt 1)
    {


        $Site = @()
        While($Count -le $SiteCount -and $Count -ne $SiteCount)
            {
                
                #Start Site
                $Object = New-Object System.Object

                #Get The Network Site Name & Location - Static amoungst whole network site
                $Object | Add-Member -type NoteProperty -name "Name" -Value $Networks[$count].Name
                $Object | Add-Member -type NoteProperty -name "Location" -Value $Networks[$count].Location
                $Object | Add-Member -Type NoteProperty -name "Network" -Value $Networks[$count].Name
                $Object | Add-Member -Type NoteProperty -name "Type" -Value "Site"
                $object | Add-Member -Type NoteProperty -name "AddressPrefix" -value $Networks[$count].addressspace.AddressPrefix
                $Site += $Object

                #Get All the Subnets in the Network
                $SubnetCount = ($Networks[$count].subnets.subnet.name).count
                if($SubnetCount -gt 0)
                    {
                        $SubNetCounts = 0
                        while($SubnetCounts -le $SubnetCount -and $SubnetCounts -ne $SubnetCount)
                        {
                        $Object = New-Object System.Object

                        if($SubNetCounts -eq 0)
                            {
                            
                                $SubnetNamesCount = ($networks[$count].subnets.Subnet.name).count
                                if($SubnetNamesCount -gt 1)
                                {
                                $Object | Add-Member -type NoteProperty -name "Name" -Value $networks[$count].subnets.Subnet.name[0]
                                }
                                else
                                {
                                $Object | Add-Member -type NoteProperty -name "Name" -Value $networks[$count].subnets.Subnet.name
                                }
                            $Object | Add-Member -Type NoteProperty -name "Network" -Value $Networks[$count].Name
                            $Object | Add-Member -type NoteProperty -name "Location" -Value $Networks[$count].Location
                            $Object | Add-Member -Type NoteProperty -name "Type" -Value "Subnet"
                            
                                $PrefixCount = ($networks[$count].subnets.Subnet.AddressPrefix).count
                                if($PrefixCount -gt 1)
                                {
                                $object | Add-Member -Type NoteProperty -name "AddressPrefix" -value $networks[$count].subnets.Subnet.AddressPrefix[0]
                                }
                                else
                                {
                                $object | Add-Member -Type NoteProperty -name "AddressPrefix" -value $networks[$count].subnets.Subnet.AddressPrefix
                                }

                            }
                            else
                            {
                            $Object | Add-Member -type NoteProperty -name "Name" -Value $networks[$count].subnets.Subnet.name[$SubNetCounts]
                            $Object | Add-Member -Type NoteProperty -name "Network" -Value $Networks[$count].Name
                            $Object | Add-Member -type NoteProperty -name "Location" -Value $Networks[$count].Location
                            $Object | Add-Member -Type NoteProperty -name "Type" -Value "Subnet"
                            $object | Add-Member -Type NoteProperty -name "AddressPrefix" -value $networks[$count].subnets.Subnet.AddressPrefix[$SubNetCounts]
                            }

                        $Site += $Object
                        $SubNetCounts++
                        }
                    }
            $Count++
            }
#--------------------End
    }
$Site 

}


function Get-AzureVirtualNetworkRoutes
{
        #Get the current Network Config
        $XML = Get-AzureVNetConfig 
        
        #Define it as XML
        [ xml ]$fileContents = $XML.XMLConfiguration
        
        #Get the current Local Network  Config
        $networks = $fileContents.DocumentElement.VirtualNetworkConfiguration.LocalNetworkSites.LocalNetworkSite
        

        #How Many Sites
        $SiteCount = ($fileContents.DocumentElement.VirtualNetworkConfiguration.LocalNetworkSites.LocalNetworkSite.Name).Count
           

        $Count = 0

#--------------------Get the local site routes

    if($SiteCount -eq 1)
    {

        $LocalSite = @()

        While($Count -le $SiteCount -and $Count -ne $SiteCount)
            {


                #Get All the Subnets in the Network
                $SubnetCount = ($Networks.AddressSpace.AddressPrefix).count
                if($SubnetCount -gt 0)
                    {
                        $SubNetCounts = 0
                        while($SubnetCounts -le $SubnetCount -and $SubnetCounts -ne $SubnetCount)
                        {
                            $Object = New-Object System.Object
                            $Object | Add-Member -Type NoteProperty -name "Network" -Value $Networks.Name
                            $object | Add-Member -Type NoteProperty -name "AddressPrefix" -value $Networks.AddressSpace.AddressPrefix[$SubNetCounts]

                        $LocalSite += $Object
                        $SubNetCounts++
                        }
                    }
            $Count++
            }

    }

#-------------------- END

$LocalSite

}