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