Today when I opened my Azure portal I had a little surprise. The monthly MSDN subscription credit was much lower as I expected it to be. Did I eventually forget to turn off a virtual machine? Curious to find out where the cost had come from, I drilled into the subscription details and noticed that the higher costs had come from the Premium storage that I had used recently to deploy a virtual machine using an SSD disk instead of a HDD disk. But still it wasn’t clear why just that one virtual machine would be that expensive, so i drilled into the premier storage account and noticed that there were several orphaned VHD disks there. A clean up was required.
To get an overview of all disks, I wrote the following script called Get-AzureBlobInfo. The script queries all or the specified storage account name and lists all blob objects stored within the containers.
Since I am only interested in VHD files, I use the following command:
|
1 |
Get-AzureBlobInfo | Where-Object {($_.name).split(".")[-1] -like "vhd" } | Select-Object Name,STorageaccount,LeaseStatus,{($_.StorageAccountKey)[0].value} | fl |
To delete the vhd file, we first must set the Azure storage context.
|
1 |
$ctx = New-AzureStorageContext -StorageAccountName saverboon1 -StorageAccountKey 5JcWTPE6PeU3BTWpkKzAw55eFRb8A0KZybc+OV+IlS2hOWRiqPanZsi4nyQOyl9jMA== |
|
1 |
Remove-AzureStorageBlob -Blob OSDDisk_ALEX04.vhd -Container vhds -Context $ctx |
Okay, that’s how we get rid of unused VHDs. Now while I am at it anyway, I thought I take this a step further since I’m aware that I have more orphaned azure resources like Network Interfaces, Public IP Addresses and Network security groups. So I wrote three additional functions
- Cleanup-AzureRmNetworkInterfaces
- Cleanup-AzureRmPublicIPAddress
- Cleanup-RmNetworkSecurityGroup
The scripts basically all work the same, just provide the name of the resource group and use the ListOnly switch first to list resources that do not have an association with a virtual machine.
|
1 |
Cleanup-AzureRmNetworkInterfaces -ResourceGroup rg_2 –ListOnly |
When running the command without the listonly parameter, network interfaces without an association are deleted. Note that I on purpose did not include the confirm switch, so you will be prompted to confirm the deletion.
All mentioned functions are listed below and can also be found in my GitHub repository here:https://github.com/alexverboon/posh
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 |
Function Get-AzureBlobInfo { <# .Synopsis Get-AzureBlobInfo lists all blob content stored in Azure .DESCRIPTION Get-AzureBlobInfo lists all blob content stored witin all or the specified storage account. .EXAMPLE Get-AzureBlobInfo List all storage blobs stored within all available storage accounts .EXAMPLE Get-AzureBlobInfo -StorageAccountName rg2disks444 List all storage blobs stored wtihin the storage account rg2disks444 EXAMPLE Get-AzureBlobInfo | Select-Object Name,STorageaccount,LeaseStatus List all storage blobs and output the lease status .EXAMPLE Get-AzureBlobInfo | Where-Object {($_.name).split(".")[-1] -like "vhd" } | Select-Object Name,STorageaccount,LeaseStatus .EXAMPLE Get-AzureBlobInfo | Where-Object {($_.name).split(".")[-1] -like "vhd" } | Select-Object Name,STorageaccount,LeaseStatus,{($_.StorageAccountKey)[0].value} | fl List all vhd files and the storage account key, so you have all information required for removal #> [CmdletBinding()] Param( # Name of the Storage Account [Parameter(Mandatory=$false, ValueFromPipelineByPropertyName=$true, Position=0)] $StorageAccountName ) Begin{ If ($PSBoundParameters.ContainsKey("StorageAccountName")) { Write-Verbose "StorageAccount provided: $($StorageAccountName)" $storageaccounts = Get-AzureRmStorageAccount | Where-Object {$_.StorageAccountName -like "$StorageAccountName"} If ($storageaccounts -eq $null) { Write-Error "invalid Storage account: $($StorageAccountName)" } } Else { $storageaccounts = Get-AzureRmStorageAccount } } Process{ $blobinfo = @() ForEach ($sa in $storageaccounts) { $StorageKey = Get-AzureRmStorageAccountKey -ResourceGroupName $sa.ResourceGroupName -Name $sa.StorageAccountName $containers = $sa | Get-AzureStorageContainer ForEach ($cont in $containers) { $blobcontent = $cont | Get-AzureStorageBlob If ($blobcontent -eq $null) { write-verbose "Container: $($cont.name) has no blob content" } ForEach ($blob in $blobcontent) { $object = New-Object -TypeName PSObject # StorageAccount Info $object | Add-Member -MemberType NoteProperty -Name StorageAccount -Value $($sa.StorageAccountName) $object | Add-Member -MemberType NoteProperty -Name Location -Value $($sa.Location) $object | Add-Member -MemberType NoteProperty -Name SKU -Value $($sa.Sku.Name) $object | Add-Member -MemberType NoteProperty -Name StorageAccountKey -Value $StorageKey # Container Info $object | Add-Member -MemberType NoteProperty -Name ContainerName -Value $($cont.Name) $object | Add-Member -MemberType NoteProperty -Name ContainerInfo -Value $($cont) #Blob info $object | Add-Member -MemberType NoteProperty -Name BlobType -Value $($blob.BlobType) $object | Add-Member -MemberType NoteProperty -Name ICloudBlob -Value $($blob.ICloudBlob) $object | Add-Member -MemberType NoteProperty -Name Name -Value $($blob.Name) $object | Add-Member -MemberType NoteProperty -Name LeaseStatus -Value $($blob.ICloudBlob.Properties.LeaseStatus) $object | Add-Member -MemberType NoteProperty -Name LeaseState -Value $($blob.ICloudBlob.Properties.LeaseState) $object | Add-Member -MemberType NoteProperty -Name Properties -Value $($blob.ICloudBlob.Properties) $object | Add-Member -MemberType NoteProperty -Name LastModified -Value $($blob.LastModified) $blobinfo += $object } } } } End{ $blobinfo } } |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 |
function Cleanup-AzureRmNetworkInterfaces { <# .Synopsis Cleanup-AzureRmNetworkInterfaces removes Network Interfaces that are not linked to an Azure VirtualMachine .DESCRIPTION Use the Cleanup-AzureRmNetworkInterfaces to remove Azure Network Interfaces that are not linked to an existing Azure VirtualMachine. .PARAMETER ResourceGrup Specifies the name of the resource group from which network interfaces are to be retrieved. .PARAMETER ListOnly Only lists Azure Network Interfaces that are not linked to an existing Azure Virtual Machine .EXAMPLE Cleanup-AzureRmNetworkInterfaces -ResourceGroup RG_2 .EXAMPLE Cleanup-AzureRmNetworkInterfaces -ResourceGroup RG_2 -ListOnly Name ResourceGuid ---- ------------ vm3872 7d17b843-e9fb-4838-bce5-428817a95037 .NOTES Alex Verboon, version 1.0, 01.10.2016 #> [CmdletBinding(SupportsShouldProcess=$true, ConfirmImpact="High")] Param ( # Specifies the name of the resource group from which network interfaces are to be retrieved. [Parameter(Mandatory=$true, ValueFromPipelineByPropertyName=$true, Position=0)] [string]$ResourceGroup, # Only lists Azure Network Interfaces that are not linked to an existing Azure Virtual Machine [switch]$ListOnly ) Begin { If (AzureRmResourceGroup -Name $ResourceGroup -ErrorAction SilentlyContinue ) { $az_networkinterfaces = Get-AzureRmNetworkInterface -ResourceGroupName $ResourceGroup $RemAzNetworkInterface = $az_networkinterfaces | Where-Object {$_.VirtualMachine -eq $null} } Else { Write-Error "Provided resource group does not exist: $ResourceGroup" Throw } } Process { $removed = @() If ($PSBoundParameters.ContainsKey("ListOnly")) { $RemAzNetworkInterface | Select-Object Name,ResourceGuid } Else { ForEach($ni in $RemAzNetworkInterface) { if ($pscmdlet.ShouldProcess("Deleting NetworkInterface $($ni.Name)")) { Write-Output "Removing NetworkInterface without Virtual Machine association: $($ni.Name)" Remove-AzureRmNetworkInterface -Name "$($ni.name)" -ResourceGroupName $ResourceGroup $object = New-Object -TypeName PSObject $object | Add-Member -MemberType NoteProperty -Name Name -Value $($ni.Name) $object | Add-Member -MemberType NoteProperty -Name ResourceGuid -Value $($ni.ResourceGuid) $removed += $object } } } } End { # List the removed objects $removed } } |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 |
function Cleanup-AzureRmPublicIPAddress { <# .Synopsis Cleanup-AzureRmPublicIPAddress removes Public IP Addresses that are not linked to an Azure VirtualMachine .DESCRIPTION Use the Cleanup-AzureRmPublicIPAddress to remove Azure Public IP Addresses that are not linked to an existing Azure VirtualMachine based on the IPConfiguration data being empty. .PARAMETER ResourceGrup Specifies the name of the resource group from which Public IP Addresses are to be retrieved. .PARAMETER ListOnly Only lists Azure Public IP Addresses that are not linked to an existing Azure Virtual Machine .EXAMPLE Cleanup-AzureRmPublicIPAddress -ResourceGroup RG_2 .EXAMPLE Cleanup-AzureRmPublicIPAddress -ResourceGroup RG_2 -ListOnly Lists all Public IP Addresses that have no association to a virtual machine. Name ResourceGuid ---- ------------ vm01-ip b5c0f73b-abda-4a24-b3bd-2722b08aabe0 VM2-ip f03360f2-887e-44fe-a5ad-396195cd8efc VM3-ip 5db8d1fa-f551-4794-a9c0-27cd005b4742 .NOTES Alex Verboon, version 1.0, 01.10.2016 #> [CmdletBinding(SupportsShouldProcess=$true, ConfirmImpact="High")] Param ( # Specifies the name of the resource group from which Public IP Addresses are to be retrieved. [Parameter(Mandatory=$true, ValueFromPipelineByPropertyName=$true, Position=0)] [string]$ResourceGroup, # Only lists Azure Network Interfaces that are not linked to an existing Azure Virtual Machine [switch]$ListOnly ) Begin { If (AzureRmResourceGroup -Name $ResourceGroup -ErrorAction SilentlyContinue ) { $az_publicipaddress = Get-AzureRmPublicIpAddress -ResourceGroupName $ResourceGroup $RemAzPublicIP = $az_publicipaddress | Where-Object {$_.IpConfiguration -eq $null} } Else { Write-Error "Provided resource group does not exist: $ResourceGroup" Throw } } Process { $removed = @() If ($PSBoundParameters.ContainsKey("ListOnly")) { $RemAzPublicIP | Select-Object Name,ResourceGuid } |