Set CommandeDos=CreateObject( Wscript.shell )
Domaine = CommandeDos.ExpandEnvironmentStrings( %UserDomain% )
Utilisateur = CommandeDos.ExpandEnvironmentStrings( %UserName% )
Server = CommandeDos.ExpandEnvironmentStrings( %COMPUTERNAME% )
Set UserProp=Getobject( WinNT:// & Domaine & / & Utilisateur)
For Each GroupUser in UserProp.Groups
If ListGroup = then
ListGroup = GroupUser.name & CRLF
Else
ListGroup = ListGroup & CRLF & GroupUser.name
Select case GroupUser.name
Case Groupe 1 Case Groupe 2 Case Groupe 3
End Select
End if
Next
On peut ainsi effectué des actions (Lecteurs reseaux, copie de fichiers …) suivant le groupe d’apppartenace de la personne
ca serait simpa d’avoir ca avec une FONCTION, a la place des CASE, non ?