Jim Bartlett wrote: > Woohoo. This works great! I appreciate the help (sorry for the newbie > questions).
You can also table drive it (not sure of the complete set) : my %UF = ( SCRIPT => 0x0001, ACCOUNTDISABLE => 0x0002, HOMEDIR_REQUIRED => 0x0008, LOCKOUT => 0x0010, PASSWD_NOTREQD => 0x0020, PASSWD_CANT_CHANGE => 0x0040, ENCRYPTED_TEXT_PASSWD_ALLOW => 0x0080, TEMP_DUPLICATE_ACCOUNT => 0x0100, NORMAL_ACCOUNT => 0x0200, INTERDOMAIN_TRUST_ACCOUNT => 0x0800, WORKSTATION_TRUST_ACCOUNT => 0x1000, SERVER_TRUST_ACCOUNT => 0x2000, DONT_EXPIRE_PASSWD => 0x10000, MNS_LOGON_ACCOUNT => 0x20000, SMARTCARD_REQUIRED => 0x40000, TRUSTED_FOR_DELEGATION => 0x80000, NOT_DELEGATED => 0x100000, PASSWORD_EXPIRED => 0x800000, TRUSTED_TO_AUTH_FOR_DELEGAT => 0x1000000, ); my %rev_UF = reverse %UF; for my $flag (0x203, 0x201, 0x202) { foreach (sort keys %rev_UF) { print "$rev_UF{$_} " if $flag & $_; } print "\n"; } _______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs