在Windows上添加共享目录代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】在Windows上添加共享目录

作者:不吃皮蛋 / 发布于2014/1/17/ 616

#!/usr/bin/perl -w



useWin32;

useWin32::NetResource;

useWin32::WinError;# Error code



# Set up a default host name.

$node= Win32::NodeName();



# Generate "proper" UNC name.

$default_host="\\\\".$node;



$host=$default_host;



$directory="d:\\MyShare";

$name="MyShare";

$remark="MyShare directory";





%share_def= (

'maxusers'=> -1,

'netname'=>$name,

'passwd'=>"",

'path'=>$directory,

'permissions'=> 0x01 | 0x02,# read-write

'remark'=>$remark,

'type'=> 0x00,# directory

);



$parm_error= 0;# ignore



$status= Win32::NetResource::NetShareAdd(\%share_def,$parm_error,$host);



if($status) {

print"Shared $directory as $host\\$name\n";

}else{

print_netresource_error();

}





# Note that you may see no message for an error.

subprint_netresource_error {



my($error_code) = 0;

my($type);

my($description);



Win32::NetResource::GetError($error_code);



if($error_code== ERROR_EXTENDED_ERROR) {



Win32::NetResource::WNetGetLastError($error_code,

$description,$type);



print"Extended $type error: $description\n";

}else{

print"Error $error_code\n";

printWin32::FormatMessage($error_code);

}



}

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　共享目录　

同语言下

可能有用的

不吃皮蛋贡献的其它代码(18)