User Logon Script

I am trying to create a login script that will map a network drive and add printers
below is the script i am using and every time it gets to the map drive it errors and says  the drive is already mapped.
so i thought about adding the removenetworkdrive prior so that helped a little but when it is a new user the remove error that there is no drive to delete.

any ideas and / or suggestions would be greatly appreciated

' VBScript.
Option Explicit
Dim oNet, sUser, cInitial, startTime
Set oNet = CreateObject("WScript.Network")
sUser = oNet.UserName
startTime = Now

   oNet.RemoveNetworkDrive "F:", True, True
   oNet.RemoveNetworkDrive "H:", True, True

   oNet.MapNetworkDrive "F:", "\\DataServer\Yeshiva", True
   oNet.MapNetworkDrive "H:", "\\DataServer\" & sUser & "$", True

   oNet.AddWindowsPrinterConnection "\\Printers\HP LaserJet M604 (OFFICE)", "HP LaserJet M604"
   oNet.AddWindowsPrinterConnection "\\Printers\Kyocera TASKalfa 6002i KX (Office)", "Kyocera TASKalfa 6002i KX"

   oNet.SetDefaultPrinter "\\Printers\Kyocera TASKalfa 6002i KX (Office)"