Mega Code Archive

 

Categories / Perl / Win32

 

Network shares

# This following code shares the D:\MyShare directory %share_def = (    'maxusers'    => -1,    'netname'     => 'MyShare',    'passwd'      => "",    'path'        => 'd:/MyShare',    'permissions' => 0,    'remark'      => 'This is MyShare',    'type'        => 0x00,  # directory ); $status = Win32::NetResource::NetShareAdd(\%share_def, $parm_error);