On Error Resume Next

Dim wshNetwork
Set wshNetwork = WScript.CreateObject( "WScript.Network")

wshNetwork.RemoveNetworkDrive "M:"

On Error Goto 0

WshNetwork.MapNetworkDrive "M:", "\\server\folder", false, "user@domain", "password"

Set wshNetwork = Nothing