Új hozzászólás Aktív témák

• AiRLAC veterán

  #4731

  #4730 szallasi007

  2019-08-20 10:16:50

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  AiRLAC

  veterán

  #4730 szallasi007

  Indulásnak memóriához

  $Cluster="clusterneve"
Write-Host ""
Write-Host "Checking the following cluster to balance: $Cluster"-foregroundcolor "DarkGreen"
Write-Host ""
$hostinfo = Get-Cluster $Cluster |Get-VMHost | Get-View

# Pull memory stats from each host
$hostram = @{}
$clusterram = 0
$hostinfo | % {
$hostram.Add($_.Name,$_.Summary.QuickStats.OverallMemoryUsage)
$clusterram += $_.Summary.QuickStats.OverallMemoryUsage}
$hostram.GetEnumerator() | Sort-Object Name


# Determine the delta of memory on the least loaded host
$deltahost = ($hostram.GetEnumerator() | Sort-Object Value)[0].Name
$deltaram = [Math]::Round((($clusterram / $hostinfo.Count) - ($hostram.GetEnumerator() | Sort-Object Value)[0].Value),0)

# Check if there is a host without VMs
$esx_list=Get-Cluster $Cluster|Get-VMHost
$esxWithoutVMS=0
foreach ($esx in $esx_list)
{
$vms=(get-vmhost $esx| get-vm|Where {$_.PowerState -eq "PoweredOn"}).count
Write-Host "# of VMs on $($esx): $vms" -foregroundcolor "DarkGreen"
if ($vms -eq 0)
{
$esxWithoutVMS++
}
}

if ($deltaram -lt 16384 -and $esxWithoutVMS -eq 0)
{
Write-Host ""
Write-Host "No empty hosts and/or less than 16G difference in host memory usage," -foregroundcolor "DarkGreen"
Write-Host "no need to balance, we are done. Exiting script ..." -foregroundcolor "DarkGreen"
Write-Host ""
exit 1
}

$deltamoref = (Get-VMHost -Name $deltahost).Id
Write-Host ""
Write-Host "Let me try to remediate the imbalance on:" -foregroundcolor "DarkGreen"
Write-Host "$deltahost" -foregroundcolor "DarkGreen"
Write-Host ""

# Find VMs that can fill the delta from other hosts
$vmram = @{}
Get-VM -Location (Get-Cluster $cluster) | Get-View | % {if ($_.Runtime.PowerState -match "poweredOn") {$vmram.Add($_.Name,$_.Summary.QuickStats.HostMemoryUsage)}}

# Run through VMs and migrate the smallest ones
$i = 0
$nomigration = $true
while ($nomigration){
$targetvm = ($vmram.GetEnumerator() | Sort-Object Value)[$i].Name
if (((Get-VM -Name $targetvm | Get-View).Runtime.Host) -ne $deltamoref) {
Write-Host ""
Write-Host "Moving $targetvm to $deltahost" -foregroundcolor "DarkGreen"
Write-Host ""
Move-VM -VM (Get-VM -Name $targetvm) -Destination (Get-VMHost -Name $deltahost) -VMotionPriority:High | Out-Null
$nomigration = $false
}
$i++

#catch all
if ($i -ge 100) {$nomigration = $false}
Write-Host ""
Write-Host "Finished balancing $Cluster" -foregroundcolor "DarkGreen"
Write-Host ""
}

Új hozzászólás Aktív témák