Quantcast
Channel: VMware Communities: Message List
Viewing all articles
Browse latest Browse all 201333

Primal Community Edition Problem

$
0
0

Hello,

 

I was at vmworld and went to a session where Alan Renouf built a gui script using Primal Community Edition. I was impressed and wanted to give it a try. So I did a 1 button script to do something simple, get vms.

 

It doesn't work. Any thoughts what I am doing wrong:

 

#Generated Form Function

function GenerateForm {

########################################################################

# Code Generated By: SAPIEN Technologies PrimalForms (Community Edition) v1.0.10.0

# Generated On: 9/10/2013 2:35 PM

# Generated By: Eric

########################################################################

 

 

#region Import the Assemblies

[reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null

[reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null

#endregion

 

 

#region Generated Form Objects

$form1 = New-Object System.Windows.Forms.Form

$button1 = New-Object System.Windows.Forms.Button

$InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState

#endregion Generated Form Objects

 

 

#----------------------------------------------

#Generated Event Script Blocks

#----------------------------------------------

#Provide Custom Code for events specified in PrimalForms.

$button1_OnClick=

{

Connect-VIServer -Server "avh-vcenter"  -Credential(Get-Credential)

Get-VM

disconnect-viserver -Confirm:$false

 

 

}

 

 

$OnLoadForm_StateCorrection=

{#Correct the initial state of the form to prevent the .Net maximized form issue

  $form1.WindowState = $InitialFormWindowState

}

 

 

#----------------------------------------------

#region Generated Form Code

$System_Drawing_Size = New-Object System.Drawing.Size

$System_Drawing_Size.Height = 262

$System_Drawing_Size.Width = 284

$form1.ClientSize = $System_Drawing_Size

$form1.DataBindings.DefaultDataSourceUpdateMode = 0

$form1.Name = "form1"

$form1.Text = "Primal Form"

 

 

 

 

$button1.DataBindings.DefaultDataSourceUpdateMode = 0

 

 

$System_Drawing_Point = New-Object System.Drawing.Point

$System_Drawing_Point.X = 133

$System_Drawing_Point.Y = 110

$button1.Location = $System_Drawing_Point

$button1.Name = "button1"

$System_Drawing_Size = New-Object System.Drawing.Size

$System_Drawing_Size.Height = 23

$System_Drawing_Size.Width = 75

$button1.Size = $System_Drawing_Size

$button1.TabIndex = 0

$button1.Text = "Get VMs"

$button1.UseVisualStyleBackColor = $True

$button1.add_Click($button1_OnClick)

 

 

$form1.Controls.Add($button1)

 

 

#endregion Generated Form Code

 

 

#Save the initial state of the form

$InitialFormWindowState = $form1.WindowState

#Init the OnLoad event to correct the initial state of the form

$form1.add_Load($OnLoadForm_StateCorrection)

#Show the Form

$form1.ShowDialog()| Out-Null

 

 

} #End Function

 

 

#Call the Function

GenerateForm

 

Thanks for your help!


Viewing all articles
Browse latest Browse all 201333

Trending Articles