Adding GroupA in OU Arlington OU, Domain Domain1 in Organization bvOrg to Computer Diamond in Domain 2
Dim LGroupObj As
IADsGroup
Dim CompuObj As IADsContainer
‘Path ”NTDSloc://Domain2/Diamond/LocalGroup01” identifies local
group on computer “Diamond” in the Domain
“Domain2"
‘Descriptor "server=DMSServer01" specifies that the DMS server is
on computer named "DMSServer01"
‘Bind to local group object
Set LGroupObj =
GetObject("NTDSloc://Domain2/Diamond/LocalGroup01/server=DMSServer01")
‘in the following four statements first parameter is name of
property and second parameter is the value of the
property.
'Note: You will have to put these properties for LRD in
AD
LGroupObj.Put "DA_DRole_Server_Name",
"DCDomain2"
'specify name of the DC for NT5 domain "Domain2"
LGroupObj.Put "DA_User_Name", "Domain1\Charlie"
'Name of the User connected to the AD tree
LGroupObj.Put "DA_Password", "pwd" 'Password of the
User
LGroupObj.Put "DA_Use_Role_Type", 2
'Specifies the AD roles
'Add global group "GroupA" of domain "Domain1" identified by the
path “NTDS://Domain1/GroupA"
LGroupObj.Add "NTDS://Domain1/GroupA"
LGroupObj.SetInfo
'to commit the change to directory
Set LGroupObj = Nothing
‘release the object