#!/usr/bin/perl #coughcough
use strict;
use warnings;

Win32::AdminMisc::GetGroups($Domain,GROUP_TYPE_ALL,\@Groups)

Win32::AdminMisc::GetGroups($Domain,GROUP_TYPE_LOCAL,\@Groups)

Win32::AdminMisc::GetGroups($Domain,GROUP_TYPE_GLOBAL,\@Groups)