´=================================================
====================
´ NAME: QuickMapDrive.VBS
´ SYNTAX : WshNetwork.MapNetworkDrive strLocalName,
´ strRemoteName, [bUpdateProfile], [strUser],
´ [strPassword]
´ PARAMETERS:
´ -----------
´ strLocalNam: Local resource name to map to.
´ strRemoteName: Remote share to map.
´ bUpdateProfile: If bUpdateProfile is supplied and its value is TRUE,
´ this mapping is stored in the user profile.
´ strUser: User Name ("******" for test)
´ strPassword: Account password ("******" for test=
´
´ NOTE: No test are made. The "on error..." allow to
´ pass to the next drive if already mapped
´
Set WSHNetwork = WScript.CreateObject("WScript.Network" )
on error resume next
WSHNetwork.MapNetworkDrive "K:", "Tequiladocument", -1
WSHNetwork.MapNetworkDrive "L:", "TEQUILABVRP", -1
WSHNetwork.MapNetworkDrive "M:", "CQ2Modems", -1
WSHNetwork.MapNetworkDrive "N:", "CQ2Modems OEM", -1
WSHNetwork.MapNetworkDrive "O:", "Tequilaoem", -1
WSHNetwork.MapNetworkDrive "Q:", "CQ2CQ", -1
WSHNetwork.MapNetworkDrive "U:", " equilaupdate", -1
WSHNetwork.MapNetworkDrive "V:", " equilauser", -1
WSHNetwork.MapNetworkDrive "W:", " equilawinshop", -1
´===============================================
Voila il ne reste plus qu´a faire un copy/paste et changer le path des lecteurs reseaux
C´est en .VBS pas en batch.