sub resetDriveMapping
{
	my $isDriveLetter = shift ;
	my $isSharename = shift ;
	my $Ifiletest = "$isDriveLetter\\idriveTESTfrom" . $ENV{COMPUTERNAME} . ".txt" ;
	
	my $Itestmsg = "...resetting: \'$isDriveLetter\' drive mapping from \'$ENV{COMPUTERNAME}\' to \'$isSharename\'" ;
	&writeLogFile($Itestmsg);
		
	my $runCommand = "echo Y|net use $isDriveLetter /DELETE" ;
	my $retvalue = system($runCommand);
	if ($retvalue)
	{
		&writeLogFile("cannot delete drive $isDriveLetter");
	}
	$runCommand = "net use $isDriveLetter $isSharename" ;
	$retvalue = system($runCommand);
	if ($retvalue)
	{
		&writeLogFile("cannot map drive $isDriveLetter to $isSharename");
	}
	#test share mapping
	$Itestmsg = "...start testing: \'$isDriveLetter\' drive mapping from \'$ENV{COMPUTERNAME}\' to \'$isSharename\'" ;
	&writeLogFile($Itestmsg);
	
	open(ITEST, ">$Ifiletest" ) || &writeLogFile("cannot CREATE $Ifiletest") ;
	print ITEST "$Itestmsg\n" ;
	close(ITEST) ;
	
	if ( ! -e "$Ifiletest" ) 
	{
		&writeLogFile("EXITing: test file does not exist \'$Ifiletest\'");
		exit(0) ;
	}
			
	open(ITEST, "$Ifiletest" ) || &writeLogFile("cannot OPEN $Ifiletest") ;
	my $Itestbuf = "" ;
	while (<ITEST>)
	{
		$Itestbuf = $_ ;
	}
	close(ITEST) ;
	unless ( $Itestbuf )
	{
		&writeLogFile("EXITing: could *not* read test content \'$Ifiletest\'");
		exit(0) ;
	} 
	else 
	{
		unlink( $Ifiletest ) || &writeLogFile("could not DELETE $Ifiletest") ;
		&writeLogFile("...end testing: \'$isDriveLetter\' drive mapping COMPLETED successfully") ;
}
}