#
# vProfiles V1
# By Alan Renouf
# http://virtu-al.net
#

#Generated Form Function
function GenerateForm {
########################################################################
# Code Generated By: SAPIEN Technologies PrimalForms (Community Edition) v1.0.3.0
# Generated On: 27/06/2009 9:17 PM
# Generated By: Alan
########################################################################

#region Import the Assemblies
[reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null
[reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null
#endregion

#region Generated Form Objects
$vProfiles = New-Object System.Windows.Forms.Form
$label3 = New-Object System.Windows.Forms.Label
$label2 = New-Object System.Windows.Forms.Label
$Disconnect = New-Object System.Windows.Forms.Button
$Connect = New-Object System.Windows.Forms.Button
$OutputWin = New-Object System.Windows.Forms.TextBox
$CopyNetwork = New-Object System.Windows.Forms.Button
$NewHost = New-Object System.Windows.Forms.ListBox
$BaseHost = New-Object System.Windows.Forms.ListBox
$label1 = New-Object System.Windows.Forms.Label
$VCSRV = New-Object System.Windows.Forms.TextBox
$InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState
#endregion Generated Form Objects

#----------------------------------------------
#Generated Event Script Blocks
#----------------------------------------------
#Provide Custom Code for events specified in PrimalForms.
$Disconnect_OnClick= 
{
	Disconnect-VIServer $ConVISRV -Confirm:$false
	$Disconnect.Enabled = $false
	$CopyNetwork.Enabled = $false
	$OutputWin.Text += "`r`nDisconnect Successful"
	$vProfiles.Refresh()
	
}

$handler_NewHost_SelectedIndexChanged= 
{
#TODO: Place custom script here

}

$handler_button3_Click= 
{
	$OutputWin.Text += "`r`nConnecting to $($Basehost.SelectedItem)"
	$vProfiles.Refresh()
	$CBASEHost = Get-VMHost -Name ($Basehost.SelectedItem)
	$OutputWin.Text += "`r`nConnecting to $($Newhost.SelectedItem)"
	$vProfiles.Refresh()
	$CNEWHost = Get-VMHost -Name ($NewHost.SelectedItem)
	$OutputWin.Text += "`r`nRetrieving Virtual Switches"
	$vProfiles.Refresh()
	$CBASEHost | Get-VirtualSwitch | Foreach {
		If (($CNEWHost | Get-VirtualSwitch -Name $_.Name -ErrorAction SilentlyContinue) -eq $null){
			$vSwitch = $_
			$OutputWin.Text += "`r`nCreating Virtual Switch $($_.Name)"
			$vProfiles.Refresh()
			$NewSwitch = $CNEWHost | New-VirtualSwitch -Name $_.Name -NumPorts $_.NumPorts -Mtu $_.Mtu
		}
		$_ | Get-VirtualPortGroup | Foreach {
			If (($CNEWHost | Get-VirtualPortGroup -Name $_.Name -ErrorAction SilentlyContinue) -eq $null){
				$OutputWin.Text += "`r`n..Creating Portgroup $($_.Name) on $($vSwitch.Name)"
				$vProfiles.Refresh()
				$NewPortGroup = $CNEWHost | Get-VirtualSwitch -Name $vSwitch | New-VirtualPortGroup -Name $_.Name -VLanId $_.VLanID
			}
		}
	}
	$OutputWin.Text += "`r`n-- Configuration Completed --"
	$vProfiles.Refresh()

}

$handler_label1_Click= 
{
#TODO: Place custom script here

}

$handler_listBox1_SelectedIndexChanged= 
{
#TODO: Place custom script here

}

$handler_button1_Click= 
{
	If ($VCSRV.Text -eq "") {$OutputWin.Text = "Please Specify a VC Server above"}
	Else
	{
		$OutputWin.Text = "Connecting to $($VCSRV.Text)"
		$vProfiles.Refresh()
		$ConVISRV = Connect-VIServer $VCSRV.Text
		If ($ConVISRV.IsConnected -eq $true) {
			$OutputWin.Text += "`r`nConnection Successful"
			$vProfiles.Refresh()
			$Disconnect.Enabled = $true
			$CopyNetwork.Enabled = $true
			Foreach ($EsxHost in (Get-VMHost))
			{	
				$BaseHost.Items.Add("$($EsxHost.Name)")|Out-Null
				$NewHost.Items.Add("$($EsxHost.Name)")|Out-Null
			}		
		}
		Else {
			$OutputWin.Text += "`r`nConnection Un-Successful - Please try again."
			$vProfiles.Refresh()
		}
	}

}

$OnLoadForm_StateCorrection=
{#Correct the initial state of the form to prevent the .Net maximized form issue
	$vProfiles.WindowState = $InitialFormWindowState
}

#----------------------------------------------
#region Generated Form Code
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 563
$System_Drawing_Size.Height = 503
$vProfiles.MaximumSize = $System_Drawing_Size
$vProfiles.AutoSize = $True
$vProfiles.Text = 'vProfiles'
$vProfiles.ShowInTaskbar = $False
$vProfiles.MaximizeBox = $False
$vProfiles.Name = 'vProfiles'
$vProfiles.SizeGripStyle = 2
$vProfiles.ShowIcon = $False
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 563
$System_Drawing_Size.Height = 503
$vProfiles.MinimumSize = $System_Drawing_Size
$vProfiles.StartPosition = 1
$vProfiles.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 547
$System_Drawing_Size.Height = 465
$vProfiles.ClientSize = $System_Drawing_Size

$label3.TabIndex = 11
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 100
$System_Drawing_Size.Height = 13
$label3.Size = $System_Drawing_Size
$label3.Text = 'Destination:'

$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 271
$System_Drawing_Point.Y = 43
$label3.Location = $System_Drawing_Point
$label3.DataBindings.DefaultDataSourceUpdateMode = 0
$label3.Name = 'label3'
$label3.add_Click($handler_label3_Click)

$vProfiles.Controls.Add($label3)

$label2.TabIndex = 10
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 100
$System_Drawing_Size.Height = 13
$label2.Size = $System_Drawing_Size
$label2.Text = 'Source:'

$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 24
$System_Drawing_Point.Y = 43
$label2.Location = $System_Drawing_Point
$label2.DataBindings.DefaultDataSourceUpdateMode = 0
$label2.Name = 'label2'

$vProfiles.Controls.Add($label2)

$Disconnect.TabIndex = 9
$Disconnect.Name = 'Disconnect'
$Disconnect.Enabled = $False
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 75
$System_Drawing_Size.Height = 23
$Disconnect.Size = $System_Drawing_Size
$Disconnect.UseVisualStyleBackColor = $True

$Disconnect.Text = 'Disconnect'

$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 442
$System_Drawing_Point.Y = 10
$Disconnect.Location = $System_Drawing_Point
$Disconnect.DataBindings.DefaultDataSourceUpdateMode = 0
$Disconnect.add_Click($Disconnect_OnClick)

$vProfiles.Controls.Add($Disconnect)

$Connect.TabIndex = 8
$Connect.Name = 'Connect'
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 75
$System_Drawing_Size.Height = 23
$Connect.Size = $System_Drawing_Size
$Connect.UseVisualStyleBackColor = $True

$Connect.Text = 'Connect'

$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 360
$System_Drawing_Point.Y = 10
$Connect.Location = $System_Drawing_Point
$Connect.DataBindings.DefaultDataSourceUpdateMode = 0
$Connect.add_Click($handler_button1_Click)

$vProfiles.Controls.Add($Connect)

$OutputWin.Multiline = $True
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 491
$System_Drawing_Size.Height = 264
$OutputWin.Size = $System_Drawing_Size
$OutputWin.DataBindings.DefaultDataSourceUpdateMode = 0
$OutputWin.AcceptsReturn = $True
$OutputWin.ScrollBars = 2
$OutputWin.Name = 'OutputWin'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 24
$System_Drawing_Point.Y = 189
$OutputWin.Location = $System_Drawing_Point
$OutputWin.Enabled = $False
$OutputWin.TabIndex = 7

$vProfiles.Controls.Add($OutputWin)

$CopyNetwork.TabIndex = 6
$CopyNetwork.Name = 'CopyNetwork'
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 179
$System_Drawing_Size.Height = 23
$CopyNetwork.Size = $System_Drawing_Size
$CopyNetwork.UseVisualStyleBackColor = $True
$CopyNetwork.Enabled = $false

$CopyNetwork.Text = 'Copy vSwitches and PortGroups'

$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 175
$System_Drawing_Point.Y = 160
$CopyNetwork.Location = $System_Drawing_Point
$CopyNetwork.DataBindings.DefaultDataSourceUpdateMode = 0
$CopyNetwork.add_Click($handler_button3_Click)

$vProfiles.Controls.Add($CopyNetwork)

$NewHost.FormattingEnabled = $True
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 244
$System_Drawing_Size.Height = 95
$NewHost.Size = $System_Drawing_Size
$NewHost.DataBindings.DefaultDataSourceUpdateMode = 0
$NewHost.ScrollAlwaysVisible = $True
$NewHost.Name = 'NewHost'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 271
$System_Drawing_Point.Y = 59
$NewHost.Location = $System_Drawing_Point
$NewHost.TabIndex = 5
$NewHost.add_SelectedIndexChanged($handler_NewHost_SelectedIndexChanged)

$vProfiles.Controls.Add($NewHost)

$BaseHost.FormattingEnabled = $True
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 241
$System_Drawing_Size.Height = 95
$BaseHost.Size = $System_Drawing_Size
$BaseHost.DataBindings.DefaultDataSourceUpdateMode = 0
$BaseHost.ScrollAlwaysVisible = $True
$BaseHost.Name = 'BaseHost'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 24
$System_Drawing_Point.Y = 59
$BaseHost.Location = $System_Drawing_Point
$BaseHost.TabIndex = 4
$BaseHost.add_SelectedIndexChanged($handler_listBox1_SelectedIndexChanged)

$vProfiles.Controls.Add($BaseHost)

$label1.TabIndex = 1
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 86
$System_Drawing_Size.Height = 23
$label1.Size = $System_Drawing_Size
$label1.Text = 'Virtual Center:'

$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 34
$System_Drawing_Point.Y = 15
$label1.Location = $System_Drawing_Point
$label1.DataBindings.DefaultDataSourceUpdateMode = 0
$label1.Name = 'label1'
$label1.add_Click($handler_label1_Click)

$vProfiles.Controls.Add($label1)

$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 228
$System_Drawing_Size.Height = 20
$VCSRV.Size = $System_Drawing_Size
$VCSRV.DataBindings.DefaultDataSourceUpdateMode = 0
$VCSRV.Name = 'VCSRV'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 126
$System_Drawing_Point.Y = 12
$VCSRV.Location = $System_Drawing_Point
$VCSRV.TabIndex = 0

$vProfiles.Controls.Add($VCSRV)

#endregion Generated Form Code

#Save the initial state of the form
$InitialFormWindowState = $vProfiles.WindowState
#Init the OnLoad event to correct the initial state of the form
$vProfiles.add_Load($OnLoadForm_StateCorrection)
#Show the Form
$vProfiles.ShowDialog()| Out-Null

} #End Function

#Call the Function
GenerateForm