Select Code to Download

use Win32::OLE;

...
$s->{path}        = 'C:\DOOM2';
$s->{description} = "This is a Perl created share";
$s->SetInfo();

use Win32::OLE;

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