' Création de l'objet réseau
Set WshNetwork = WScript.CreateObject("WScript.Network")

' Creation de l'objet NetWorkDrives
Set NetWorkDrives = WshNetwork.EnumNetworkDrives

'Demonte le lecteur U: si il existe
NbNetWorkDrives = NetWorkDrives.Count - 1
For i = 0 to NbNetWorkDrives  Step 2
      If NetWorkDrives.Item(i) = "U:" then
        WshNetwork.RemoveNetworkDrive NetWorkDrives.Item(i)
        'on attend que le démontage soit effectif
        do until WshNetwork.EnumNetworkDrives.Count - 1 < NbNetWorkDrives
	   n=1
	   do until n > 5000
		n=n+1
	   loop
        loop
      End if
Next

'Monte le lecteur U: de l'utilisateur courant
WshNetwork.MapNetworkDrive "U:","\\srv-person-da.polytech.univ-tours.local\Person_Datas$\"+WshNetwork.userName