Powershell

   1: # The below Perl is equivalent to just typing “Get-Vm” in powershell.
   2:  
   3: use VMware::VILib;
   4: Opts::parse();
   5: Opts::validate();
   6: Util::connect();
   7: my $datacenter = “.”
   8: my $datacenter_view = Vim::find_entity_view(view_type => ‘Datacenter’, filter => { name => $datacenter });
   9: my $host_views = Vim::find_entity_views(view_type => ‘HostSystem’, begin_entity => $datacenter_view);
  10: my $counter = 1;
  11: print “Hosts found:\n”;
  12: foreach (@$host_views) {
  13: print “$counter: “ . $_->name . “\n”;
  14: $counter++;
  15: }
  16: $counter = 1;
  17: print “\nVM’s found:\n”;
  18: my $vm_views = Vim::find_entity_views(view_type => ‘VirtualMachine’, begin_entity => $datacenter_view);
  19: foreach (@$vm_views) {
  20: print “$counter: “ . $_->name . “\n”;
  21: $counter++;
  22: }
  23: Util::disconnect();

 

‘Nuff said.