<scriptConfiguration version="1.0.0">
  <key>com.mycompany.assetinfo</key>
  <description>Asset Info</description>
  <view parent="Inventory.VirtualMachine">
    <title locale="en">Asset Info</title>
    <url>http://mywebserver/assetinfo.pl</url>
  </view>
</scriptConfiguration>

#!/usr/bin/env perl

use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
use VMware::VIRuntime;
use URI::URL;

print header;

#uncomment this to see the parameters received by the script
#get_params();

my $sessionId = param('sessionId');
my $serviceUrl = param('serviceUrl');

Vim::load_session(service_url => $serviceUrl, session_id => $sessionId);

#!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#! from stumpr
#!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
my $sc = Vim::get_service_content();
my $session_manager = $sc->sessionManager;

my $sm = Vim::get_view(mo_ref => $session_manager);

if ($sm->currentSession)
{
	print "Valid Session\n";
}
else
{
	print "Invalid Session\n";
}
#!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

#!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#! Dumps all the parameters received by this script
#!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub get_params 
{
	my %params;
	foreach my $param (param()) 
      {
		$params{$param} = param($param);
	}
	print '<pre>', Dumper(\%params), '</pre>';
}
#!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~