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"