Getting a VB Script error: An Attempt was made to remember a device that had previously been remembered.

I am still getting error, Can anyone help me with this script. I seem to be so close.  I have been struggling with this for awhile. This is a startup script not a logon script.  I use a computer policy to start the script. Unless someone else has better script.  But I need to remove the map first if there is one then map it to where it needs to be. Reason why I need this, is I have tellers that sign onto there teller software at there branch and need map drive that points to that branches server. If I setup a Logon script all is fine, but the problem comes in when all my tellers move around from branch to branch their login script would be pointing at the wrong branch server. So I figured a Startup script would be better. I would create a computer policy that would be specific to each branch. All I would then have to do is put ther computer into that container with that policy. So no matter who signs onto that computer it will be mapped to the correct server. Please I need some help with this. Our Teller turn over rate is high so, I would rather not have to go setup map drive for each user profile on every machine. Hope this makes sense.

I have SP4 installed.

Line 31
Char 1
Error: An Attempt was made to remember a device that had previously been remembered.
Code: 800704B2
Source: wshNetwork.mapnetworkdrive

Here is the script code that I have running at startup.

**************************
Option Explicit


Dim objNetwork
Dim DriveLetter1, RemotePath1
Dim AllDrives, AlreadyConnected, Network1,i

Set Network1 = CreateObject("WScript.Network")
DriveLetter1 = "T:" ' This letter must be in CAPITALS.

RemotePath1 = "\\farnam-tlrsrvr\Teller"

Set objNetwork = CreateObject("WScript.Network")
Set AllDrives = objNetwork.EnumNetworkDrives()


AlreadyConnected = False
For i = 0 To AllDrives.Count - 1 Step 2
If AllDrives.Item(i) = DriveLetter1 Then AlreadyConnected = True
Next

If AlreadyConnected = True then
objNetwork.RemoveNetworkDrive DriveLetter1
objNetwork.MapNetworkDrive DriveLetter1, RemotePath1

Else

objNetwork.MapNetworkDrive DriveLetter1, RemotePath1

End if

WScript.Quit
' End of Script