$err = VMRunScriptInGuest($vmHandle,
$interpreter,
$scriptText,
$options,
$propertyListHandle);
This function runs a script in the guest operating system.
use VMware::Vix::Simple; use VMware::Vix::API::Constants;since VMware Workstation 6.0
my $err = VIX_OK;
my $hostHandle = VIX_INVALID_HANDLE;
my $vmHandle = VIX_INVALID_HANDLE;
($err, $hostHandle) = HostConnect(VIX_API_VERSION,
VIX_SERVICEPROVIDER_VMWARE_WORKSTATION,
undef, # hostName
0, # hostPort
undef, # userName
undef, # password
0, # options
VIX_INVALID_HANDLE); # propertyListHandle
die "HostConnect() failed, $err ", GetErrorText($err), "\n" if $err != VIX_OK;
($err, $vmHandle) = VMOpen($hostHandle,
"c:\\Virtual Machines\\vm1\\win2000.vmx");
die "VMOpen() failed, $err ", GetErrorText($err), "\n" if $err != VIX_OK;
$err = VMPowerOn($vmHandle,
0, # powerOnOptions
VIX_INVALID_HANDLE); # propertyListHandle
die "VMPowerOn() failed, $err ", GetErrorText($err), "\n" if $err != VIX_OK;
$err = VMWaitForToolsInGuest($vmHandle,
300); # timeoutInSeconds
die "VMWaitForToolsInGuest() failed, $err ", GetErrorText($err), "\n" if $err != VIX_OK;
$err = VMLoginInGuest($vmHandle,
"vixuser", # userName
"secret", # password
0); # options
die "VMLoginInGuest() failed, $err ", GetErrorText($err), "\n" if $err != VIX_OK;
#
# Perl script to reverse the lines in a file
#
my $scripttext =
"if (!open IN, "<", "in.txt") { die "failed to open input file"};\n" .
"if (!open OUT, ">", "out.txt") { die "failed to open output file"};\n" .
"@input = <IN>;\n" .
"@reverse = reverse @input;\n" .
"print OUT @reverse;\n";
# Run the target program.
$err = VMRunScriptInGuest($vmHandle,
"c:\\perl\\perl.exe",
$scripttext,
0, # options
VIX_INVALID_HANDLE);
die "VMRunScriptInGuest() failed, $err ", GetErrorText($err), "\n" if $err != VIX_OK;
ReleaseHandle($vmHandle);
HostDisconnect($hostHandle);