Chapter 5: Group Management Code

---

Chapter 5: Group Management Code

Adding Users to a Group Using a VBScript Active Server Page

 Dim Group Dim GroupName Dim GroupDomain Dim User  Dim UserName Dim UserDomain GroupName = "Target_Group_Name" GroupDomain = "Target_Group_Domain" UserName = "Target_User_Name" UserDomain = "Target User Domain" Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user") Set Group = GetObject("WinNT://" & GroupDomain & "/" & GroupName & ",group") Group.Add(User.ADsPath) Group.SetInfo 

Removing Users from a Group Using a VBScript Active Server Page

 Dim Group Dim GroupName Dim GroupDomain Dim User Dim UserName Dim UserDomain GroupName = "Target_Group_Name" GroupDomain = "Target_Group_Domain" UserName = "Target_User_Name" UserDomain = "Target User Domain" Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user") Set Group = GetObject("WinNT://" & GroupDomain & "/" & GroupName & ",group") Group.Remove(User.ADsPath) Group.SetInfo 

Enumerating Members of a Group Using a VBScript Active Server Page

 Dim Group Dim GroupName Dim GroupDomain GroupName = "Target_Group_Name" GroupDomain = "Target_Group_Domain" Set Group = GetObject("WinNT://" & GroupDomain & "/" & GroupName & ",group") For Each Member in Group.Members      Response.Write Member.Name & "<BR>" Next 

Querying User Membership in a Group Using a VBScript Active Server Page

 Dim Group Dim GroupName Dim GroupDomain Dim User Dim UserName Dim UserDomain GroupName = "Target_Group_Name" GroupDomain = "Target_Group_Domain" UserName = "Target_User_Name" UserDomain = "Domain_To_Manage" Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user") Set Group = GetObject("WinNT://" & GroupDomain & "/" & GroupName & ",group") Response.Write Group.IsMember(User.ADsPath) 

Querying Group Description Field Value Using a VBScript Active Server Page

 Dim Group Dim GroupName Dim GroupDomain GroupDomain = "Target_Group_Domain" GroupName = "Target_Group_Name" Set Group = GetObject("WinNT://" & GroupDomain & "/" & GroupName & ",group") Response.Write Group.Description 

Setting New Group Description Field Value Using a VBScript Active Server Page

 Dim Group Dim GroupName Dim GroupDomain GroupDomain = "Target_Group_Domain" GroupName = "Target_Group_Name" GroupDescription = "Target_Group_Description" Set Group = GetObject("WinNT://" & GroupDomain & "/" & GroupName & ",group") Group.Description = GroupDescription Group.SetInfo 

Enumerating Individual User Group Membership Using a VBScript Active Server Page

 Dim User Dim Group Dim UserDomain Dim UserName UserDomain = "Domain_To_Manage" UserName = "Target_User_Name" Set User = GetObject("WinNT://" & UserDomain&"/" & UserName & ",user") For Each Group in User.Groups      Response.Write Group.Name & "<BR>" Next 

---

Top