1

Тема: VBS: сортировка коллекции

Здраствуйте.

Собственно, имеем простенький код:

+ открыть спойлер

stGroup = "CN=GroupName,OU=Groups,DC=ad,DC=local"

Set objCOVID19 = GetObject("LDAP://" & stGroup)

For Each Member in objCOVID19.Members
  If Member.class = "user" Then
    wscript.echo member.cn & ";" & member.SamAccountName
''    objCOVID19.Remove "LDAP://" & member.distinguishedName
  End If
Next

Вопрос: как отсортировать вывод например по SamAccountName

В PS все решается одной строчкой, а что делать в VBS?

Get-ADGroupMember $stGroupName |  Select-Object -Property name, SamAccountName | sort name 

P.S: а по PowerShell у нас в чате нет ветки?

2

Re: VBS: сортировка коллекции

+ открыть спойлер

Option Explicit

Dim objArrList : Set objArrList = CreateObject("System.Collections.SortedList")
objArrList.Add "wwwww_key", "value_wwwww"
objArrList.Add "aaa_key", "value_aaa"

Dim iIndex
For iIndex = 0 To objArrList.Count - 1
  Wscript.Echo objArrList.GetKey(iIndex), objArrList.GetByIndex(iIndex)
Next