#!/usr/bin/perl -w

use strict;
use warnings;
use File::Copy;
use Win32::NetResource;

my $RemoteShare = {
                 'Type'=> RESOURCETYPE_DISK,
                 'Usage' => RESOURCEUSAGE_CONNECTABLE,
                 'LocalName' => "Y:",
                 'RemoteName' => "\\servername\c$"                 
                };
                
 my $UserName = "";
 my $Password = "";
 my $Connection = 1;
 my $ErrorCode = "";
 
Win32::NetResource::AddConnection($RemoteShare,$Password,$UserName,$Connection)
  or print "unable to add network\n";

Win32::NetResource::GetError( $ErrorCode );
print "Error code is $ErrorCode";