Create a new user account : NetAdmin « Win32 « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » Win32 » NetAdmin 
Create a new user account
  
          
#!/usr/bin/perl -w

use Win32::NetAdmin;

$host = '';

$username = "userName";
$password = "password";

$comment  = "your comments";

# User's home directory.
$homedir = "C:\\users\\" . $username;


$logon_script = "";

$flags = UF_SCRIPT | UF_NORMAL_ACCOUNT;

$status = Win32::NetAdmin::UserCreate($host,$username,$password,
             0, # Password age. Ignored.
             USER_PRIV_USER,  # Must use this value.
             $homedir,$comment,$flags,$logon_script);

if ($status) {
   print "Added $username account.\n";
else {
   print_error();
}

sub print_error {
    print Win32::FormatMessageWin32::GetLastError() );
}

   
    
  
Related examples in the same category
1.Listing all users
2.Prints Windows Primary Domain Controller
3.Get Servers
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.