|
Win32::NetAdmin - manage network groups and users in perl
|
Win32::NetAdmin - manage network groups and users in perl
use Win32::NetAdmin;
This module offers control over the administration of groups and users over a
network.
All of the functions return FALSE (0) if they fail, unless otherwise noted.
server is optional for all the calls below. If not given the local machine is
assumed.
- GetDomainController(server, domain, returnedName)
-
Returns the name of the domain controller for server.
- GetAnyDomainController(server, domain, returnedName)
-
Returns the name of any domain controller for a domain that is directly trusted
by the server.
- UserCreate(server, userName, password, passwordAge, privilege, homeDir, comment, flags, scriptPath)
-
Creates a user on server with password, passwordAge, privilege, homeDir, comment,
flags, and scriptPath.
- UserDelete(server, user)
-
Deletes a user from server.
- UserGetAttributes(server, userName, password, passwordAge, privilege, homeDir, comment, flags, scriptPath)
-
Gets password, passwordAge, privilege, homeDir, comment, flags, and scriptPath
for user.
- UserSetAttributes(server, userName, password, passwordAge, privilege, homeDir, comment, flags, scriptPath)
-
Sets password, passwordAge, privilege, homeDir, comment, flags, and scriptPath
for user.
- UserChangePassword(domainname, username, oldpassword, newpassword)
-
Changes a users password. Can be run under any account.
- UsersExist(server, userName)
-
Checks if a user exists.
- GetUsers(server, filter, userRef)
-
Fills userRef with user names if it is an array reference and with the user
names and the full names if it is a hash reference.
- GroupCreate(server, group, comment)
-
Creates a group.
- GroupDelete(server, group)
-
Deletes a group.
- GroupGetAttributes(server, groupName, comment)
-
Gets the comment.
- GroupSetAttributes(server, groupName, comment)
-
Sets the comment.
- GroupAddUsers(server, groupName, users)
-
Adds a user to a group.
- GroupDeleteUsers(server, groupName, users)
-
Deletes a users from a group.
- GroupIsMember(server, groupName, user)
-
Returns TRUE if user is a member of groupName.
- GroupGetMembers(server, groupName, userArrayRef)
-
Fills userArrayRef with the members of groupName.
- LocalGroupCreate(server, group, comment)
-
Creates a local group.
- LocalGroupDelete(server, group)
-
Deletes a local group.
- LocalGroupGetAttributes(server, groupName, comment)
-
Gets the comment.
- LocalGroupSetAttributes(server, groupName, comment)
-
Sets the comment.
- LocalGroupIsMember(server, groupName, user)
-
Returns TRUE if user is a member of groupName.
- LocalGroupGetMembers(server, groupName, userArrayRef)
-
Fills userArrayRef with the members of groupName.
- LocalGroupGetMembersWithDomain(server, groupName, userRef)
-
This function is similar LocalGroupGetMembers but accepts an array or
a hash reference. Unlike LocalGroupGetMembers it returns each user name
as
DOMAIN\USERNAME. If a hash reference is given, the function
returns to each user or group name the type (group, user, alias etc.).
The possible types are as follows:
$SidTypeUser = 1;
$SidTypeGroup = 2;
$SidTypeDomain = 3;
$SidTypeAlias = 4;
$SidTypeWellKnownGroup = 5;
$SidTypeDeletedAccount = 6;
$SidTypeInvalid = 7;
$SidTypeUnknown = 8;
- LocalGroupAddUsers(server, groupName, users)
-
Adds a user to a group.
- LocalGroupDeleteUsers(server, groupName, users)
-
Deletes a users from a group.
- GetServers(server, domain, flags, serverRef)
-
Gets an array of server names or an hash with the server names and the
comments as seen in the Network Neighborhood or the server manager.
For flags, see SV_TYPE_* constants.
- GetTransports(server, transportRef)
-
Enumerates the network transports of a computer. If transportRef is an array
reference, it is filled with the transport names. If transportRef is a hash
reference then a hash of hashes is filled with the data for the transports.
- LoggedOnUsers(server, userRef)
-
Gets an array or hash with the users logged on at the specified computer. If
userRef is a hash reference, the value is a semikolon separated string of
username, logon domain and logon server.
- GetAliasFromRID(server, RID, returnedName)
-
- GetUserGroupFromRID(server, RID, returnedName)
-
Retrieves the name of an alias (i.e local group) or a user group for a RID
from the specified server. These functions can be used for example to get the
account name for the administrator account if it is renamed or localized.
Possible values for RID:
DOMAIN_ALIAS_RID_ACCOUNT_OPS
DOMAIN_ALIAS_RID_ADMINS
DOMAIN_ALIAS_RID_BACKUP_OPS
DOMAIN_ALIAS_RID_GUESTS
DOMAIN_ALIAS_RID_POWER_USERS
DOMAIN_ALIAS_RID_PRINT_OPS
DOMAIN_ALIAS_RID_REPLICATOR
DOMAIN_ALIAS_RID_SYSTEM_OPS
DOMAIN_ALIAS_RID_USERS
DOMAIN_GROUP_RID_ADMINS
DOMAIN_GROUP_RID_GUESTS
DOMAIN_GROUP_RID_USERS
DOMAIN_USER_RID_ADMIN
DOMAIN_USER_RID_GUEST
- GetServerDisks(server, arrayRef)
-
Returns an array with the disk drives of the specified server. The array
contains two-character strings (drive letter followed by a colon).
# Simple script using Win32::NetAdmin to set the login script for
# all members of the NT group "Domain Users". Only works if you
# run it on the PDC. (From Robert Spier <rspier@seas.upenn.edu>)
#
# FILTER_TEMP_DUPLICATE_ACCOUNTS
# Enumerates local user account data on a domain controller.
#
# FILTER_NORMAL_ACCOUNT
# Enumerates global user account data on a computer.
#
# FILTER_INTERDOMAIN_TRUST_ACCOUNT
# Enumerates domain trust account data on a domain controller.
#
# FILTER_WORKSTATION_TRUST_ACCOUNT
# Enumerates workstation or member server account data on a domain
# controller.
#
# FILTER_SERVER_TRUST_ACCOUNT
# Enumerates domain controller account data on a domain controller.
use Win32::NetAdmin qw(GetUsers GroupIsMember
UserGetAttributes UserSetAttributes);
my %hash;
GetUsers("", FILTER_NORMAL_ACCOUNT , \%hash)
or die "GetUsers() failed: $^E";
foreach (keys %hash) {
my ($password, $passwordAge, $privilege,
$homeDir, $comment, $flags, $scriptPath);
if (GroupIsMember("", "Domain Users", $_)) {
print "Updating $_ ($hash{$_})\n";
UserGetAttributes("", $_, $password, $passwordAge, $privilege,
$homeDir, $comment, $flags, $scriptPath)
or die "UserGetAttributes() failed: $^E";
$scriptPath = "dnx_login.bat"; # this is the new login script
UserSetAttributes("", $_, $password, $passwordAge, $privilege,
$homeDir, $comment, $flags, $scriptPath)
or die "UserSetAttributes() failed: $^E";
}
}
|
Win32::NetAdmin - manage network groups and users in perl
|