Discussion :

[blyonnet]

Bonjour,

Je suis entrain "d'essayer" de faire un script me permettant la chose suivante :

A l'ouverture de session user --> Check des groupes d'appartenance --> Si le "nom" du groupe contient "DSI_*" le stocker dans un tableau ou variables --> utiliser ces variable pour installer des imprimantes.

J'arrive a avoir un check des groupes d'appartenance mais je voudrai stocker ces résultats dans un tableau a 1 dimension

Une idée ? Voici mon début de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
 
On Error Resume Next
 
'Déclaration des variables'
 
Dim objGroupList, objADObject, strGroup, objUser
 
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshVarEnv = WshShell.Environment("PROCESS")
Set objNetwork = CreateObject("WScript.Network")
 
strNetBiosDomain = WshVarEnv.Item ("USERDOMAIN")
strLogonServer = WshShell.ExpandEnvironmentStrings("%Logonserver%")
strUserName = WshShell.ExpandEnvironmentStrings("%USERNAME%")
 
Set objUser = GetObject("WinNT://" & strNetBiosDomain & "/" _
  & strUserName & ",user")
 
 
	For Each objGroup In objUser.Groups
 
'	WScript.Echo ObjGroup.name
 
	Next
 
WScript.quit

Merci pour toutes infos.

[Fredledingue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
i=0
ReDim dsiGroup(i)
 For Each objGroup In objUser.Groups
 ogName = ObjGroup.name
  If Instr( ogName, "DSI_")>0 Then
  i=i+1
  ReDim Preserve dsiGroup(i)
  dsiGroup(i) = ogName
  End If
 Next

[blyonnet]

Alors Mille merci pour cette aide !!

Je vous posterai mon script une fois terminé au cas ou si quelqu un en aurait besoin.

Merci