use Win32::OLE;

$ADsPath = "WinNT://VAD/lanmanserver";

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

$s = $c->Create("fileshare",'ddd-doom');
$s->{path}        = 'C:\DOOM2';
$s->{description} = "This is a Perl created share";
$s->SetInfo();

##</code><code>##

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();