Perl 在 Windows 上添加共享目录

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

#!/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$namen";
} 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: $descriptionn";
   } else {
      print "Error $error_coden";
      print Win32::FormatMessage( $error_code );
   }
   
}

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!