Azure Powershell获取指定订阅下的虚拟机信息（ARM）

2022-09-27 15:03:02

为方便Azure用户导出已创建虚拟机的相关信息，特编写如下脚本：

详情脚本：

# 登陆Azure Account

Add-AzureRmAccount -EnvironmentName AzureChinaCloud

# 设置订阅ID

$sub = "******"

Select-AzureRmSubscription -Subscription $sub

# 设置Excel格式

$excel = New-Object -ComObject Excel.Application

$workbook = $excel.Workbooks.add()

$sheet = $workbook.worksheets.Item(1)

$sheet.cells.item(1,1) = "Test"

$excel.Visible = $true

for($b = 1 ; $b -le 14 ; $b++)

{

 $sheet.cells.item(1,$b).font.bold = $true

 #$sheet.cells.item(1,$b).borders.LineStyle = $lineStyle::xlDashDot

 $sheet.cells.item(1,$b).borders.ColorIndex = $colorIndex::xlColorIndexAutomatic

 $sheet.cells.item(1,$b).borders.weight = $borderWeight::xlMedium

}

$x = 2

$lineStyle = "microsoft.office.interop.excel.xlLineStyle" -as [type]

$colorIndex = "microsoft.office.interop.excel.xlColorIndex" -as [type]

$borderWeight = "microsoft.office.interop.excel.xlBorderWeight" -as [type]

$chartType = "microsoft.office.interop.excel.xlChartType" -as [type]

$sheet.cells.item(1,1) = "名称"

$sheet.cells.item(1,2) = "类型"

$sheet.cells.item(1,3) = "状态"

$sheet.cells.item(1,4) = "资源组"

$sheet.cells.item(1,5) = "位置"

$sheet.cells.item(1,6) = "订阅ID"

$sheet.cells.item(1,7) = "内网IP"

$sheet.cells.item(1,8) = "内网IP保留状态"

$sheet.cells.item(1,9) = "配置信息"

$sheet.cells.item(1,10) = "系统"

$sheet.cells.item(1,11) = "DNS域名"

$sheet.cells.item(1,12) = "公网IP"

$sheet.cells.item(1,13) = "公网IP保留状态"

$sheet.cells.item(1,14) = "目标端口"

# 定义变量

$vms = Get-AzureRmVM -Status

$vmCount = $vms.Count

$nics = Get-AzureRmNetworkInterface

$pips = Get-AzureRmPublicIpAddress

$nsgs = Get-AzureRmNetworkSecurityGroup

Write-Host "done"

$currentSub = (Get-AzureRmContext).Subscription.Name

# 定义方法

Function GetResourceNameFromResourceId($resourceId)

{

    return $resourceId.Substring($resourceId.LastIndexOf('/') + 1);

}

# 提取变量Value

for($i=0; $i -lt $vmCount; $i++)

 {

    $vm = $vms[$i];

    $nicResourceId = $vm.NetworkProfile.NetworkInterfaces[0].Id

    $nicInterfaces = GetResourceNameFromResourceId($nicResourceId)

    #$nic = Get-AzureRmNetworkInterface -Name $nicInterfaces -ResourceGroupName $vm.ResourceGroupName

    $nic = $nics | where {$_.Name -eq  $nicInterfaces -and $_.ResourceGroupName -eq $vm.ResourceGroupName}

    $ipResourceId = $nic.IpConfigurations[0].PublicIpAddress.Id

    $ipAddress = GetResourceNameFromResourceId($ipResourceId)

    $pip = $pips | where {$_.Name -eq $ipAddress -and $_.ResourceGroupName -eq $vm.ResourceGroupName}

    $sheet.cells.item($x,1) = $vm.name

    $sheet.cells.item($x,2) = "虚拟机(ARM)"

    $sheet.cells.item($x,3) = $vm.PowerState

    $sheet.cells.item($x,4) = $vm.ResourceGroupName

    $sheet.cells.item($x,5) = $vm.Location

    $sheet.cells.item($x,6) = $currentSub

    $sheet.cells.item($x,7) = $nic.IpConfigurations[0].PrivateIpAddress

    $sheet.cells.item($x,8) = $nic.IpConfigurations[0].PrivateIpAllocationMethod

    $sheet.cells.item($x,9) = $vm.HardwareProfile.VmSize

    $sheet.cells.item($x,10) = $vm.StorageProfile.OsDisk.OsType.ToString()

    $sheet.cells.item($x,11) = $pip.DnsSettings.Fqdn

    $sheet.cells.item($x,12) = $pip.IpAddress

    $sheet.cells.item($x,13) = $pip.PublicIpAllocationMethod

    $nsgResourceId = $nic.NetworkSecurityGroup[0].Id

    $nsgName = GetResourceNameFromResourceId($nsgResourceId)

    #$nsg = Get-AzureRmNetworkSecurityGroup -Name $nsgName -ResourceGroupName $vm.ResourceGroupName

    $nsg = $nsgs | where {$_.Name -eq  $nsgName -and $_.ResourceGroupName -eq $vm.ResourceGroupName}

    $ports = $nsg.SecurityRules.DestinationPortRange

    $portCount = $ports.Count

    for($j=0; $j -lt $portCount; $j++)

      {

        $port = $ports[$j];

        $sheet.cells.item($x,14) = $port

        $x++

      }

 }

$range = $sheet.usedRange

$range.EntireColumn.AutoFit() | out-null

$uri=$vm.VM.OSVirtualHardDisk.MediaLink.AbsoluteUri

$location=Get-AzureDisk | Where-Object {$_.MediaLink -eq $uri}| Select-Object Location

输出项及格式见下：

备注：

1.运行脚本期间可能会出现如下报错，忽略即可，不影响最终的结果统计。

2.该脚本运行前，需要事先定义好订阅

3.该脚本输出的为一个Excel表格，输出期间不要关闭正在运行的Excel

4.如果需要对指定Azure账号下的所有订阅进行统计，可参考如下脚本的遍历订阅方法，参考链接：

https://blogs.msdn.microsoft.com/tomholl/2016/11/22/dumping-details-of-azure-virtual-machines-to-csvexcel/

param(

    [string]$tenantId="",

    [string]$file="Azure-ARM-VMs.csv"

) 

Add-AzureRmAccount -EnvironmentName AzureChinaCloud

Get-AzureRmSubscription

$vmobjs = @()

foreach ($sub in $subs)

{

    Write-Host Processing subscription $sub.SubscriptionName

    try

    {

        Select-AzureRmSubscription -SubscriptionId $sub.SubscriptionId -ErrorAction Continue

        $vms = Get-AzureRmVm 

        foreach ($vm in $vms)

        {

            $vmInfo = [pscustomobject]@{

                'Subscription'=$sub.SubscriptionName

                'Mode'='ARM'

                'Name'=$vm.Name

                'ResourceGroupName' = $vm.ResourceGroupName

                'Location' = $vm.Location

                'VMSize' = $vm.HardwareProfile.VMSize

                'Status' = $null

                'AvailabilitySet' = $vm.AvailabilitySetReference.Id }

            $vmStatus = $vm | Get-AzureRmVM -Status

            $vmInfo.Status = $vmStatus.Statuses[1].DisplayStatus

            $vmobjs += $vmInfo

        }

    }

    catch

    {

        Write-Host $error[0]

    }

}

$vmobjs | Export-Csv -NoTypeInformation -Path $file

Write-Host "VM list written to $file"

码农公寓

相关文章