determination du groupe auquel appartient un utilisateur puis copie de fichier en fonction du groupe
1 réponse
Gerald CELESTINE
Bonjour,
J'ai rédigé le script suivant afin d'effectuer une copie de fichiers
selon l'appartenance de l'utilisateur à un groupe active directory.
Cependant, les utilisateurs du groupe en question sont inclus dans le
second groupe.
Ma question est donc comment faire pour que si l'utilisateur fait partie
du groupe "Users Dev" je lui copie le fichier toto.ini et que dans les
autres cas je lui copie le fichier tata.ini.
Le script actuel ne fait rien dans la mesure ou les users faisant partie
de Users dev sont aussi dans Domain Users.
Config :
AD sous 2000
postes client en Windows 2000.
Merci d'avance de vos suggestions.
Gerald
On Error Resume Next
Dim FSO
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")
Set FSO = CreateObject("Scipting.FileSystemObject")
'*************************************************************************************
'* Détermination des groupes AD de l'utilisateur *
'*************************************************************************************
For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN
'************************************************************************************
'*Selection du fichier ini à mettre *
'************************************************************************************
Select case strGroupName
Case "Domain Users"
FSO.CopyFile "chemin\toto.ini","%systemroot%\appli.ini"
Case "Users Dev"
FSO.CopyFile "chemin\tata.ini","%systemroot%\appli.ini"
End Select
'************************************************************************************
'* Copie du fichier Services *
'************************************************************************************
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Stéphane [MS]
Bonjour,
Remplacer votre section de "Select Case" par un simple "If ... Then ... Else"
If strGroupName = "Users Dev" Then FSO.CopyFile "chemintoto.ini","%systemroot%appli.ini" Else FSO.CopyFile "chemintata.ini","%systemroot%appli.ini" End IF
Cdlt Stéphane
"Gerald CELESTINE" a écrit dans le message de news:
Bonjour,
J'ai rédigé le script suivant afin d'effectuer une copie de fichiers selon l'appartenance de l'utilisateur à un groupe active directory. Cependant, les utilisateurs du groupe en question sont inclus dans le second groupe. Ma question est donc comment faire pour que si l'utilisateur fait partie du groupe "Users Dev" je lui copie le fichier toto.ini et que dans les autres cas je lui copie le fichier tata.ini.
Le script actuel ne fait rien dans la mesure ou les users faisant partie de Users dev sont aussi dans Domain Users.
Config : AD sous 2000 postes client en Windows 2000.
Merci d'avance de vos suggestions.
Gerald
On Error Resume Next
Dim FSO Set objSysInfo = CreateObject("ADSystemInfo") Set objNetwork = CreateObject("Wscript.Network") Set FSO = CreateObject("Scipting.FileSystemObject")
'************************************************************************************* '* Détermination des groupes AD de l'utilisateur * '*************************************************************************************
For Each strGroup in objUser.MemberOf strGroupPath = "LDAP://" & strGroup Set objGroup = GetObject(strGroupPath) strGroupName = objGroup.CN
'************************************************************************************ '*Selection du fichier ini à mettre * '************************************************************************************
Select case strGroupName
Case "Domain Users" FSO.CopyFile "chemintoto.ini","%systemroot%appli.ini"
Case "Users Dev" FSO.CopyFile "chemintata.ini","%systemroot%appli.ini"
End Select
'************************************************************************************ '* Copie du fichier Services * '************************************************************************************
Remplacer votre section de "Select Case" par un simple "If ... Then ...
Else"
If strGroupName = "Users Dev" Then
FSO.CopyFile "chemintoto.ini","%systemroot%appli.ini"
Else
FSO.CopyFile "chemintata.ini","%systemroot%appli.ini"
End IF
Cdlt
Stéphane
"Gerald CELESTINE" <horisan@free.fr> a écrit dans le message de news:
uJXeWk98EHA.1392@tk2msftngp13.phx.gbl...
Bonjour,
J'ai rédigé le script suivant afin d'effectuer une copie de fichiers selon
l'appartenance de l'utilisateur à un groupe active directory.
Cependant, les utilisateurs du groupe en question sont inclus dans le
second groupe.
Ma question est donc comment faire pour que si l'utilisateur fait partie
du groupe "Users Dev" je lui copie le fichier toto.ini et que dans les
autres cas je lui copie le fichier tata.ini.
Le script actuel ne fait rien dans la mesure ou les users faisant partie
de Users dev sont aussi dans Domain Users.
Config :
AD sous 2000
postes client en Windows 2000.
Merci d'avance de vos suggestions.
Gerald
On Error Resume Next
Dim FSO
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")
Set FSO = CreateObject("Scipting.FileSystemObject")
'*************************************************************************************
'* Détermination des groupes AD de l'utilisateur *
'*************************************************************************************
For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN
'************************************************************************************
'*Selection du fichier ini à mettre *
'************************************************************************************
Select case strGroupName
Case "Domain Users"
FSO.CopyFile "chemintoto.ini","%systemroot%appli.ini"
Case "Users Dev"
FSO.CopyFile "chemintata.ini","%systemroot%appli.ini"
End Select
'************************************************************************************
'* Copie du fichier Services *
'************************************************************************************
Remplacer votre section de "Select Case" par un simple "If ... Then ... Else"
If strGroupName = "Users Dev" Then FSO.CopyFile "chemintoto.ini","%systemroot%appli.ini" Else FSO.CopyFile "chemintata.ini","%systemroot%appli.ini" End IF
Cdlt Stéphane
"Gerald CELESTINE" a écrit dans le message de news:
Bonjour,
J'ai rédigé le script suivant afin d'effectuer une copie de fichiers selon l'appartenance de l'utilisateur à un groupe active directory. Cependant, les utilisateurs du groupe en question sont inclus dans le second groupe. Ma question est donc comment faire pour que si l'utilisateur fait partie du groupe "Users Dev" je lui copie le fichier toto.ini et que dans les autres cas je lui copie le fichier tata.ini.
Le script actuel ne fait rien dans la mesure ou les users faisant partie de Users dev sont aussi dans Domain Users.
Config : AD sous 2000 postes client en Windows 2000.
Merci d'avance de vos suggestions.
Gerald
On Error Resume Next
Dim FSO Set objSysInfo = CreateObject("ADSystemInfo") Set objNetwork = CreateObject("Wscript.Network") Set FSO = CreateObject("Scipting.FileSystemObject")
'************************************************************************************* '* Détermination des groupes AD de l'utilisateur * '*************************************************************************************
For Each strGroup in objUser.MemberOf strGroupPath = "LDAP://" & strGroup Set objGroup = GetObject(strGroupPath) strGroupName = objGroup.CN
'************************************************************************************ '*Selection du fichier ini à mettre * '************************************************************************************
Select case strGroupName
Case "Domain Users" FSO.CopyFile "chemintoto.ini","%systemroot%appli.ini"
Case "Users Dev" FSO.CopyFile "chemintata.ini","%systemroot%appli.ini"
End Select
'************************************************************************************ '* Copie du fichier Services * '************************************************************************************