Load libwin32-0.03 into trunk.

Author: jandubois

Changes

@@ -0,0 +1,6 @@
+Revision history for Perl extension Win32::NetAdmin.
+
+0.01  Sat Apr  5 14:24:05 1997
+	- original version; created by h2xs 1.18
+	- imported ActiveWare version
+

MANIFEST

@@ -0,0 +1,6 @@
+Changes
+Makefile.PL
+MANIFEST
+NetAdmin.pm
+NetAdmin.xs
+t/netadmin.t

Makefile.PL

@@ -0,0 +1,10 @@
+use ExtUtils::MakeMaker;
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+WriteMakefile(
+    'NAME'	=> 'Win32::NetAdmin',
+    'VERSION_FROM' => 'NetAdmin.pm', # finds $VERSION
+    'dist'	=> {COMPRESS => 'gzip -9f', SUFFIX => 'gz'},
+    'dynamic_lib' => { 'OTHERLDFLAGS' => q[netapi32.lib] },
+#    'INC'	=> '-I.\\include',
+);

NetAdmin.pm

@@ -0,0 +1,227 @@
+package Win32::NetAdmin;
+
+#
+#NetAdmin.pm
+#Written by [email protected]
+#
+
+$VERSION = '0.01';
+
+require Exporter;
+require DynaLoader;
+
+die "The Win32::NetAdmin module works only on Windows NT" if(!Win32::IsWinNT() );
+
+@ISA= qw( Exporter DynaLoader );
+# Items to export into callers namespace by default. Note: do not export
+# names by default without a very good reason. Use EXPORT_OK instead.
+# Do not simply export all your public functions/methods/constants.
+@EXPORT = qw(
+	FILTER_TEMP_DUPLICATE_ACCOUNT
+	FILTER_NORMAL_ACCOUNT
+	FILTER_INTERDOMAIN_TRUST_ACCOUNT
+	FILTER_WORKSTATION_TRUST_ACCOUNT
+	FILTER_SERVER_TRUST_ACCOUNT
+	SV_TYPE_WORKSTATION
+	SV_TYPE_SERVER
+	SV_TYPE_SQLSERVER
+	SV_TYPE_DOMAIN_CTRL
+	SV_TYPE_DOMAIN_BAKCTRL
+	SV_TYPE_TIMESOURCE
+	SV_TYPE_AFP
+	SV_TYPE_NOVELL
+	SV_TYPE_DOMAIN_MEMBER
+	SV_TYPE_PRINT
+	SV_TYPE_DIALIN
+	SV_TYPE_XENIX_SERVER
+	SV_TYPE_NT
+	SV_TYPE_WFW
+	SV_TYPE_POTENTIAL_BROWSER
+	SV_TYPE_BACKUP_BROWSER
+	SV_TYPE_MASTER_BROWSER
+	SV_TYPE_DOMAIN_MASTER
+	SV_TYPE_DOMAIN_ENUM
+	SV_TYPE_ALL
+	UF_TEMP_DUPLICATE_ACCOUNT
+	UF_NORMAL_ACCOUNT
+	UF_INTERDOMAIN_TRUST_ACCOUNT
+	UF_WORKSTATION_TRUST_ACCOUNT
+	UF_SERVER_TRUST_ACCOUNT
+	UF_MACHINE_ACCOUNT_MASK
+	UF_ACCOUNT_TYPE_MASK
+	UF_DONT_EXPIRE_PASSWD
+	UF_SETTABLE_BITS
+	UF_SCRIPT
+	UF_ACCOUNTDISABLE
+	UF_HOMEDIR_REQUIRED
+	UF_LOCKOUT
+	UF_PASSWD_NOTREQD
+	UF_PASSWD_CANT_CHANGE
+	USE_FORCE
+	USE_LOTS_OF_FORCE
+	USE_NOFORCE
+	USER_PRIV_MASK
+	USER_PRIV_GUEST
+	USER_PRIV_USER
+	USER_PRIV_ADMIN
+);
+
+=head1 NAME
+
+Win32::NetAdmin - manage network groups and users in perl
+
+=head1 SYNOPSIS
+
+	use Win32::NetAdmin;
+
+=head1 DESCRIPTION
+
+This module offers control over the administration of groups and users over a network.
+
+=head1 FUNCTIONS
+
+=head2 NOTE
+
+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.)
+
+=over 10
+
+=item GetDomainController(server, domain, returnedName)
+
+Return the name of the domain controller for server
+
+=item UserCreate(server, userName, password, passwordAge, privilege, homeDir, comment, flags, scriptPath)
+
+Creates a user on server with password, passwordAge, privilege, homeDir, comment, flags, and scriptPath
+
+=item UserDelete(server, user)
+
+Deletes a user from server
+
+=item UserGetAttributes(server, userName, password, passwordAge, privilege, homeDir, comment, flags, scriptPath)
+
+Gets password, passwordAge, privilege, homeDir, comment, flags, and scriptPath for user
+
+=item UserSetAttributes(server, userName, password, passwordAge, privilege, homeDir, comment, flags, scriptPath)
+
+Sets password, passwordAge, privilege, homeDir, comment, flags, and scriptPath for user
+
+=item UserChangePassword(domainname, username, oldpassword, newpassword)
+
+Changes a users password. Can be run under any account.
+
+=item UsersExist(server, userName)
+
+Checks if a User exists
+
+=item GetUsers(server, filter, \@userArray)
+
+Fills userArray with the all of the User names
+
+=item GroupCreate(server, group, comment)
+
+Creates a group
+
+=item GroupDelete(server, group)
+
+Deletes a group
+
+=item GroupGetAttributes(server, groupName, comment)
+
+Gets the comment
+
+=item GroupSetAttributes(server, groupName, comment)
+
+Sets the comment
+
+=item GroupAddUsers(server, groupName, users)
+
+Adds a user to a group
+
+=item GroupDelUsers(server, groupName, users)
+
+Deletes a users from a group
+
+=item GroupIsMember(server, groupName, user)
+
+Returns TRUE if user is a member of groupName
+
+=item GroupGetMembers(server, groupName, \@userArray)
+
+Fills userArray with the members of groupName
+
+=item LocalGroupCreate(server, group, comment)
+
+Creates a local group
+
+=item LocalGroupDelete(server, group)
+
+Deletes a local group
+
+=item LocalGroupGetAttributes(server, groupName, comment)
+
+Gets the comment
+
+=item LocalGroupSetAttributes(server, groupName, comment)
+
+Sets the comment
+
+=item LocalGroupIsMember(server, groupName, user)
+
+Returns TRUE if user is a member of groupName
+
+=item LocalGroupGetMembers(server, groupName, \@userArray)
+
+Fills userArray with the members of groupName
+
+=item LocalGroupAddUsers(server, groupName, users)
+
+Adds a user to a group
+
+=item LocalGroupDelUsers(server, groupName, users)
+
+Deletes a users from a group
+
+=item GetServers(server, domain, flags, \@serverArray)
+
+Gets an array of server names
+	flags - see SV_TYPE_... in constants
+
+=back
+
+=cut
+
+sub AUTOLOAD {
+    # This AUTOLOAD is used to 'autoload' constants from the constant()
+    # XS function.  If a constant is not found then control is passed
+    # to the AUTOLOAD in AutoLoader.
+
+    my($constname);
+    ($constname = $AUTOLOAD) =~ s/.*:://;
+    #reset $! to zero to reset any current errors.
+    $!=0;
+    my $val = constant($constname, @_ ? $_[0] : 0);
+    if ($! != 0) {
+	if ($! =~ /Invalid/) {
+	    $AutoLoader::AUTOLOAD = $AUTOLOAD;
+	    goto &AutoLoader::AUTOLOAD;
+	}
+	else {
+	    ($pack,$file,$line) = caller;
+	    die "Your vendor has not defined Win32::NetAdmin macro $constname, used in $file at line $line.";
+	}
+    }
+    eval "sub $AUTOLOAD { $val }";
+    goto &$AUTOLOAD;
+}
+
+bootstrap Win32::NetAdmin;
+
+# Preloaded methods go here.
+
+# Autoload methods go after __END__, and are processed by the autosplit program.
+
+1;
+__END__
+