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

代码语言

代码分类

【Perl】 Windows上添加共享目录

作者:汶纡 / 发布于2014/11/18/ 695


	#!/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 );
	 }
	
	}

评论列表

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

试试其它关键字

　共享目录　

同语言下

可能有用的

汶纡贡献的其它代码(55)