Discussion :

[xios666]

Bonjour à tous,

Je vous explique le problème.

Dans l'AD j'ai un groupe "internet", tout les utilisateurs dans ce groupe peuvent aller sur internet.

J'ai un autre groupe que j'ai crée qui ne peuvent aller que sur une adresse bien donné.

J'ai mis en place une gpo sur les différents groupes pour mettre en place les proxy nécessaire.

Maintenant mon problème est que j'ai beaucoup d'utilisateur qui ne font pas partis du groupe "internet" et beaucoup d'utilisateurs qui en font partis.

Donc je voudrais faire un script qui me cherche tout les utilisateurs qui ne font pas parti du groupe "internet" et qui me les mettes dans l'autre groupe.

J'espère avoir été clair sinon dite le moi

Ou alors un script qui me recherche tout les utlisateurs qui ne font pas parti du groupe internet sa serai le plus simple, biensur je vais devoir me les prendre à la main mais j'aurai une liste

[pitchalov]

Bonjour,

Je pense que ce ne sera pas trop difficile.

Il faut d'abord avoir la liste de tous les utilisateurs :

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
Const ADS_UF_ACCOUNTDISABLE = 2
 
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
    ";(objectCategory=User)" & _
        ";userAccountControl,distinguishedName;subtree"  
Set objRecordSet = objCommand.Execute
 
intCounter = 0
Do Until objRecordset.EOF
    WScript.echo objRecordset.Fields("distinguishedName")
   objRecordset.MoveNext
Loop
 
objConnection.Close

Puis retrouver les groupes d'un utilisateur :
http://gallery.technet.microsoft.com...5-508bcb5b75f8

Savoir rajouter un utilisateur à un groupe :

Code :

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

1
2
3
4
5
6
7
Const ADS_PROPERTY_APPEND = 3
 
Set objGroup = GetObject _
    ("LDAP://cn=Atl-Users,cn=Users,dc=NA,dc=fabrikam,dc=com")
objGroup.PutEx ADS_PROPERTY_APPEND, _
    "member", Array("cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
objGroup.SetInfo

Et de coder :
Pour chaque utilisateur, s'il ne fait pas partie du groupe "internet", tu le rajoutes dans le groupe "internet-restreint".

Bonne continuation.

[xios666]

Merci je vois l'idée