-----------------
unless (Win32::Lanman::NetLocalGroupEnum('', \@arrayOfHashes))
    {
    my $error = Win32::FormatMessage Win32::Lanman::GetLastError;
    $error = Win32::Lanman::GetLastError if ($error eq "");
    throw Error::Simple($error);
    }
-----------------