# From Dave Roth's Perl for Win32 article in issue #7 of The Perl Journal.
# This is *not* a standalone script!  See the article for how to use these.

sub CheckMembership{
    my($Domain, $User, $Group) = @_;
    return (Win32::NetAdmin::GroupIsMember($Domain, $Group, $User) || Win32::NetAdmin::LocalGroupIsMember($Domain, $Group, $User));
}	

open(FILE, "< users.txt") || die "Could not open ($!)";
@Users = <FILE>;
close(FILE);
foreach $Data (@Users){
    chop $Data;
    ($Domain, $User, $Password, $HomeDir, $Password, $Comment) = split("\t", @Users);
  Win32::NetAdmin::UserCreate(
			      $Domain, 		# Domain 
			      $User,			# Userid 
			      $Password, 		# Password
			      $PasswordAge,  		# Password Age
			      USER_PRIV_USER,	# Privileges
			      $HomeDir,		# Home directory
			      $Comment, 		# Comment
			      UF_NORMAL_ACCOUNT | UF_SCRIPT,	# Flags
			      "c:\\scripts\\$User.bat") 	# Logon script
      || print "$User was not added.\n";
}