Opened by Gast at 2004-02-10 12:34
User since
2003-09-12
32 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-09-12
32 Artikel
BenutzerIn
Aus dem oreilly buch perl für systemadministration :
--------------------------------------
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl -w
#
# Globalen Benutzer im Active Directory erzeugen
#
use strict;
use Win32::OLE;
my($username, $commonname, $fullname) = @ARGV or die "Aufruf: $0 user \"CN\" \"Voller Name\"\n";
my $ADsPath = "LDAP://CN=Users,dc=watz,dc=ee,dc=ethz,dc=ch";
my $c = Win32::OLE->GetObject($ADsPath) or die "Fehler bei Get $ADsPath\n";
# Benutzerkonto-Objekt erzeugen.
my $u = $c->Create("user", "cn=" . $commonname);
$u->{samAccountName} = $username;
# Benutzerkonto muß existieren, bevor es verändert werden kann.
$u->SetInfo();
# Der FullName heißt manchmal auch Display Name.
$u->{'FullName'} = $fullname;
$u->SetInfo();
--------------------------------------
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl -w
#
# Benutzer mit vollem Namen erzeugen
#
use strict;
use Win32::OLE;
my($username, $fullname) = @ARGV or die "Aufruf: $0 user \"Voller Name\"\n";
my $ADsPath = "WinNT://WATZ/VMKURU,computer";
my $c = Win32::OLE->GetObject($ADsPath) or die "Fehler bei Get $ADsPath\n";
# Benutzerkonto-Objekt erzeugen.
my $u = $c->Create("user", $username);
$u->SetInfo(); # Benutzerkonto muß existieren, bevor es verändert werden kann.
# Vollen Namen eintragen.
$u->{FullName} = $fullname;
$u->SetInfo();