éditer les propriétés LCS d'un utilisateur de l'AD par script

**BriceNICE** · 02/05/2007, 11h02

Bonjour à tous ami(e)s programmeurs, j'ai mis en place un serveur LCS 2005 (equivaut à un serveur de présence) et maintenant je voudrais éditer les propriétés LCS de chacun de mes utilisateurs de mon Active Directory, le problème

est qu'il y a environ 200 utilisateurs c'est pourquoi je m'adresse à vous

dans le but de pouvoir répondre à ma requête.

la propriété Lcs d'un utilisateur doit permettre de cocher une case sous la forme d'un booléen ainsi qu'une zone de texte permettant de renseigner le nom du serveur lcs concerner en l'occurrence ici lcs2005.local.com

merci de pouvoir m'aider.

voici mon programme :

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
Dim u,oConnection,oRecordset
 
' Connexion de type base de donnée à Active Directory
 
Set oConnection = CreateObject("ADODB.Connection")
oConnection.Provider = "ADsDSOObject"
oConnection.Open "ADs Provider"
 
' Définition de la recherche principale
 
Set oRecordset = oConnection.Execute("<LDAP://OU=agence,DC=Local,DC=com>;(&(objectCategory=user));samaccountname,mail,distinguishedName;subtree")
 
 
' Boucle sur les enregistrements
 
If Not oRecordset.EOF Then
 
    While Not oRecordset.EOF
 
      currentuser=oRecordset.Fields("sAMAccountName")
 
      If (isnull(oRecordset.Fields("mail"))) then
 
            u=u+1
            Dim oUser
            set oUser= GetObject("LDAP://"+oRecordset.Fields("distinguishedName"))
 
                        'Distinctin bureaux - agences
 
                         if mid(currentuser,1,2) = "b-" then
                                   mail =  mid(currentuser,3,len(currentuser)-2) & "@local.com"
                         else
                                   mail =  currentuser & "@local.com" 
 
			 end if	
            'Mise à jour du champ Mail
            oUser.put "Mail", Mail
            oUser.setinfo
 
      End if
 
      oRecordset.movenext
 
    wend
 
End If
 
wscript.echo "Enregistrement terminé !"
wscript.quit

il fonctionne correctement mais je voudrais rajouter le code me permettant de coser une case et nommer dans une zone de texte le nom du serveur LCS.

**omen999** · 02/05/2007, 20h06

salut,
vbs ne dispose pas nativement d'une interface graphique qui permettrait à l'utilisateur de manipuler des cases à cocher
il existe juste la fonction inputbox qui permet de saisir du texte de façon rudimentaire
l'ajout d'une gui suppose le recours à un composant activex comme celui-ci: http://home.hccnet.nl/p.vd.klugt/
ou si tu es très courageux, ici: http://www.developpez.net/forums/sho...d.php?t=276403

**BriceNICE** · 03/05/2007, 09h14

je ne veux pas créer de case à cocher je veux juste cocher la case qui permet justement d'activer les propriétés LCS d'un utilisateur mais par script.

Lorsque tu te positionne sur un user et que tu effectues un clic droit ensuite propriétés et là il fo aller dans les propriétés LCS de l'utilisateur et cocher la case correspondante et remplir le champ nécessaire, c'est tout ce que je demande.

**omen999** · 03/05/2007, 14h22

tu trouveras peut-être une réponse dans le sdk: http://www.microsoft.com/downloads/d...displaylang=en
il contient des exemples de script wsf

ici également: http://www.activedir.org/article.aspx?aid=118

**BriceNICE** · 03/05/2007, 16h07

oki merci pour ton aide et ta recherche c'est exactement ce que je dois faire mais le script parait vraiment compliqué si jamais tu connais, je voudrais bien un peu d'aide,

**BriceNICE** · 07/05/2007, 09h24

Voici le script que j'ai crée mais celui-ci ne fonctionne pas, est-ce que quelqu'un pourrait m'apporter son aide???? 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
dim oConnection,oRecordset
 
' Connexion de type base de donnée à Active Directory
 
Set oConnection = CreateObject("ADODB.Connection")
oConnection.Provider = "ADsDSOObject"
oConnection.Open "ADs Provider"
 
' Définition de la recherche principale
 
Set oRecordset = oConnection.Execute("<LDAP://OU=agence,DC=Local,DC=com>;(&(objectCategory=user));sAMAccountName,mail,distinguishedName,msRTCSIP-UserEnabled,msRTCSIP-PrimaryHomeServer;subtree")
 
 
' Boucle sur les enregistrements
 
If Not oRecordset.EOF Then
 
    While Not oRecordset.EOF
 
      currentuser=oRecordset.Fields("sAMAccountName")			
 
      If (isnull(oRecordset.Fields("mail"))) then
 
            'u=u+1
            Dim oUser
            set oUser= GetObject("LDAP://"+oRecordset.Fields ("distinguishedName"))	
 
                        'Distinctin bureaux - agences
 
                         if mid(currentuser,1,2) = "b-" then
 
                                   mail =  mid(currentuser,3,len(currentuser)-2) & "@local.com"
                         else
                                   mail =  currentuser & "@local.com" 
 
			 end if 
 
 					If (isnull(oRecordset.Fields("msRTCSIP-UserEnabled"))) then 'permet de d'activer la case à cocher dans les propriétés lcs d'un user.
 
						'UserEnabled = TRUE 			
 
					End if
						PrimaryHomeServer = "LCS2005.local.com"		'renseigne juste apres la case à cocher le nom du serveur LCS actuel.
 
						Wscript.echo("msRTCSIP-PrimaryHomeServer")
 
 
            'Mise à jour du champ Mail et LCS
 
 
 
	oUser.put "Mail", Mail 
	oUser.put "msRTCSIP-UserEnabled", msRTCSIP-UserEnabled
	oUser.put "PrimaryHomeServer",PrimaryHomeServer
	oUser.SetInfo 
 
 
      End if			
 
      oRecordset.movenext  
 
    wend
 
End If
 
wscript.echo "Enregistrement terminé !"
wscript.quit

un message d'erreur apparait lors de l'enregistrement des nouveaux champs:
ligne 55, code 8007200B, erreur : la syntaxe d'attribut spécifiée au service d'annuaire n'est pas valide.

**abertaud** · 07/05/2007, 15h15

Je n'ai pas la réponse exacte au problème, mais d'après moi ça plante sur la mise à jour des infos à cause de cette ligne

Code :

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

1
2
 
oUser.put "msRTCSIP-UserEnabled", msRTCSIP-UserEnabled

Je ne vois pas où tu instancie ta variable à mettre à jour...
Mail est instancié après ta distinction entre bureaux et agences, PrimaryHomeServer est instancié à "LCS2005.local.com" pour tous tes enregistrement, mais msRTCSIP-UserEnabled ?....

Tu rcupérais avant UserEnabled, qui me parait être ce qu'il te faut, mais il est maintenant commenté, et surtout ta variable est nommée différemment selon l'endroit.

Un coup msRTCSIP-UserEnabled et un autre UserEnabled

éditer les propriétés LCS d'un utilisateur de l'AD par script

VBScript

Discussions similaires

Partager

Partager