Beta Shell v2.0

File Manager

~ /usr/share/perl5/vendor_perl/Ocsinventory/Agent/Backend/Virtualization

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Docker.pm	1.37 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Jails.pm	1.47 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Libvirt.pm	1.38 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Lxc.pm	2.44 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Parallels.pm	6.58 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Qemu.pm	1.88 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
SolarisLdoms.pm	1.39 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
SolarisZones.pm	2.31 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
VirtualBox.pm	6.98 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
VmWareDesktop.pm	1.39 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
VmWareESX.pm	1.37 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
VmWareWorkstation.pm	1.56 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Vmsystem.pm	6.56 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Xen	-	drwxr-xr-x	2025-05-28 10:13:47	Del
Xen.pm	151 B	-rw-r--r--	2024-10-28 14:52:47	Edit Del
XenCitrixServer.pm	1.43 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del

Editing: VmWareDesktop.pm (1.39 KB)

package Ocsinventory::Agent::Backend::Virtualization::VmWareDesktop;
#
# initial version: Walid Nouh
#

use strict;

sub check { 
    my $params = shift;
    my $common = $params->{common};
    return $common->can_run('/Library/Application\ Support/VMware\ Fusion/vmrun') 
}

sub run {
    my $params = shift;
    my $common = $params->{common};
    my $logger = $params->{logger};

    my $uuid;
    my $mem;
    my $status;
    my $name;
    my $i = 0;

    my $commande = "/Library/Application\\ Support/VMware\\ Fusion\/vmrun list";
    foreach my $vmxpath ( `$commande` ) {
        next unless $i++ > 0; # Ignore the first line
        if (!open TMP, "<$vmxpath") {
            $logger->debug("Can't open $vmxpath\n");
            next;
        }
        my @vminfos = <TMP>;
        close TMP;

        foreach my $line (@vminfos) {
            if ($line =~ m/^displayName =\s\"+(.*)\"/) {
                $name = $1;
            } elsif ($line =~ m/^memsize =\s\"+(.*)\"/) {
                $mem = $1;
            } elsif ($line =~ m/^uuid.bios =\s\"+(.*)\"/) {
                $uuid = $1;
            }
        }

        $common->addVirtualMachine ({
            NAME      => $name,
            VCPU      => 1,
            UUID      => $uuid,
            MEMORY    => $mem,
            STATUS    => "running",
            SUBSYSTEM => "VmWare Fusion",
            VMTYPE    => "VmWare",
        });
    }
}

1;