Normally, the following VIX Perl script should run (virtually) indefinitely:
{color:gray}################################################################################
# THIS SCRIPT ASSUMES THAT:
# - The library is a VMware VIX 1.0 or 1.6 for Perl (for Windows or Linux)
# - The server is a VMware Server 1.0 (tested against the Windows version only)
# - The virtual machine has a snapshot
# - The snapshot is not powered on
################################################################################{color}
use sigtrap;
use strict;
use warnings;
use VMware::Vix::API::Constants;
use VMware::Vix::Simple;
local $| = 1;
{color:gray}# The following variables can be anything valid{color}
my $host_hostname = undef;
my $host_port = undef;
my $host_username = undef;
my $host_password = undef;
my $vm_configuration_file = 'C:\\Virtual Machines\\Windows XP Professional\\Windows XP Professional.vmx';
my $start;
my $vm_error;
my $host;
my $vm;
my $snapshot;
print( 'HostConnect()...' );
$start = time();
( $vm_error, $host ) = HostConnect( VIX_API_VERSION, VIX_SERVICEPROVIDER_VMWARE_SERVER, $host_hostname, $host_port, $host_username, $host_password, 0, VIX_INVALID_HANDLE );
if( $vm_error == VIX_OK ) {
print( ' completed in ' . ( time() - $start ) . ' seconds' . ".\n" );
} else {
print( ' completed with error ' . $vm_error . ".\n" );
die();
}
print( 'VMOpen()...' );
$start = time();
( $vm_error, $vm ) = VMOpen( $host, $vm_configuration_file );
if( $vm_error == VIX_OK ) {
print( ' completed in ' . ( time() - $start ) . ' seconds' . ".\n" );
} else {
print( ' completed with error ' . $vm_error . ".\n" );
die();
}
print( 'VMGetRootSnapshot()...' );
$start = time();
( $vm_error, $snapshot ) = VMGetRootSnapshot( $vm, 0 );
if( $vm_error == VIX_OK ) {
print( ' completed in ' . ( time() - $start ) . ' seconds' . ".\n" );
} else {
print( ' completed with error ' . $vm_error . ".\n" );
die();
}
for( my $i = 1 ;; $i++ ) {
print( 'Call #' . $i . ' to VMRevertToSnapshot()...' );
$start = time();
$vm_error = VMRevertToSnapshot( $vm, $snapshot, 0, VIX_INVALID_HANDLE );
if( $vm_error == VIX_OK ) {
print( ' completed in ' . ( time() - $start ) . ' seconds' . ".\n" );
} else {
print( ' completed with error ' . $vm_error . ".\n" );
die();
}
}However, at least when used to control VMware Server 1.0.8 Windows host from a Windows or Linux client using either VIX 1.0 or 1.6, the script hangs (not exits nor "dies") after only about five to fifty calls to VMRevertToSnapshot(). Is this a bug in VMware Server (or VIX), or is there something wrong with the script? Can fellow community members please test the above script and post your findings? Many thanks.
