VBS Script Error The local device name is already in use

I am working with a logon script that someone else wrote and wandering if anyone could help straighten it out.
Scripting error
Line: 22
Char: 1
Error: the local device name is already in use.
Code: 80070055
Source: WSHNetwork.MapNetworkDrive

Here is the script:
' Maps "S" to Shared
'
'
' Author:  
' Version 1.1- March 19, 2007
' ----------------------------------------'
'

Option Explicit
Dim objNetwork, strDrive, objShell, objUNC
Dim strRemotePath, strDriveLetter, strNewName
Dim WshNetwork, oDrives, i
Dim bUpdateProfile
bUpdateProfile = "True"


'-- Setting objects --
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
bUpdateProfile

DriveMapper"S:","\\server1\shared"

Sub DriveMapper(Drive, Share)
For i = 0 to oDrives.Count -1 Step 2
if LCase(Drive) = LCase(oDrives.Item(i)) then
if not LCase(Share) = LCase(oDrives.Item(i+1)) then
WshNetwork.RemoveNetworkDrive Drive, true, true
Else
Exit Sub
End if
End if
Next
WshNetwork.MapNetworkDrive Drive, Share
End Sub

'Line 37



' Section to map the network drive
Set WshNetwork = CreateObject("WScript.Network")
'

' Section which actually (re)names the Mapped Drive
'Set objShell = CreateObject("Shell.Application")
'objShell.NameSpace(strDriveLetter).Self.Name = strNewName


'Wscript.Echo "Check : "& strDriveLetter & " for " & strNewName
'WScript.Quit

' End of script.