Mettre un user dans un groupe à partir d'un fichier

j'ai écrit ce script, mais j'ai une erreur à la ligne UserObj.SetInfo
(l'opération demandée n'est pas compatible...)

J'ai résolu mon problème avec ce script qui marche

Pour ceux qui en auraient besoin ;=))

Couper ici ------------

Option Explicit
Dim strOU, strOU_Site, strGroup, strUser, strDNSDomain
Dim objRootLDAP, objGroup, objUser
Dim oFs, oFile
Dim strRecords, strRecord, liste, user, unite_org

' définition des constantes
Const File = "monfichier.txt"
Const ForReading = 1
strOU_Site = "OU=MonOuSite,"


' initialisation des objets
set oFs = CreateObject ("Scripting.FileSystemObject")

' ouverture du fichier
Set oFile = oFs.OpenTextFile (File, ForReading)

' lecture de tous les enregistrements
strRecords = oFile.ReadAll


' parcours des enregistrements
For Each strRecord In Split (strRecords, VBCrLf)


liste = Split(strRecord,",",-1, 1)


user = liste(0)
unite_org = liste(1)

strOU = "OU=" & unite_org & "," & strOU_Site
strUser = "CN=" & user & ","
strGroup = "CN=MonGroup,"

' Bind to Active Directory and get LDAP name
Set objRootLDAP = GetObject("LDAP://RootDSE")
strDNSDomain = objRootLDAP.Get("DefaultNamingContext")

' Add (str)User to (str)Group
Set objUser = GetObject("LDAP://"& strUser _
& strOU & strDNSDomain)
Set objGroup = GetObject("LDAP://"& strGroup _
& strOU_Site & strDNSDomain)
objGroup.add(objUser.ADsPath)

' WScript.Echo "Check " & strOU & " for " & strGroup & " = " &
strUser

Next

Wscript.Quit

' End of Group Add VBScript

couper ici --------------

le fichier txt
<----
nom1,ou1
nom2,ou2

etc ...
--->

"Georges" <y.dagor@gmail.com> a écrit dans le message de
news:1166005597.170596.300130@j44g2000cwa.googlegroups.com
| Bonjour,

Bonjour,

| J'ai un fichier de nom en txt avec un nom de user par ligne
| et je lis ce fichier pour donner une appartenance à un groupe de cet
| user

+++ Format du fichier de noms Accounts.txt
administrateur
test1
test2

+++ Usage
addUsersToGroup <group>

+++ Exemple
>cscript addUsersToGroup.vbs testgrp

--- Couper ici : addUsersToGroup.vbs ---

Option Explicit

' déclaration des variables
Dim oFs, oGrp, oFile, oUser
Dim strUser

' définition des constantes
Const ForReading = 1
Const File = "Accounts.txt"

' initialisation des objets
Set oFs = CreateObject ("Scripting.FileSystemObject")
Set oGrp = GetObject ("WinNT://./" & WScript.Arguments(0))

' lecture des enregistrements
Set oFile = oFs.OpenTextFile (File, ForReading)

' parcours des comptes utilisateurs
For Each strUser In Split (oFile.ReadAll, VBCrLf)
If strUser <> "" Then
' bind uniquement pour résoudre le nom de domaine
Set oUser = GetObject ("WinNT://./" & strUser)
' ajout du compte utilisateur dans le groupe
oGrp.Add (oUser.ADsPath)
End If
Next

--- Couper ici : addUsersToGroup.vbs ---

--
Gilles LAURENT
http://glsft.free.fr

"Gilles LAURENT" <glsft@free.fr> a écrit dans le message de
news:uUIq%23%23sHHHA.2232@TK2MSFTNGP02.phx.gbl

La version PowerShell ;-)

+++ Format du fichier de noms Accounts.txt
administrateur
test1
test2

+++ Usage
addUsersToGroup <group>

+++ Exemple
>powershell .addUsersToGroup.ps1 testgrp

--- Couper ici : addUsersToGroup.ps1 ---

Function GetLdapPath ($cat, $obj) {
$oDs=New-Object System.DirectoryServices.DirectorySearcher
$oDs.Filter = "(&(objectCategory=$cat)(sAMAccountName=$obj))"
$oDs.FindOne().Path
}

$oGrp=[ADSI](GetLdapPath Group $args)
gc accounts.txt | % {
$oGrp.PSBase.Invoke("add",(GetLdapPath User $_))
}

--- Couper ici : addUsersToGroup.ps1 ---

--
Gilles LAURENT
http://glsft.free.fr

La version PowerShell ;-)

--
Gilles LAURENT
http://glsft.free.fr

Merci beaucoup Gilles pour votre coup de main
Georges