Discussion :

[blyonnet]

Bonjour,

Je débute en script et je bloque sur une étape.

Je souhaite en vb et a l ouverture de session windows de l'utilisateur, remonter tous les groupes d'appartenance ,de ce user, ayant dans le champs 'commentaire' le mot TARTENPION.

Une fois ces groupes checker, les associés a des variables.

voici mon bout de script :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
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")
 
 
WScript.Echo "--------------------------------------"
WScript.Echo "   Liste des Groupes d'appartenance  "
WScript.Echo "--------------------------------------"
WScript.Echo ""
 
  For Each objGroup In objUser.Groups
    WScript.echo objGroup.name
  Next
 
 
If IsMember("Tartenpion-Utilisateurs_info") Then
               WScript.Echo "Tartenpion-Utilisateurs_info -> OK"
           else
               WScript.Echo "Tartenpion-Utilisateurs_info -> Erreur"
End If
 
 
WScript.Echo "etape 2 - install"
 
'objNetwork.AddWindowsPrinterConnection "\\VariableX\variable1"
'objNetwork.AddWindowsPrinterConnection "\\VariableX\variable2"
'objNetwork.AddWindowsPrinterConnection "\\VariableX\variable3"
 
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

VOila donc il me manque l'étape de vérification :

Si le champ "commentaire" (du groupe) contient "TARTENPION"
Alors Variable1 = le nom du group testé
Sinon passer au suivant.

Quelqu un a une idée ?


Merci d'avance

[blyonnet]

Bonjour,

Je viens de simplifier le procédé :

Le script récupère le nom user a l'ouverture de session,

il fait un check des groups d'appartenance du user et doit placer chaque group ayant dans leur "nom" --> "DSI-*" dans une variable.

Quelqu un a une idée pour l'étape de check du nom du group et l'assignation a une variable ?

Merci d'avance.