Copy group memberof

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Copy group memberof

Logged in as: Guest

arrSession:exec spGetSession 2,2,42609

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Copy group memberof
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Copy group memberof - 1/29/2007 8:25:30 PM

Zolta

Posts: 13
Score: 0
Joined: 11/29/2006
Status: offline

hi,

I'm trying to copy the Group membership. From one user, to the user I already created with an automated adding user script.
There are a lot of enumerating scripts out there. But I can't seem to find how to copy each group from the enumerated list to the target user.

So, the question is: What code should I add to get each of the enumerated group and add it to the user.

Any help appreciated,

greets

On Error Resume Next 
Const E_ADS_PROPERTY_NOT_FOUND  = &h8000500D

Set objUser = GetObject _ 
   ("[link=http://visualbasicscript.com/ldap://CN=User1,OU=Users,OU=Serverx]LDAP://CN=User1,OU=Users,OU=Serverx[/link] company,dc=serverxs,dc=com")

intPrimaryGroupID = objUser.Get("primaryGroupID") 
arrMemberOf = objUser.GetEx("memberOf")

If Err.Number = E_ADS_PROPERTY_NOT_FOUND Then 
   WScript.Echo "The memberOf attribute is not set." 
Else 
   WScript.Echo "Member of: " 
   For each Group in arrMemberOf 
       WScript.Echo Group 
   Next 
End If

Set objConnection = CreateObject("ADODB.Connection") 
objConnection.Open "Provider=ADsDSOObject;" 
Set objCommand = CreateObject("ADODB.Command") 
objCommand.ActiveConnection = objConnection 
objCommand.CommandText = _ 
 "<;(objectCategory=Group">LDAP://dc=serverx,dc=com>;(objectCategory=Group);" & _ 
 "distinguishedName,primaryGroupToken;subtree"   
Set objRecordSet = objCommand.Execute

While Not objRecordset.EOF 
   If objRecordset.Fields("primaryGroupToken") = intPrimaryGroupID Then 
       WScript.Echo "Primary group:" 
       WScript.Echo objRecordset.Fields("distinguishedName") & _ 
           " (primaryGroupID: " & intPrimaryGroupID & ")" 
   End If 
   objRecordset.MoveNext 
Wend

objConnection.Close 
Const ADS_PROPERTY_APPEND = 3 
[color=#ff0000]Set objGroup =  ?????[/color]
objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array("cn=test user,ou=servertest,dc=serverx,dc=com") 
objGroup.SetInfo

Post #: 1

RE: Copy group memberof - 1/30/2007 1:31:42 AM

dm_4ever

Posts: 2172
Score: 32
Joined: 6/29/2006
From: Orange County, California
Status: offline

I haven't tried this yet, but I think something like this might work.

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to Zolta)