#!/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();