Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 2
 |
 |
9 Einträge, 1 Seite |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
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();
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();
1
2
3
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
$c = Win32::OLE->GetObjekt("WinNT://domaene/user");
$c->SetPassword("neuespasswort");
$c->SetInfo;$c->{IsAccountLocked} = 0;$c->Put{pwdLastSet, 0}; $c->SetInfo;
$c->put {PasswordRequired => 1}
![[Homepage]](/battie/theme/default/homepage.gif)
|
|
9 Einträge, 1 Seite |
![[Powered by Battie]](/battie/img/powered.png)
