Authen::Smb(3pm)

NAME

Authen::Smb - Perl extension to authenticate against an SMB server

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 (0) NTV_SERVER_ERROR (1) NTV_PROTOCOL_ERROR (2) NTV_LOGON_ERROR (3)

NTV_NO_ERROR is the only return value possible for a successful authentication. All other return values indicate failure, of one sort or another.

EXPORT_OK constants

  NTV_LOGON_ERROR
  NTV_NO_ERROR
  NTV_PROTOCOL_ERROR
  NTV_SERVER_ERROR

AUTHOR

Patrick Michael Kane, [email protected] Based on the smbval library from the samba package