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
Собственно, имеем простенький код:
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 у нас в чате нет ветки?
]]>