SYNOPSIS
use Authen::Smb;
my $authResult = Authen::Smb::authen('myUser',
'myPassword',
'myPDC',
'myBDC',
'myNTDomain');
if ( $authResult == Authen::Smb::NO_ERROR ) {
print "User successfully authenticated.\n";
} else {
print "User not authenticated with error level $authResult\n";
}
DESCRIPTION
Authen::Smb allows you to authenticate a user against an NT domain. You can specify both a primary and a backup server to use for authentication. The NT names of the machines should be used for specifying servers.An authentication request will return one of four values:
NTV_NO_ERROR \fIs0(0)
NTV_SERVER_ERROR \fIs0(1)
NTV_PROTOCOL_ERROR \fIs0(2)
NTV_LOGON_ERROR \fIs0(3)
EXPORT_OK constants
NTV_LOGON_ERROR NTV_NO_ERROR NTV_PROTOCOL_ERROR NTV_SERVER_ERROR