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

null@example.com (AnvarovSR) — Thu, 11 Jun 2020 15:46:40 +0000

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

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

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

null@example.com (inock) — Wed, 20 May 2020 18:53:00 +0000

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

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

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

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 у нас в чате нет ветки?

Серый форум — VBS: сортировка коллекции

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

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