Option Explicit

Dim WSHNetwork, varUser, varPassword

varUser = "monlogin"
varPassword = "MonPassword"

Set WSHNetwork = CreateObject("WScript.Network")
	
Err.Clear
On Error Resume Next
WSHNetwork.RemoveNetworkDrive "Y:"

Err.Clear
WSHNetwork.MapNetworkDrive "Y:" , "\\192.168.1.12\MonPartage", False, varUser, varPassword