use Win32::DomainAdmin  # ???
$result = Win32::DomainAdmin::GetGroups($server,\%groups);