VBScript Method
Option Explicit Dim arrMemberNames(), initialSize, i, j, strHolder, objADGroup Dim strMemberName, strADUser, objADUser initialSize = 0 Set objADGroup = GetObject("LDAP://CN=TheGroupName,OU=TheOU,DC=YourDomain,DC=com") For Each strADUser in objADGroup.Member Set objADUser = GetObject("LDAP://" & strADUser) 'msgbox strADUser ReDim Preserve arrMemberNames(initialSize) arrMemberNames(initialSize) = objADUser.CN initialSize = initialSize + 1 Next For i = (UBound(arrMemberNames) - 1) to 0 Step -1 For j= 0 to i If UCase(arrMemberNames(j)) > UCase(arrMemberNames(j+1)) Then strHolder = arrMemberNames(j+1) arrMemberNames(j+1) = arrMemberNames(j) arrMemberNames(j) = strHolder End If Next Next For Each strMemberName in arrMemberNames Wscript.Echo strMemberName Next initialSize = "" i = "" j = "" strHolder = "" objADGroup = "" strMemberName = "" strADUser = "" objADUser = ""
PowerShell Method
Import-Module ActiveDirectory Get-AdGroupMember -identity "GroupNameHere" | select-object "samaccountname"