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

代码语言

代码分类

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

作者:不是JS / 发布于2014/9/12/ 416


	#!/usr/bin/perl -w
	
	use Win32;
	use Win32::NetResource;
	use Win32::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.
	sub print_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";
	 print Win32::FormatMessage( $error_code );
	 }
	
	}

评论列表

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

试试其它关键字

　共享目录　

同语言下

可能有用的

不是JS贡献的其它代码(4)