RemoveNetworkDrive leaves drive mapping for user to reconnect

This seems like a no-brainer, but when I run the script below, I show "Disconnect Network Drive."  But, it allows the user to double click on it thru Explorer and it reconnects.  So, I really need a Disconnect Network Drive that deletes the mapping.

Thanks

Dim WSHShell, WSHNetwork, objDomain, DomainString, UserString, UserObj, Path, objNetwork, objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork = WScript.CreateObject("WScript.Network")
Set WSHShell = CreateObject("WScript.Shell")
Set WSHNetwork = CreateObject("WScript.Network")
Set oNet = CreateObject("WScript.Network")
Set objDomain = getObject("LDAP://rootDse")
DomainString = objDomain.Get("dnsHostName")
UserString = WSHNetwork.UserName
Set UserObj = GetObject("WinNT://" & DomainString & "/" & UserString)
 
Rem *******************************Map based on Group Memberships**********************************
 
For Each GroupObj In UserObj.Groups
    Select Case GroupObj.Name
        Case "Farmingdale"
           If objFSO.DriveExists("F:")=True Then WSHNetwork.RemoveNetworkDrive"F:"
           If objFSO.DriveExists("M:")=False Then WSHNetwork.MapNetworkDrive "m:", "\\gsjs1\data",True
            
    End Select
next
set UserObj = Nothing
set GroupObj = Nothing
set WSHNetwork = Nothing
set DomainString = Nothing
set WSHSHell = Nothing
Set WSHPrinters = Nothing
 
Dim FSO

Select allOpen in new window