#!/usr/bin/perl -w
#################################################################################
# sessions.pl
#    list session information for a VC or ESX Server
#     --server <name> --username <u> --password <pwd>
#
#	Script provided as a sample.
#	DISCLAIMER. THIS SCRIPT IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, 
#     WHETHER ORAL OR WRITTEN, EXPRESS OR IMPLIED. THE AUTHOR SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTIES 
#     OR CONDITIONS OF MERCHANTABILITY, SATISFACTORY QUALITY, NON-INFRINGEMENT AND FITNESS FOR A PARTICULAR PURPOSE. 
###################################################################################

use strict;
use warnings;
use VMware::VIRuntime;
use VMware::VILib;

Opts::parse();
Opts::validate();
Util::connect();

my $sc = Vim::get_service_content();
my $session_view = Vim::get_view (mo_ref => $sc->sessionManager);

print "User Name         Full Name           Login Time\n";
print "------------------------------------------------\n";

foreach my $session (@{$session_view->sessionList}) {
     printf "%-16.16s %-20.20s %s\n", $session->userName, $session->fullName, $session->loginTime;
     }

# logout
Util::disconnect();