Window下相互访问

y_y_jun

在Window下A访问B机器，可以输入\\xx.xxx.xx.xx\d$访问B机器的D盘，输入用户名和密码即可。
请问在Perl里如何实现？

flw

net use \\xxx.xxx.xxx.xxx\d$ /user:administrator

y_y_jun

记得以前用过，一下子忘记了。
net use Y: \\xxx.xxx.xxx.xxx\d$ /user:USERNAME PASSWORD

ulmer

原帖由 "y_y_jun" 发表：
在Window下A访问B机器，可以输入\\xx.xxx.xx.xx\d$访问B机器的D盘，输入用户名和密码即可。
请问在Perl里如何实现？

Under MS Window. using Win32::NetResource
See more details under ActivePerl: \Perl\html\index.html

ulmer

雨中漫步

#!/usr/bin/perl -w
use Win32::NetResource;
use strict;

my $RemoteName = '\\\\192.168.200.10\\member';
print $RemoteName,"\n";
my $user = '';
my $password = '';
my %NetResource = (
   'Scope' =>; RESOURCE_GLOBALNET,
   'Type' =>; RESOURCETYPE_PRINT,
   'DisplayType' =>; RESOURCEDISPLAYTYPE_GENERIC,
   'Usage' =>; RESOURCEUSAGE_CONNECTABLE,
   'RemoteName' =>;"$RemoteName"
               );
if (Win32::NetResource::AddConnection(\%NetResource, $password, $user, 1))
{
        print "successfull\n";
        for(1..10)
        {
                sleep(1);
                mkdir($RemoteName.'\\'.time());
        }
}
else
{
        print "ERRG\n";
}