use Win32::OLE 'in';
    Win32::OLE->Option('Warn'=>0);

my $ADS_GLOBAL_GROUP     = 0x00000002;
my $ADS_LOCAL_GROUP      = 0x00000004;
my $ADS_UNIVERSAL_GROUP  = 0x00000008;
my $ADS_SECURITY_ENABLED = 0x80000000;

my $User = Win32::OLE->GetObject("WinNT://DOMAIN/USERNAME");

Kind regards,

Mark Anderson
SMS Deployment
The Royal Bank of Scotland
113 Dundas Street, Edinburgh, EH3 5DE
http://www.manufacturing.rbs.co.uk/GTrswi/


> -----Original Message-----
> From: Tshimanga Minkoka [SMTP:[EMAIL PROTECTED]
> Sent: Monday, September 20, 2004 11:11 AM
> To:   [EMAIL PROTECTED]
> Subject:      Check username and password in a Windows NT Domain
> 
> *** WARNING : This message originates from the Internet ***
> 
> Hi Perl users,
> 
> I need a Perl module or Perl script that enables to check the username and
> the password in a Windows NT domain.
> I mean a sort of function that return TRUE if the provided information
> match
> the one in the Domain Controller, otherwise it returns FALSE.
> 
> if (CheckUser('username', 'password', 'domain')) {
>     print "Access granted!\n";
> }
> else {
>     warn "Access denied!\";
> }
> 
> Any help will be appreciated.
> 
> Thanks,
> 
> TSHIMANGA Minkoka
> VAS Administrator
> Mobile: +243 814443113
> Office: +243 813131347
> Fax:    +243 813010373
> Email:  [EMAIL PROTECTED]
> VODACOM CONGO (DRC) s.p.r.l.
> 
> 
> 
> _______________________________________________
> Perl-Win32-Admin mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


The Royal Bank of Scotland plc, Registered in Scotland No. 90312. Registered Office: 
36 St Andrew Square, Edinburgh EH2 2YB

The Royal Bank of Scotland plc is authorised and regulated by the Financial Services 
Authority and represents The Royal Bank of Scotland Marketing Group. The Bank sells 
life policies, collective investment schemes and pension products and advises only on 
the Marketing Group's range of these products and on a With-Profit Bond produced by 
Norwich Union Life (RBS) Limited.

This e-mail message is confidential and for use by the addressee only. If the message 
is received by anyone other than the addressee, please return the message to the 
sender by replying to it and then delete the message from your computer. Internet 
e-mails are not necessarily secure. The Royal Bank of Scotland plc does not accept 
responsibility for changes made to this message after it was sent.

Whilst all reasonable care has been taken to avoid the transmission of viruses, it is 
the responsibility of the recipient to ensure that the onward transmission, opening or 
use of this message and any attachments will not adversely affect its systems or data. 
No responsibility is accepted by The Royal Bank of Scotland plc in this regard and the 
recipient should carry out such virus and other checks as it considers appropriate.

_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to