[Azure]使用Powershell删除ARM模式下单台虚拟机及相关资源（托管磁盘）

对于ARM虚拟机，删除后，默认会保留磁盘文件，以及网络接口，IP地址等资源。所以如果不手工删除，这些垃圾资源会占用账号的资源，产生额外的话费，因此整理了一个脚本用于删除虚拟机的同时将这些垃圾资源清理掉。

本脚本针对托管磁盘虚拟机。

脚本如下：

param(
    [Parameter(Mandatory = $true)] 
    [string]$SubscriptionName, 
 
    [Parameter(Mandatory = $true)]
    [string]$ResourceGroupName,

    [Parameter(Mandatory = $true)]
    [string]$VMName
)

Function GetResourceNameFromResourceId($resourceId)
{
    return $resourceId.Substring($resourceId.LastIndexOf('/') + 1);
}

Function GetResourcePropertyFromResourceId($resourceId, $propertyName)
{
    $propertyName = $propertyName + "/";
    $rgName = $resourceId.Substring($resourceId.IndexOf($propertyName) + $propertyName.Length);
    return $rgName.Substring(0, $rgName.IndexOf("/"));
}

Function CollectVMInformation($rgName, $vmName)
{
    $vmInfo = @{};
    $vmInfo.Add("ResourceGroup", $rgName);
    $vmInfo.Add("Name", $vmName);
    
    $vm = Get-AzureRmVM -ResourceGroupName $rgName -Name $vmName -ErrorAction Ignore -WarningAction Ignore;
    if ($vm -eq $null)
    {
        return $null;
    }

    $vmInfo.Add("Size", $vm.HardwareProfile.VmSize);
    $vmInfo.Add("Location", $vm.Location);
    if ($vm.AvailabilitySetReference -ne $null)
    {
        $vmInfo.Add("AvailabilitySet", $vm.AvailabilitySetReference.Id);
    }

    $vmInfo.Add("OSType", $vm.StorageProfile.OsDisk.OsType.ToString());

    #network properties
    $nicId = ($vm.NetworkProfile.NetworkInterfaces | where {$_.Primary -eq $true}).Id;
    if ($nicId -eq $null -and $vm.NetworkProfile.NetworkInterfaces.Count -eq 1)
    {
        $nicId = $vm.NetworkProfile.NetworkInterfaces[0].Id;
    }
    $vmInfo.Add("PrimaryNetworkInterfaceId", $nicId);
    $secondaryNics = @($vm.NetworkProfile.NetworkInterfaces | where {$_.Primary -eq $false});
    $vmInfo.Add("SecondaryNetworkInterfaces", $secondaryNics);

    #disk
    $vmInfo.Add("OSDisk", $vm.StorageProfile.OsDisk);
    $vmInfo.Add("DataDisks", @($vm.StorageProfile.DataDisks));

    Write-Host ("{0, -16}: {1}" -f "Name", $vmInfo["Name"]) -ForegroundColor Cyan;
    Write-Host ("{0, -16}: {1}" -f "Resource Group", $vmInfo["ResourceGroup"]) -ForegroundColor Cyan;
    Write-Host ("{0, -16}: {1}" -f "Size", $vmInfo["Size"]) -ForegroundColor Cyan;
    Write-Host ("{0, -16}: {1}" -f "Location", $vmInfo["Location"]) -ForegroundColor Cyan;
    Write-Host ("{0, -16}: {1}" -f "OS Type", $vmInfo["OSType"]) -ForegroundColor Cyan;
    if ($vmInfo.ContainsKey("AvailabilitySet"))
    {
        Write-Host ("{0, -16}: {1}" -f "Availability Set", $vmInfo["AvailabilitySet"]) -ForegroundColor Cyan;
    }
    Write-Host ("{0, -16}: {1}" -f "Primary NIC", $vmInfo["PrimaryNetworkInterfaceId"]) -ForegroundColor Cyan;
    foreach ($secondaryNic in $vmInfo["SecondaryNetworkInterfaces"])
    {
        Write-Host ("{0, -16}: {1}" -f "Secondary NIC", $secondaryNic.Id) -ForegroundColor Cyan;
    }
    Write-Host ("{0, -16}: {1}" -f "OS Disk", $vmInfo["OSDisk"].Vhd.Uri) -ForegroundColor Cyan;
    foreach ($dataDisk in $vmInfo["DataDisks"])
    {
        Write-Host ("{0, -16}: {1}" -f "Data Disk", $dataDisk.Vhd.Uri) -ForegroundColor Cyan;
    }

    return $vmInfo;
}

Function DeleteManagedDisk($managedDiskId)
{
    $rgName = GetResourcePropertyFromResourceId $managedDiskId "resourceGroups";
    $diskName = GetResourceNameFromResourceId $managedDiskId;
    Write-Host ("Deleting managed disk {0}" -f $managedDiskId) -ForegroundColor Yellow;
    [void](Remove-AzureRmDisk -ResourceGroupName $rgName -DiskName $diskName -Force);
}

Function DeleteNic($nicId)
{
    $nicName = GetResourceNameFromResourceId $nicId;
    $rgName = GetResourcePropertyFromResourceId $nicId "resourceGroups";
    $nic = Get-AzureRmNetworkInterface -Name $nicName -ResourceGroupName $rgName;
    Write-Host ("Deleting network interface {0}" -f $nicName) -ForegroundColor Yellow;
    Remove-AzureRmNetworkInterface -Name $nicName -ResourceGroupName $rgName -Force;

    $primaryIPCfg = $nic.IpConfigurations | where {$_.Primary -eq $true};
    if ($primaryIPCfg.PublicIpAddress -ne $null)
    {
        DeletePip $primaryIPCfg.PublicIpAddress.Id;
    }

    $secondaryIPCfgs = $nic.IpConfigurations | where {$_.Primary -eq $false};
    foreach ($secondaryIPCfg in $secondaryIPCfgs)
    {
        if ($secondaryIPCfg.PublicIpAddress -ne $null)
        {
            DeletePip $secondaryIPCfg.PublicIpAddress.Id;
        }
    }
}

Function DeletePip($pipId)
{
    $rgName = GetResourcePropertyFromResourceId $pipId "resourceGroups";
    $ipName = GetResourceNameFromResourceId $pipId;
    Write-Host ("Deleting public ip address {0}" -f $ipName) -ForegroundColor Yellow;
    Remove-AzureRmPublicIpAddress -Name $ipName -ResourceGroupName $rgName -Force;
}

Function DeleteVM($vmInfo)
{
    #basic information
    $rgName = $vmInfo["ResourceGroup"];
    $vmName = $vmInfo["Name"];

    #network
    $primaryNicId = $vmInfo["PrimaryNetworkInterfaceId"];
    $secondaryNics = $vmInfo["SecondaryNetworkInterfaces"];
    
    #disk
    $osDisk = $vmInfo["OSDisk"];
    $dataDisks = $vmInfo["DataDisks"];
    $avaSetId = $vmInfo["AvailabilitySet"];

    Write-Host "Deleting virtual machine..." -ForegroundColor Yellow;
    [void](Remove-AzureRmVM -Name $vmName -ResourceGroupName $rgName -Force);

    Write-Host "Deleting disks..." -ForegroundColor Yellow;
    DeleteManagedDisk $osDisk.ManagedDisk.Id;

    foreach ($dataDisk in $dataDisks)
    {
        DeleteManagedDisk $dataDisk.ManagedDisk.Id;
    }

    Write-Host "Deleting network interfaces..." -ForegroundColor Yellow;
    DeleteNic $primaryNicId;
    $secondaryNicCount = $secondaryNics.Count;
    for ($i = 0; $i -lt $secondaryNicCount; $i++)
    {
        $secondaryNicId = $secondaryNics[$i].Id;
        DeleteNic $secondaryNicId;
    }
}

[void](Select-AzureRmSubscription -SubscriptionName $SubscriptionName);
$allStorageAccounts = Get-AzureRmStorageAccount;

Write-Host "Virtual Machine information:" -ForegroundColor Green;
$vmInfo = (CollectVMInformation $ResourceGroupName $vmName);
if ($vmInfo -eq $null)
{
    Write-Host "Failed to collect vm information." -ForegroundColor Red;
    return;
}

DeleteVM $vmInfo;

Write-Host "Finished" -ForegroundColor Green;

运行结果：