#!/usr/bin/perl -w
use Win32::OLE;
use Win32::AD::User;

$user = AdUser->new( 'WinNT://dir','andreas.roth');
$user->print_me();