[VBS] MAJ Profil Terminal Server
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:
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
