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