Menu

Virtual Geek

Tales from real IT system administrators world and non-production environment

vMotion from all VMs on selected Esxi Host to other Esxi host via PowerCLI GUI

Currently I am doing complete VMware environment upgrade in my office in terms of hardware as well, After few plans I found most of my Esxi servers in VMWare clusters in my office were over committed. First question was by my boss was how do we perform it without degrading current VMs performance. To tackle this we had few spare esxi servers, which we utilized for this purpose. Adding this Esxi to existing cluster, after adding them to clusters, there was another concern of EVC (Vmware Enhanced vMotion compatibilty), to address this I already had written separate script and article Powercli GUI: Determine the EVC Mode that vmware cluster should be configured

Everything was going good, but while putting a ESXi host into maintenance mode and initiating multiple vMotion once at a time I observed slowness on VMs accessing them over the network, there was also slowness between application in terms of network (for example when heavy I/O intending application trying to read/write backend database also backups over networks slowing down), This was specifically happening on the little bit legacy Esxi servers and they were still using 1 Gig network adapters. Multiple vMotion were saturating complete network bandwidth.

This is helping me in the scenario when I add new empty ESXi and vacate esxi with one go, also I wanted a virtual machine to be migrated one at a time, once previous vMotion finished. Also on few clusters DRS (distributed resource sceduler) was not available, I wrote this graphical powercli script, using .net winforms, After executing it graphical user interface looks like below.

After execution of this GUI essentially it first asks for vCenter to login, Once login is successful, It shows complete list of Clusters on the vCenter server, After choosing cluster it shows the ESXi server in Source and destination ESXi server along with VMs list from Source Esxi, Make your selection here on source and destination ESXi and click button Migrate-VMs, this will start emptying out Source Esxi and migrate VMs to destination esxi host, Once task is completed you can easily logoff from vCenter server and close tool.

To run this script there are certain requirements, I wrote and tested it on Windows 10, also used PowerCLI version 6.5 with PrimalForms community edition.
VMWARE VSPHERE POWERCLI INSTALLATION AND CONFIGURATION STEP BY STEP
POWERCLI INITIALIZE-POWERCLI ENVIRONMENT.PS1 CANNOT BE LOADED BECAUSE RUNNING SCRIPTS IS DISABLED 

graphical user interface powercli, vmware vsphere esxi, gui powercli, migrate vm, virtual machines cluster vmhost from, script

You can download this script here also This powercli script is available on Github.com

 #Designed and created by Kunal: http://vcloud-lab.com   
 #Tools used  
   #Windows 10  
   #Powercli 6.5  
   #PrimalForms Community Edition  
   
 #region Import the Assemblies  
 [reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null  
 [reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null  
 #endregion  
   
 #region Generated Form Objects  
 $vCenterForm = New-Object System.Windows.Forms.Form  
 $vcloudurl = New-Object System.Windows.Forms.LinkLabel  
 $LastVM = New-Object System.Windows.Forms.Label  
 $listlabel = New-Object System.Windows.Forms.Label  
 $CurrentVM = New-Object System.Windows.Forms.Label  
 $RemCount = New-Object System.Windows.Forms.Label  
 $RemainingCount = New-Object System.Windows.Forms.Label  
 $dataGrid1 = New-Object System.Windows.Forms.DataGrid  
 $DestEsxiLabel = New-Object System.Windows.Forms.Label  
 $ESXiInfo = New-Object System.Windows.Forms.Button  
 $MigrateVM = New-Object System.Windows.Forms.Button  
 $logoffvcenter = New-Object System.Windows.Forms.Button  
 $SourceEsxiLabel = New-Object System.Windows.Forms.Label  
 $DestinationEsxi = New-Object System.Windows.Forms.ComboBox  
 $SourceEsxi = New-Object System.Windows.Forms.ComboBox  
 $ClusterList01 = New-Object System.Windows.Forms.CheckedListBox  
 $vCenterServer = New-Object System.Windows.Forms.TextBox  
 $statusBar1 = New-Object System.Windows.Forms.StatusBar  
 $LoginvCenter = New-Object System.Windows.Forms.Button  
 $InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState  
 $Info = New-Object System.Windows.Forms.Label  
   
 #----------------------------------------------  
 #region Generated Form Code  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 540  
 $System_Drawing_Size.Width = 659  
 $vCenterForm.ClientSize = $System_Drawing_Size  
 $vCenterForm.DataBindings.DefaultDataSourceUpdateMode = 0  
 $vCenterForm.Name = "vCenterForm"  
 $vCenterForm.Text = "Migrate VMs from one ESXi to another"  
   
 $Info.DataBindings.DefaultDataSourceUpdateMode = 0  
   
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 517  
 $System_Drawing_Point.Y = 88  
 $Info.Location = $System_Drawing_Point  
 $Info.Name = "Info"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 33  
 $System_Drawing_Size.Width = 75  
 $Info.Size = $System_Drawing_Size  
 $Info.TabIndex = 17  
 $Info.Text = "Windows 10  Powercli 6.5"  
 $Info.add_Click($handler_label1_Click)  
   
 $vCenterForm.Controls.Add($Info)  
   
 $vcloudurl.DataBindings.DefaultDataSourceUpdateMode = 0  
   
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 478  
 $System_Drawing_Point.Y = 486  
 $vcloudurl.Location = $System_Drawing_Point  
 $vcloudurl.Name = "vcloudurl"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 23  
 $System_Drawing_Size.Width = 114  
 $vcloudurl.Size = $System_Drawing_Size  
 $vcloudurl.TabIndex = 15  
 $vcloudurl.TabStop = $True  
 $vcloudurl.Text = "http://vcloud-lab.com"  
 $vcloudurl.add_Click({[system.Diagnostics.Process]::start('http://vcloud-lab.com')})   
 $vCenterForm.Controls.Add($vcloudurl)  
   
 $logoffvcenter.DataBindings.DefaultDataSourceUpdateMode = 0  
   
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 13  
 $System_Drawing_Point.Y = 485  
 $logoffvcenter.Location = $System_Drawing_Point  
 $logoffvcenter.Name = "logoffvcenter"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 23  
 $System_Drawing_Size.Width = 127  
 $logoffvcenter.Size = $System_Drawing_Size  
 $logoffvcenter.TabIndex = 16  
 $logoffvcenter.Text = "LogOff-vCenter"  
 $logoffvcenter.UseVisualStyleBackColor = $True  
 $logoffvcenter.add_Click($logoffvcenter_OnClick)  
   
 $vCenterForm.Controls.Add($logoffvcenter)  
   
 $LastVM.DataBindings.DefaultDataSourceUpdateMode = 0  
   
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 147  
 $System_Drawing_Point.Y = 406  
 $LastVM.Location = $System_Drawing_Point  
 $LastVM.Name = "LastVM"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 29  
 $System_Drawing_Size.Width = 446  
 $LastVM.Size = $System_Drawing_Size  
 $LastVM.TabIndex = 13  
 $LastVM.Text = "Last VM Migrated"  
 $LastVM.Font = 'Microsoft Sans Serif,14'  
   
 $vCenterForm.Controls.Add($LastVM)  
   
 $CurrentVM.DataBindings.DefaultDataSourceUpdateMode = 0  
   
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 146  
 $System_Drawing_Point.Y = 339  
 $CurrentVM.Location = $System_Drawing_Point  
 $CurrentVM.Name = "CurrentVM"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 54  
 $System_Drawing_Size.Width = 446  
 $CurrentVM.Size = $System_Drawing_Size  
 $CurrentVM.TabIndex = 12  
 $CurrentVM.Text = "Current VM"  
 $CurrentVM.Font = 'Microsoft Sans Serif,16'  
   
 $vCenterForm.Controls.Add($CurrentVM)  
   
 $RemCount.BackColor = [System.Drawing.Color]::FromArgb(255,0,192,192)  
 $RemCount.DataBindings.DefaultDataSourceUpdateMode = 0  
   
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 13  
 $System_Drawing_Point.Y = 380  
 $RemCount.Location = $System_Drawing_Point  
 $RemCount.Name = "RemCount"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 103  
 $System_Drawing_Size.Width = 127  
 $RemCount.Size = $System_Drawing_Size  
 $RemCount.TabIndex = 11  
 $RemCount.Text = 0  
 $RemCount.TextAlign = 32  
 $RemCount.Font = 'Microsoft Sans Serif,40'  
   
 $vCenterForm.Controls.Add($RemCount)  
   
 $RemainingCount.BackColor = [System.Drawing.Color]::FromArgb(255,0,128,128)  
 $RemainingCount.DataBindings.DefaultDataSourceUpdateMode = 0  
 $RemainingCount.ForeColor = [System.Drawing.Color]::FromArgb(255,255,255,255)  
   
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 13  
 $System_Drawing_Point.Y = 339  
 $RemainingCount.Location = $System_Drawing_Point  
 $RemainingCount.Name = "RemainingCount"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 41  
 $System_Drawing_Size.Width = 127  
 $RemainingCount.Size = $System_Drawing_Size  
 $RemainingCount.TabIndex = 10  
 $RemainingCount.Text = "Remaing VMs count to migrate"  
 $RemainingCount.TextAlign = 32  
   
 $vCenterForm.Controls.Add($RemainingCount)  
   
 $dataGrid1.DataBindings.DefaultDataSourceUpdateMode = 0  
 $dataGrid1.DataMember = ""  
 $dataGrid1.HeaderForeColor = [System.Drawing.Color]::FromArgb(255,0,0,0)  
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 12  
 $System_Drawing_Point.Y = 213  
 $dataGrid1.Location = $System_Drawing_Point  
 $dataGrid1.Name = "dataGrid1"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 119  
 $System_Drawing_Size.Width = 581  
 $dataGrid1.Size = $System_Drawing_Size  
 $dataGrid1.TabIndex = 9  
   
 $vCenterForm.Controls.Add($dataGrid1)  
   
 $DestEsxiLabel.DataBindings.DefaultDataSourceUpdateMode = 0  
   
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 90  
 $System_Drawing_Point.Y = 186  
 $DestEsxiLabel.Location = $System_Drawing_Point  
 $DestEsxiLabel.Name = "DestEsxiLabel"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 23  
 $System_Drawing_Size.Width = 139  
 $DestEsxiLabel.Size = $System_Drawing_Size  
 $DestEsxiLabel.TabIndex = 8  
 $DestEsxiLabel.Text = "Destination ESXi server"  
   
 $vCenterForm.Controls.Add($DestEsxiLabel)  
   
 $SourceEsxiLabel.DataBindings.DefaultDataSourceUpdateMode = 0  
   
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 90  
 $System_Drawing_Point.Y = 158  
 $SourceEsxiLabel.Location = $System_Drawing_Point  
 $SourceEsxiLabel.Name = "SourceEsxiLabel"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 23  
 $System_Drawing_Size.Width = 139  
 $SourceEsxiLabel.Size = $System_Drawing_Size  
 $SourceEsxiLabel.TabIndex = 7  
 $SourceEsxiLabel.Text = "Source ESXi server"  
   
 $vCenterForm.Controls.Add($SourceEsxiLabel)  
   
 $DestinationEsxi.DataBindings.DefaultDataSourceUpdateMode = 0  
 $DestinationEsxi.FormattingEnabled = $True  
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 235  
 $System_Drawing_Point.Y = 186  
 $DestinationEsxi.Location = $System_Drawing_Point  
 $DestinationEsxi.Name = "DestinationEsxi"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 21  
 $System_Drawing_Size.Width = 358  
 $DestinationEsxi.Size = $System_Drawing_Size  
 $DestinationEsxi.TabIndex = 6  
   
 $vCenterForm.Controls.Add($DestinationEsxi)  
   
 $SourceEsxi.DataBindings.DefaultDataSourceUpdateMode = 0  
 $SourceEsxi.FormattingEnabled = $True  
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 235  
 $System_Drawing_Point.Y = 158  
 $SourceEsxi.Location = $System_Drawing_Point  
 $SourceEsxi.Name = "SourceEsxi"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 21  
 $System_Drawing_Size.Width = 358  
 $SourceEsxi.Size = $System_Drawing_Size  
 $SourceEsxi.TabIndex = 5  
   
 $vCenterForm.Controls.Add($SourceEsxi)  
   
 $MigrateVM.DataBindings.DefaultDataSourceUpdateMode = 0  
   
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 452  
 $System_Drawing_Point.Y = 126  
 $MigrateVM.Location = $System_Drawing_Point  
 $MigrateVM.Name = "MigrateVM"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 23  
 $System_Drawing_Size.Width = 140  
 $MigrateVM.Size = $System_Drawing_Size  
 $MigrateVM.TabIndex = 18  
 $MigrateVM.Text = "Migrate-VMs"  
 $MigrateVM.UseVisualStyleBackColor = $True  
 $MigrateVM.add_Click($MigrateVM_OnClick)  
 $MigrateVM.Enabled = $false  
   
 $vCenterForm.Controls.Add($MigrateVM)  
   
 $ClusterList01.DataBindings.DefaultDataSourceUpdateMode = 0  
 $ClusterList01.FormattingEnabled = $True  
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 13  
 $System_Drawing_Point.Y = 42  
 $ClusterList01.Location = $System_Drawing_Point  
 $ClusterList01.Name = "ClusterList01"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 79  
 $System_Drawing_Size.Width = 423  
 $ClusterList01.Size = $System_Drawing_Size  
 $ClusterList01.TabIndex = 3  
 $ClusterList01.CheckOnClick = $True  
   
 $vCenterForm.Controls.Add($ClusterList01)  
   
 $listlabel.DataBindings.DefaultDataSourceUpdateMode = 0  
   
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 452  
 $System_Drawing_Point.Y = 42  
 $listlabel.Location = $System_Drawing_Point  
 $listlabel.Name = "listlabel"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 41  
 $System_Drawing_Size.Width = 141  
 $listlabel.Size = $System_Drawing_Size  
 $listlabel.TabIndex = 17  
 $listlabel.Text = "Clusters List"  
 $listlabel.Font = 'Microsoft Sans Serif,14'  
   
 $vCenterForm.Controls.Add($listlabel)  
   
 $vCenterServer.DataBindings.DefaultDataSourceUpdateMode = 0  
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 165  
 $System_Drawing_Point.Y = 12  
 $vCenterServer.Location = $System_Drawing_Point  
 $vCenterServer.Name = "vCenterServer"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 20  
 $System_Drawing_Size.Width = 428  
 $vCenterServer.Size = $System_Drawing_Size  
 $vCenterServer.TabIndex = 2  
   
 $vCenterForm.Controls.Add($vCenterServer)  
   
 $statusBar1.DataBindings.DefaultDataSourceUpdateMode = 0  
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 0  
 $System_Drawing_Point.Y = 518  
 $statusBar1.Location = $System_Drawing_Point  
 $statusBar1.Name = "statusBar1"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 22  
 $System_Drawing_Size.Width = 659  
 $statusBar1.Size = $System_Drawing_Size  
 $statusBar1.TabIndex = 1  
   
 $vCenterForm.Controls.Add($statusBar1)  
   
   
 $LoginvCenter.DataBindings.DefaultDataSourceUpdateMode = 0  
   
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 13  
 $System_Drawing_Point.Y = 11  
 $LoginvCenter.Location = $System_Drawing_Point  
 $LoginvCenter.Name = "LoginvCenter"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 23  
 $System_Drawing_Size.Width = 146  
 $LoginvCenter.Size = $System_Drawing_Size  
 $LoginvCenter.TabIndex = 0  
 $LoginvCenter.Text = "Login-vCenter"  
 $LoginvCenter.UseVisualStyleBackColor = $True  
 $LoginvCenter.add_Click($LoginvCenter_OnClick)  
   
 $vCenterForm.Controls.Add($LoginvCenter)  
   
   
 $ESXiInfo.DataBindings.DefaultDataSourceUpdateMode = 0  
   
 $System_Drawing_Point = New-Object System.Drawing.Point  
 $System_Drawing_Point.X = 13  
 $System_Drawing_Point.Y = 127  
 $ESXiInfo.Location = $System_Drawing_Point  
 $ESXiInfo.Name = "ESXiInfo"  
 $System_Drawing_Size = New-Object System.Drawing.Size  
 $System_Drawing_Size.Height = 23  
 $System_Drawing_Size.Width = 146  
 $ESXiInfo.Size = $System_Drawing_Size  
 $ESXiInfo.TabIndex = 16  
 $ESXiInfo.Text = "Get-EsxiInfo"  
 $ESXiInfo.UseVisualStyleBackColor = $True  
 $ESXiInfo.add_Click($ESXiInfo_OnClick)  
 $ESXiInfo.Enabled = $false  
   
 $vCenterForm.Controls.Add($ESXiInfo)  
   
 #endregion Generated Form Code  
   
 #Save the initial state of the form  
 $InitialFormWindowState = $vCenterForm.WindowState  
 #Init the OnLoad event to correct the initial state of the form  
 $vCenterForm.add_Load($OnLoadForm_StateCorrection)  
   
 #region code here  
 function Show-FormOnTop {  
   $vCenterForm.TopMost = $true  
   $vCenterForm.TopMost = $false  
 }  
 Show-FormOnTop  
   
 function Show-MessageBox {   
   param (   
     [string]$Message = "Show user friendly Text Message",   
     [string]$Title = 'Title here',   
     [ValidateRange(0,5)]   
     [Int]$Button = 0,   
     [ValidateSet('None','Hand','Error','Stop','Question','Exclamation','Warning','Asterisk','Information')]   
     [string]$Icon = 'Error'   
   )   
   #Note: $Button is equl to [System.Enum]::GetNames([System.Windows.Forms.MessageBoxButtons])   
   #Note: $Icon is equl to [System.Enum]::GetNames([System.Windows.Forms.MessageBoxIcon])   
   $MessageIcon = [System.Windows.Forms.MessageBoxIcon]::$Icon   
   [System.Windows.Forms.MessageBox]::Show($Message,$Title,$Button,$MessageIcon)   
 }  
   
 Function Confirm-Powercli {  
   $AllModules = Get-Module -ListAvailable VMware.VimAutomation.Core  
   if (!$AllModules) {  
     Show-MessageBox -Message "Install VMware Powercli 6.0 or Latest. `n`nUse either 'Install-Module VMware.VimAutomation.Core' `nor download Powercli from 'http://my.vmware.com'" -Title 'VMware Powercli Missing error' | Out-Null  
   }  
   else {  
     Import-Module VMware.VimAutomation.Core  
     $PowercliVer = Get-Module VMware.VimAutomation.Core  
     $ReqVersion = New-Object System.Version('6.0.0.0')  
     if ($PowercliVer.Version -gt $ReqVersion) {  
       'Ok'  
     }  
     else {  
       Show-MessageBox -Message "Install VMware Powercli 6.0 or Latest. `n`nUse either 'Install-Module VMware.VimAutomation.Core' `nor download Powercli from 'http://my.vmware.com'" -Title 'Lower version Powercli' | Out-Null  
     }  
   }  
 }  
   
 function Disconnect-vCenter {  
     
   try {  
     Disconnect-VIServer * -Confirm:$false -ErrorAction Stop  
     $ClusterList01.Items.Clear()  
   }  
   catch {  
     #Show-MessageBox -Message $error[0].Exception.Message -Title 'Error Connecting vCenter' | Out-Null  
   }  
 }  
   
 Function Connect-vCenter {  
   param (  
     [parameter(Mandatory=$true)]  
     [string]$vCenterName  
   )  
   Confirm-Powercli  
   Show-FormOnTop  
   if ($Global:DefaultVIServer -ne $null) {  
     Disconnect-vCenter  
   }  
   if (($vCenterServer.Text -eq $vCenterNameWaterMark) -or ($vCenterServer.Text -eq '')) {   
     #[System.Windows.Forms.MessageBox]::Show("Please type valid Domain\Account", "Textbox empty")  
     Show-MessageBox -Message "Please type valid vCenter server name" -Title 'vCenter Server Name' | Out-Null  
   }   
   else {   
     try {  
       $cred = Get-Credential  
       Connect-VIServer $vCenterName -Credential $Cred -ErrorAction Stop #| Out-Null  
       $Script:ClusterName = Get-Cluster  
       if ($Script:ClusterName -ne $null) {  
         $ClusterList01.Items.AddRange($Script:ClusterName.Name)  
       }  
       else {  
         Show-MessageBox -Message 'No cluster found in current vCenter' -Title 'Error: No cluster to select' | Out-Null  
       }  
     }  
     catch {  
       Show-FormOnTop  
       Show-MessageBox -Message $error[0].Exception.Message -Title 'Error Connecting vCenter' | Out-Null  
     }  
   }  
   Show-FormOnTop  
   $statusBar1.Text = 'Connected to vCenter successfully'  
 }  
   
 $vCenterNameWaterMark = 'Type vCenter server or IP'  
 $vCenterServer.Text = $vCenterNameWaterMark  
 $vCenterServer.ForeColor = 'DarkGray'  
 $vCenterServer.add_TextChanged({$vCenterServer.ForeColor = 'Black'})  
   
 $LoginvCenter.add_click({  
   Connect-vCenter -vCenterName $vCenterServer.Text.Trim()  
   Show-FormOnTop  
 })  
   
 $ClusterList01.add_ItemCheck({  
   $ESXiInfo.Enabled = $True  
 })  
   
 function Add-ComboBoxItem {  
   $Clusters = $script:ClusterName | Where-Object {$_.Name -in $ClusterList01.CheckedItems}  
   $Script:EsxiHosts = $Clusters | Get-VMHost | Where-Object {$_.ConnectionState -eq 'Connected' -and $_.PowerState -eq 'PoweredOn'}  
   if ($Script:EsxiHosts -eq $null) {  
     Show-MessageBox -Message "No esxi host found in selected cluster" -Title 'Select Cluster'  
     $MigrateVM.Enabled = $false  
   }  
   else {  
     $SourceEsxi.Items.AddRange($EsxiHosts.Name)  
     $SourceEsxi.Text = $SourceEsxi.Items[0]  
     $DestinationEsxi.Items.AddRange($EsxiHosts.Name)  
     $DestinationEsxi.Text = $SourceEsxi.Items[1]  
     $MigrateVM.Enabled = $True  
     Update-VMDataGrid  
   }  
 }  
   
 function Update-VMDataGrid {  
   $SourceEsxiInfo = $Script:EsxiHosts | Where-Object {$_.Name -eq $SourceEsxi.Text}  
   $Script:VMlist = $SourceEsxiInfo | Get-VM  
   if ($Script:VMlist -eq $null) {  
     Show-MessageBox -Message "No VMs found in selected source esxi" -Title 'Select an'  
   }  
   else {  
     $ArrayList = New-Object System.Collections.ArrayList  
     $VMs = $Script:VMlist | Select-Object Name, NumCpu, MemoryGB, PowerState  
     if ($VMs -ne $null) {  
       $ArrayList.AddRange($VMs)  
       $dataGrid1.DataSource = $ArrayList  
       $dataGrid1.ReadOnly = $True  
       $RemCount.text = $VMs.Count  
     }  
     else {  
       $statusBar1.Text = "Selected source esxi host doesn't have any VMs"  
     }  
   }  
 }  
   
 $ESXiInfo.Add_click({  
   $SourceEsxi.Items.Clear()  
   $DestinationEsxi.Items.Clear()  
   if ($ClusterList01.CheckedItems.Count -eq 0) {  
     Show-MessageBox -Message 'Choose atleast one Cluster from list' -Title 'Select cluster' | Out-Null  
   }  
   Add-ComboBoxItem  
 })  
   
 function Change-DestCombobox {  
   Show-MessageBox -Message 'Source and destination esxi servers are same' -Title 'Esxi name conflict' | Out-Null  
   $dataGrid1.DataSource = $null  
   $DestinationEsxi.Text = $SourceEsxi.Items[$SourceEsxi.SelectedIndex - 1]  
   $statusBar1.Text = 'Source and destination Esxi should different'  
 }  
   
 $SourceEsxi.Add_TextChanged({  
   if ($DestinationEsxi.Text -eq $SourceEsxi.Text) {  
     Change-DestCombobox  
   }  
   Update-VMDataGrid  
 })  
   
 $DestinationEsxi.Add_TextChanged({  
   if ($DestinationEsxi.Text -eq $SourceEsxi.Text) {  
     Change-DestCombobox  
   }  
 })  
   
 $MigrateVM.Add_Click({  
   $ConfirmMigrate = Show-MessageBox -Message 'Do you want to start migrating VMs' -Title 'Start VM migration' -Button 4 -Icon Question  
   $DestEsxi = Get-VMHost $DestinationEsxi.Text  
   $VMCount = $Script:VMlist.Count  
   if ($ConfirmMigrate -eq 'Yes') {  
     foreach ($VM in $Script:VMlist)     {  
       $CurrentVM.Text = "Currently migrating VM: $($VM.Name)"  
       $vCenterForm.Refresh()  
       try {  
         $VM | Move-VM -Destination $DestEsxi -ErrorAction Stop  
         $VMCount--  
         $LastVM.Text = "Last VM migrated: $($VM.Name)"  
       }  
       catch {  
         $statusBar1.Text = 'Few VMs cannot be migrated, check manually'  
       }  
       $RemCount.Text = $VMCount  
       $vCenterForm.Refresh()  
       Show-FormOnTop  
     }       
     $CurrentVM.Text = 'All VMs Migrated'  
   }  
 })  
   
 $logoffvcenter.Add_Click({  
   Disconnect-vCenter  
   $ESXiInfo.Enabled = $false  
   $dataGrid1.DataSource.Clear()  
   $MigrateVM.Enabled = $false  
   $SourceEsxi.Items.Clear()  
   $DestinationEsxi.Items.Clear()  
   $statusBar1.Text = 'Disconnected vCenter successfully'  
 })  
   
 #endregion Code here  
 Show-FormOnTop  
 #Show the Form  
 $vCenterForm.ShowDialog()| Out-Null  

Useful articles
POWERCLI: VMWARE ESXI CONFIGURE (VSWITCH) VMKERNEL NETWORK PORT FOR ISCSI STORAGE
POWERCLI VMWARE: CONFIGURE SOFTWARE ISCSI STORAGE ADAPTER AND ADD VMFS DATASTORE
POWERCLI: VIRTUAL MACHINE STORAGE MIGRATE/SVMOTION AND DATASTORE PORT BINDING MULTIPATHING

Go Back



Comment

Blog Search

Page Views

11239962

Follow me on Blogarama