use Win32::OLE;

$ADsPath = "WinNT://RU0028/VAD,computer";
$c = Win32::OLE->GetObject($ADsPath) or die "Невозможно получить $ADsPath\n";

# создаем и возвращаем объект User
$u = $c->Create("user","xx");
$u->SetInfo();  # нужно создать пользователя, перед тем как менять значения

# в пространстве имен WinNT: пробел между "Full" и "Name" недопустим
$u->{FullName} = "XXX-user!"; 
$su->SetInfo();