my $localdrive	= "x:/";
			my $RemoteName  = "\\\\RemoteSrv\\RemoteShare";

			%NetResource 	= (	LocalName 	=> "$localdrive",
									RemoteName 	=> "$RemoteName");

			my $User        = "User";
			my $Password 	= "Password";

			if ( Win32::NetResource::AddConnection( \%NetResource, $Password, $User, 0) ) {
				print "Connection Successful!\n";
			}
			else {
				print "Connection Failed: $^E \n";
			}