There is a bug in the Win32::FileSecurity module. It would be easy to fix if the module had been written with all of the "interesting" code in Perl (I hate modules that write more than trivial amounts of code in C that could be done in Perl).

Anyway, the problem is that they split the name at the \ and use the first part as a server name.

The work-around is pretty easy; you use the name of a domain controller rather than the name of the domain. If you don't know the name of a domain controller, then do:

use Win32::NetAdmin;
Win32::NetAdmin::GetAnyDomainController("","CTSDEV",$dc)
  or  die "Can't find domain controller for CTSDEV: $^E\n";
$PERMISSIONS{"$dc\\Domain Admins"}= "F";
[download]

        - tye (but my friends call me "Tye")