[Azure]使用AzurePowershell输出ARM模式下某个账号中所有订阅下的虚拟网络拓扑

该脚本输出ARM模式下某个账号中所有订阅下的网络拓扑结构，包括虚拟网络地址空间，子网范围，子网内的虚拟机的基本信息等。

脚本如下：

$Cred = New-Object System.Management.Automation.PSCredential("XXXXXXXXXXXXX@XXXXXXXXXXXXXX.partner.onmschina.cn",(ConvertTo-SecureString "XXXXXXXXXXX" -AsPlainText -Force));
$AzureRMCred = Get-Credential -Credential $Cred;
Login-AzureRmAccount -EnvironmentName AzureChinaCloud -Credential $AzureRMCred;

Function WriteToXMLOutput($str)
{
    $OutputfilePath = $PSScriptRoot + "\Network_Topology.xml";
    $str | Out-File $OutputfilePath -Append;
}

Function BuildLevelSpace($level)
{
    $levelSpace = "  ";
    $result = "";
    for ($i = 1; $i -lt $level; $i++)
    {
        $result += $levelSpace;
    }
    return $result;
}

Function BuildSubscriptionsHead()
{
    return (BuildLevelSpace 1) + "";
}

Function BuildSubscriptionsEnd()
{
    return (BuildLevelSpace 1) + "";
}

Function BuildSubscriptionHead($subscriptionName)
{
    return (BuildLevelSpace 2) + "";
}

Function BuildSubscriptionEnd($subscriptionName)
{
    return (BuildLevelSpace 2) + "";
}

Function BuildVirtualNetworksHead()
{
    return (BuildLevelSpace 3) + "";
}

Function BuildVirtualNetworksEnd()
{
    return (BuildLevelSpace 3) + "";
}

Function BuildVirtualNetworkHead($name, $address, $location)
{
    return (BuildLevelSpace 4) + "";
}

Function BuildVirtualNetworkEnd()
{
    return (BuildLevelSpace 4) + "";
}

Function BuildSubnetsHead()
{
    return (BuildLevelSpace 5) + "";
}

Function BuildSubnetsEnd()
{
    return (BuildLevelSpace 5) + "";
}

Function BuildSubnetHead($name, $address)
{
    return (BuildLevelSpace 6) + "";
}

Function BuildSubnetEnd()
{
    return (BuildLevelSpace 6) + "";
}

Function BuildVirtualMachinesHead()
{
    return (BuildLevelSpace 7) + "";
}

Function BuildVirtualMachinesEnd()
{
    return (BuildLevelSpace 7) + "";
}

Function BuildVirtualMachine($Name, $OSType, $Size, $IPAddress, $NicType)
{
    return (BuildLevelSpace 4) + "";
}

Function ListVNETTopology()
{
    $subscriptiOns= Get-AzureRmSubscription;

    WriteToXMLOutput ((BuildLevelSpace 1) + "");
    WriteToXMLOutput (BuildSubscriptionsHead);

    # loop all the subscriptions
    foreach($subscription in $subscriptions)
    {
        $subscriptiOnName= $subscription.SubscriptionName;
        Select-AzureRmSubscription -SubscriptionName $subscriptionName;
        WriteToXMLOutput (BuildSubscriptionHead $subscriptionName);

        # initialize mappings
        $VMDict = @{};            # key:vm.id      value:@{Name=vm.Name; OSType=VM.OSType; Size=VM.Size}
        $vms = Get-AzureRmVM;
        foreach($vm in $vms)
        {
            $VMDict.Add($vm.Id, @{Name=$vm.Name; OSType=$vm.StorageProfile.OsDisk.OsType; Size=$vm.HardwareProfile.VmSize;});
        }

        $NIC_VM_Map = @{};        # key:nic.id     value:vm.id
        $SubnetDict = @{};        # key:subnet.id  value:@{NicId=nic.id; NicType=Nic.IPConfigurations.PrivateIPAllocationMethod; CIP=Nic.IPConfigurations.PrivateIpAddress}
        $nics = Get-AzureRmNetworkInterface;
        foreach($nic in $nics)
        {
            if($nic.VirtualMachine.Id -ne $NULL)
            {
                $NIC_VM_Map.Add($nic.Id, $nic.VirtualMachine.Id);
                $subnetId = $nic.IpConfigurations[0].Subnet.Id;
                if(!$SubnetDict.ContainsKey($subnetId))
                {
                    $SubnetDict[$subnetId] = New-Object System.Collections.ArrayList;
                }
                $SubnetDict[$subnetId].Add(@{NicId=$nic.Id; NicType=$nic.IpConfigurations[0].PrivateIpAllocationMethod; CIP=$nic.IpConfigurations[0].PrivateIpAddress;});
            }
        }

        $vnets = Get-AzureRmVirtualNetwork;
        if($vnets.Count -gt 0)
        {
            WriteToXMLOutput (BuildVirtualNetworksHead);
            foreach($vnet in $vnets)
            {
                $vnetaddress = "";
                foreach($prefix in $vnet.AddressSpace.AddressPrefixes)
                {
                    $vnetaddress += $prefix;
                    $vnetaddress += " "
                }
                $vnetaddress.TrimEnd(' ');
                WriteToXMLOutput (BuildVirtualNetworkHead $vnet.Name $vnetaddress $vnet.Location);
                $subnets = $vnet.Subnets;
                if($subnets.Count -gt 0)
                {
                    WriteToXMLOutput (BuildSubnetsHead);
                    foreach($subnet in $subnets)
                    {
                        WriteToXMLOutput (BuildSubnetHead $subnet.Name $subnet.AddressPrefix);
                        if($SubnetDict[$subnet.Id].Count -gt 0)
                        {
                            WriteToXMLOutput (BuildVirtualMachinesHead);
                            foreach($nicProp in $SubnetDict[$subnet.Id])
                            {
                                $nicId = $nicProp["NicId"];
                                $nicType = $nicProp["NicType"];
                                $cip = $nicProp["CIP"];
                                $vmId = $NIC_VM_Map[$nicId];
                                $vmProp = $VMDict[$vmId];
                                $vmName = $vmProp["Name"];
                                $OSType = $vmProp["OSType"];
                                $size = $vmProp["Size"];
                                WriteToXMLOutput (BuildVirtualMachine $vmName $OSType $size $cip $nicType);
                            }
                            WriteToXMLOutput (BuildVirtualMachinesEnd);
                        }
                        WriteToXMLOutput (BuildSubnetEnd);
                    }
                    WriteToXMLOutput (BuildSubnetsEnd);
                }
                WriteToXMLOutput (BuildVirtualNetworkEnd);
            }
            WriteToXMLOutput (BuildVirtualNetworksEnd);
        }
        WriteToXMLOutput (BuildSubscriptionEnd);
    }

    WriteToXMLOutput (BuildSubscriptionsEnd);
}

ListVNETTopology

脚本输出：