Displaying 4 results from an estimated 4 matches for "is_samba_us".
Did you mean:
is_samba_user
2003 May 23
0
LDAP tools for samba 3.24 schema
...ORT_OK %EXPORT_TAGS);
use Exporter;
$VERSION = 1.00;
+
+
+# Put your own SID, this section may be in smbldap_conf.pm
+# to obtain this number do: # net getlocalsid
+my ( $SID );
+$SID = 'replace with your SID number';
+
+
+
+
@ISA = qw(Exporter);
@EXPORT = qw(
@@ -116,7 +126,7 @@
sub is_samba_user
{
my $user = shift;
- my $cmd = "$ldapsearch -b '$suffix' -s '$scope'
'(&(objectClass=sambaAccount)(uid=$user))' | grep '^dn:\'";
+ my $cmd = "$ldapsearch -b '$suffix' -s '$scope'
'(&(objectClass=sambaSamAccoun...
2003 May 23
0
LDAP tools for SAMBA 3.24 corrected
...ORT_OK %EXPORT_TAGS);
use Exporter;
$VERSION = 1.00;
+
+
+# Put your own SID, this section may be in smbldap_conf.pm
+# to obtain this number do: # net getlocalsid
+my ( $SID );
+$SID = 'replace with your SID number';
+
+
+
+
@ISA = qw(Exporter);
@EXPORT = qw(
@@ -116,7 +126,7 @@
sub is_samba_user
{
my $user = shift;
- my $cmd = "$ldapsearch -b '$suffix' -s '$scope' '(&(objectClass=sambaAccount)(uid=$user))' | grep '^dn:\'";
+ my $cmd = "$ldapsearch -b '$suffix' -s '$scope' '(&(objectClass=sambaSamAccoun...
2004 Jan 14
0
Réf. : samba 2.2.8a PDC LDAP CTRL+ALT+DEL password change, not chaning Unix password
...}
$oldpass = 1;
}
}
if (!defined($user)) {
$user=$ENV{"USER"};
}
# test existence of user in LDAP
my $dn_line;
if (!defined($dn_line = get_user_dn($user))) {
print "$0: user $user doesn't exist\n";
exit (10);
}
my $dn = get_dn_from_line($dn_line);
my $samba = is_samba_user($user);
print "Changing password for $user\n";
# non-root user
if (!defined($oldpass)) {
# prompt for current password
system "stty -echo";
print "(current) UNIX password: ";
chomp($oldpass=<STDIN>);
print "\n";
system "stty echo"...
2003 Sep 16
4
Samba + LDAP + Password Expiry = Almost working...
...1;
}
}
if (!defined($user)) {
$user=$ENV{"USER"};
}
# test existence of user in LDAP
my $dn_line;
if (!defined($dn_line = get_user_dn($user))) {
print "$0: user $user doesn't exist\n";
exit (10);
}
my $dn = get_dn_from_line($dn_line);
my $samba = is_samba_user($user);
print "Changing password for $user\n";
# non-root user
if (!defined($oldpass)) {
# prompt for current password
system "stty -echo";
print "(current) UNIX password: ";
chomp($oldpass=<STDIN>);
print "\n";...