12 lines
366 B
Perl
12 lines
366 B
Perl
|
# 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);
|