Objet de stratégie de groupe Windows 2008 Server Ajouter des partages personnels

À l'heure actuelle, chaque employé a son propre partage sur le serveur de fichiers qui utilise l'initiale de son prénom et son nom de famille (par exemple, jsmith). Bien sûr, John Simth doit être connecté pour accéder au partage jsmith.

Le problème: À l’heure actuelle, j’ai deux options pour établir le partage jsmith chaque fois qu’un employé se connecte au domaine en créant un profil de domaine pour la première fois. I éther 1.) mappez manuellement le lecteur sur le partage. Ou 2.) utilisez le script VBScript ci-dessous et ouvrez-le manuellement ou placez-le manuellement dans le dossier de démarrage.

L’objectif: j’aimerais utiliser un script de connexion pour un objet de stratégie de groupe ou la fonction de lecteur de carte d’objet de stratégie de groupe pour s’assurer que l’employé a son partage personnel (mappé sur W :). Pour le moment, la seule solution que je puisse trouver consiste à ajouter le script VBScript ci-dessous en tant que script de connexion (à l'aide d'un objet de stratégie de groupe), MAIS il ne fonctionnera pas comme il le devrait. Il n'y a RIEN de mal avec le script si je le mets manuellement sur l'ordinateur de l'utilisateur et que je clique dessus. Mais comment puis-je m'assurer que le partage personnel des utilisateurs est mappé chaque fois que la connexion au domaine est effectuée sur TOUT ordinateur? REMARQUE: je n'ai pas besoin d'utiliser le script de connexion ci-dessous, mais c'est la seule option que je connaisse actuellement.

VBScript:

    ' Section removes W drive if exists
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("Wscript.Network")

If (objFSO.DriveExists("W:") = True) Then
    objNetwork.RemoveNetworkDrive "W:", True, True
End If

' Section Remaps W drive based on User Name, the OU is also stored but not used.

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

strUserName = objUser.samAccountName

strOUPath = objUser.Parent
arrContainers = Split(strOUPath, ",")
arrOU = Split(arrContainers(0), "=")
strOU = arrOU(1)

strDrive = "\\SERVER001\" & strUserName

strFirstInt= Left(strUserName,1)


strLastName= Split(strUserName, " ")(1)


strDrive = "\\192.168.0.1\" & strFirstInt & strLastName
'WScript.Echo (strDrive)

Set objNetwork = CreateObject("Wscript.Network")
objNetwork.MapNetworkDrive "W:", strDrive

Ouvrir Active Directory Users and Computers, rechercher un utilisateur, cliquer avec le bouton droit de la souris et sélectionner Properties. Sélectionnez l' Profileonglet. Sous Home Foldersélectionnez une lettre de pilote et un chemin UNC.