Mappage des lecteurs réseau à l’aide de VBScript

By Corentin BURTIN

L’un des scripts de connexion les plus couramment utilisés dans un environnement de domaine consiste à mapper les lecteurs réseau pour l’utilisateur final. Il existe plusieurs façons de mettre en œuvre une solution, notamment en utilisant la stratégie de groupe (de préférence) ou, pour assurer la rétrocompatibilité avec les systèmes antérieurs à Windows 2000, en utilisant l’onglet Profil dans les propriétés du compte utilisateur.

Si la méthode du profil est utilisée en modifiant l’attribut « Login Script » de l’utilisateur, le script lui-même doit être stocké dans le dossier NETLOGON situé sur les contrôleurs de domaine (DC). Il suffit de copier le fichier à cet emplacement sur l’un des DCs et le fichier sera répliqué sur les autres DCs du domaine.

‘ Mapper les lecteurs réseau, H :, I :, S :, et U :
‘ —————————————————————–‘

Option explicite

Dim objNetwork, strRemotePath1, strRemotePath2, strRemotePath3, strRemotePath4
Dim strDriveLetter1, strDriveLetter2, strDriveLetter3, strDriveLetter4, bUpdateProfile, bForce
Dim WshNetwork, fs

Set WshNetwork = WScript.CreateObject(« WScript.Network »)
Set fs = CreateObject(« Scripting.FileSystemObject »)
Set objNetwork = CreateObject(« WScript.Network »)

bForce = « True
bUpdateProfile = « True » (Mise à jour du profil)

strDriveLetter1 = « H : »
strDriveLetter2 = « I : » (en anglais)
strDriveLetter3 = « S : »
strDriveLetter4 = « U : » (en anglais)

strRemotePath1 = « \serverName\shareName »
strRemotePath2 = « \serverName\shareName »
strRemotePath3 = « \serverName\shareName »
strRemotePath4 = « \serverName\shareName »

Section qui supprime les lecteurs :
If fs.DriveExists(strDriveLetter1) Then WshNetwork.RemoveNetworkDrive strDriveLetter1, bForce, bUpdateProfile End If
If fs.DriveExists(strDriveLetter2) Then WshNetwork.RemoveNetworkDrive strDriveLetter2, bForce, bUpdateProfile End If
If fs.DriveExists(strDriveLetter3) Then WshNetwork.RemoveNetworkDrive strDriveLetter3, bForce, bUpdateProfile End If
If fs.DriveExists(strDriveLetter4) Then WshNetwork.RemoveNetworkDrive strDriveLetter4, bForce, bUpdateProfile End If

‘Section qui mappe les lecteurs :
objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1, bUpdateProfile
objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2, bUpdateProfile
objNetwork.MapNetworkDrive strDriveLetter3, strRemotePath3, bUpdateProfile
objNetwork.MapNetworkDrive strDriveLetter4, strRemotePath4, bUpdateProfile

A lire également :   Comment se désabonner sur Facebook en 2022 ?

‘ Code supplémentaire juste pour ajouter une boîte de message
‘ WScript.Echo « Map drives  » & strDriveLetter1 & strDriveLetter2 & strDriveLetter3 &  » &  » & strDriveLetter4

Wscript.Quit
Fin du script de connexion à Windows

Laisser un commentaire