Discussion :

[tofju]

Bonjour,

Voici mon script qui m'est à jour le profil Terminal Server et modifie le login script.

J'essaye d'adapter cette MAJ par le biais d'un fichier txt ou j'indique les comptes à mettre à jour au lieu de mettre à jour TOUT les users de l'OU

Qui peut me guider SVP ?

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
66
67
Option Explicit
 
 
'déclaration des variables
 
 
Dim objOU, objUser, objRootDSE,intCounter
Dim strContainer, strDNSDomain, strhomeDrive
Dim fso
Dim fichier
Dim Ligne
 
'déclaration des Constantes
 
 
Const Enabled = 1
Const Disabled = 0
Const ADS_PROPERTY_CLEAR = 1
 
 
'détermine le fichier à ouvrir
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fichier = fso.OpenTextFile("c:\tmp\test.txt", 1)
 
'boucle qui lis chaque ligne du fichier
 
Do While (Not fichier.AtEndOfStream)
  Ligne = fichier.Readline
 
Loop
 
 
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
 
 
strContainer = "OU=Agence Citrix,OU=Agence,"
strContainer = strContainer & strDNSDomain
set objOU = GetObject("LDAP://" & strContainer )
intCounter = 0
 
 
 
For each objUser in objOU
If objUser.class="user" Then
 
objUser.TerminalServicesProfilePath = "\\TEST\BP-PROFILES\%USERNAME%"
objUser.TerminalServicesHomeDirectory = "\\TEST\BP-USERS\%USERNAME%"
objUser.TerminalServicesHomeDrive = "H:"
objUser.AllowLogon = Enabled
objUser.SetInfo
objUser.LoginScript = "citrix.vbs"
objUser.SetInfo
 
'Supprime le profile Path
 
objUser.PutEx ADS_PROPERTY_CLEAR, "profilePath", 0
objUser.SetInfo
 
 
intCounter = intCounter +1
 
End if
next
WScript.Echo intCounter
 
WScript.Quit

Merci d'avance pour votre aide

[spantemonium]

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
Option Explicit
 
 
'déclaration des variables
 
 
Dim objOU, objUser, objRootDSE,intCounter
Dim strContainer, strDNSDomain, strhomeDrive
Dim fso
Dim fichier
Dim Ligne
 
'déclaration des Constantes
 
 
Const Enabled = 1
Const Disabled = 0
Const ADS_PROPERTY_CLEAR = 1
 
 
'détermine le fichier à ouvrir
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fichier = fso.OpenTextFile("c:\tmp\test.txt", 1)
 
 
'Infos domaine
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
strContainer = "OU=Agence Citrix,OU=Agence,"
strContainer = strContainer & strDNSDomain
set objOU = GetObject("LDAP://" & strContainer )
 
'boucle qui lit chaque ligne du fichier
Do While (Not fichier.AtEndOfStream)
	Ligne = fichier.Readline	
	intCounter = 0
	For each objUser in objOU
	If objUser.class="user" Then
		'if rajouté pour le besoin
		if LCase(objUser.sAMAccountName) = LCase(Ligne) Then
			objUser.TerminalServicesProfilePath = "\\TEST\BP-PROFILES\%USERNAME%"
			objUser.TerminalServicesHomeDirectory = "\\TEST\BP-USERS\%USERNAME%"
			objUser.TerminalServicesHomeDrive = "H:"
			objUser.AllowLogon = Enabled
			objUser.SetInfo
			objUser.LoginScript = "citrix.vbs"
			objUser.SetInfo
			'Supprime le profile Path
			objUser.PutEx ADS_PROPERTY_CLEAR, "profilePath", 0
			objUser.SetInfo
			intCounter = intCounter +1
		End If
	End if
next
WScript.Echo intCounter
Loop 
WScript.Quit

[tofju]

spantemonium

Un grand Merci

[spantemonium]

Tu peux tagger en résolu si tout fonctionne ^^