use Win32::NetResource qw(:DEFAULT AddConnection GetError);
															   
	my $connex_string = null;
	my $win2k_uid = "uid";
	my $win2k_pwd = "pwd";
	my $persist = "/persistent:no";
	
	if ($domain =~m/^domainOne$/i) {
		print "domainOne\n";
		$net_resource = {
			"RemoteName" => "\\\\$object_md{MAP_SERVER}\\$argOne",
			"LocalName" => "$drive_letter",
		};
		$connex_string = $net_resource; 
	} elsif($domain =~m/^domainTwo$/i) {
		print "domainTwo\n";
		$net_resource = {
			"RemoteName" => "\\\\$object_md{MAP_SERVER}\\$argOne",
			"LocalName" => $drive_letter,
			"Type" => "RESOURCETYPE_ANY",
			"Provider" => "",
		};
		$connect_string = "$net_resource,$win2k_uid,$win2k_pwd,$persist";
	} else {
		print "Undefined domain\n";
	}

	if(AddConnection($connex_string)) {
		print "Connection work.\n";
	} else {
		print "Connection did not work.\n";
	}