You need to remove the current mapping. And you should be checking the result. try adding the "/Persistent" switch to your "USE /Delete".

code:
 Function MapDrive($Drive, $Server, $Share)
	Dim $Drive, $Server, $Share
	Color c+/n
	If $Drive<>"" and $Server<>"" and $Share<>""
		$LogText="Connecting $Drive to \\$Server\$Share"
		? $LogText
		USE $Drive /Delete /Persistent
		USE $Drive "\\$Server\$Share"
		If @error=0
			color g+/n
			$x=" - Success"
			"$x"
		Else
			color r+/n
			$x=" - Failed: Error @error"
			"$x"
			$ErrorState=1
		Endif
		WriteLog ($LogText + $x)
		Color w+/n
	Else
		WriteLog ("Function 'MapDrive' called with invalid parameters: '$Drive', '$Server', '$Share'")
	Endif
Endfunction


[ 02 April 2002, 18:19: Message edited by: Howard Bullock ]
_________________________
Home page: http://www.kixhelp.com/hb/