Un fichier Logon Script qui s’adapte aux groupes utilisateurs



L’utilisation d’un fichier Logon Script peu permettre de réaliser des choses très intéressantes. Nous allons voir dans cet article comment exécuter certaines actions selon l’appartenance d’un utilisateur à un groupe Active Directory !

Que fait ce script?

Dans cet exemple si l’utilisateur qui exécute le script appartient à un groupe nommé Groupe-Compatibilité-Siège un lecteur réseau U va être mapper sur la ressource \\SERVEUR\PartageCompta et un script AuditCompta.vbs va être exécuter parallèlement au Logon Script.

Si l’utilisateur en revanche appartient au Groupe Groupe-Paye-Siège, 2 lecteurs U et V correspondants respectivement aux ressources \\SERVEUR\PartagePaye et \\SERVEUR\PartagePointages vont être mapper sur sa machine.

Voici le code …

On Error Resume Next
'Déclaration des variables'
Dim objGroupList, objADObject, strGroup, objUser

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshVarEnv = WshShell.Environment("PROCESS")
strNetBiosDomain = WshVarEnv.Item ("USERDOMAIN")
strLogonServer = WshShell.ExpandEnvironmentStrings("%Logonserver%")
strUserName = WshShell.ExpandEnvironmentStrings("%USERNAME%")

Set objUser = GetObject("WinNT://" & strNetBiosDomain & "/" _
  & strUserName & ",user")

'Condition 1 : Si l'utilisateur appartient à "Groupe-Comptabilité-Siège"
If IsMember("Groupe-Comptabilité-Siège") Then
objNetwork.RemoveNetworkDrive "U:"
objNetwork.MapNetworkDrive "U:" , "\\SERVEUR\PartageCompta"
WshShell.run strLogonServer & "netlogon\AuditCompta.vbs"
End If

'Condition 2 : Si l'utilisateur appartient à "Groupe-Paye-Siège"
If IsMember("Groupe-Paye-Siège") Then
objNetwork.RemoveNetworkDrive "U:"
objNetwork.MapNetworkDrive "U:" , "\\SERVEUR\PartagePaye"
objNetwork.RemoveNetworkDrive "V:"
objNetwork.MapNetworkDrive "V:" , "\\SERVEUR\PartagePointages"

End If

'Fin du script'
WScript.quit

'Les 2 Fonctions de test d'appartenance aux groupes'
Function IsMember(strGroup)
  If IsEmpty(objGroupList) Then
    Call ReadGroups
  End If
  IsMember = objGroupList.Exists(strGroup)
End Function

Sub ReadGroups
  Dim objGroup
  Set objGroupList = CreateObject("Scripting.Dictionary")
  objGroupList.CompareMode = vbTextCompare
  For Each objGroup In objUser.Groups
    objGroupList(objGroup.name) = True
  Next
  Set objGroup = Nothing
End Sub

Et après ?

Cette technique est très performante et devient vite indispensable. Vous pouvez imaginez une multitude d’utilisation avec ce type de condition par groupe d’appartenance.

Cette technique est particulièrement adaptée à la gestion des partages utilisateurs, puisque elle va faciliter vos migrations de fichiers. En effet si vous décider de changer l’emplacement d’un partage il suffira de changer le chemin indiqué dans le Logon Script et de demander aux utilisateurs du groupe de fermer et réouvrir leur session pour que leur nouveau partage soit effectif.

June 2008 · Rangé dans Scripting

Dans le même esprit ...


Commentaires

3 Responses to “Un fichier Logon Script qui s’adapte aux groupes utilisateurs”

  1. Créer un fichier Logon Script dans un domaine Active Directory on June 11th, 2008 11:16 am

    [...] est fréquemment utilisée et devient très vite indispensable. Il est ainsi possible de mapper un lecteur réseau sur le poste d’un utilisateur selon l’appartenance de ce derni…, de spécifier la page par défaut du navigateur de l’utilisateur, d’installer un [...]

  2. Mike on June 11th, 2008 8:37 pm

    Merci pour cet article, ca fonctionne parfaitement!

  3. Le Logon Script s’adapte aux utilisateurs nomades on June 12th, 2008 12:40 pm

    [...] avons vu dans un article précédent qu’il était possible d’adopter une stratégie de Logon Script selon l’appartenance d’un utilisateur à un groupe d&#821…. Cette méthode est tout a fait adaptée à la gestion des accès aux partages par [...]

Déposez votre commentaire