[perl] 윈도우즈 네트웍 드라이브 연결하기

윈도우즈에서 펄언어로 네트웍 드라이브 연결하는 방법

my $LocalName = 'Z:';
my $RemoteName = "\\\\remotemachine\\log";
my $UpdateProfile = 0;
my $User = 'xxxxxx';
my $Password = 'xxxxxx';
my $Force = 1;

my $objnet=Win32::OLE->CreateObject("Wscript.Network");

#네트웍 드라이브 연결
$objnet->MapNetworkDrive($LocalName, $RemoteName, $UpdateProfile, $User, $Password);

#네트웍 드라이브 해제
$objnet->RemoveNetworkDrive($LocalName, $Force, $UpdateProfile);