significado - vbscript tutorial español

Listas en VBScript

Question

Intento crear una lista simple en un VBscript, pero no puedo encontrar algo similar.

Básicamente, estoy trabajando en Active Directory, y necesito obtener todos los grupos de los que es miembro un usuario para todos los usuarios dentro de un dominio. Ahora, cada usuario puede ser miembro de un número diferente de grupos, así que planeo usar un diccionario, con la clave que es el SAMID para el usuario, y el valor es una lista de todos los grupos de los que es miembro .

Puedo hacer esto con una matriz estática, pero luego tengo que declarar un gran tamaño aleatorio para la matriz que no es bueno. Lo que idealmente me gustaría hacer es tener una lista tipo python, donde pueda hacer algo simple como myList.Add y no tener que preocuparme por el tamaño.

Intenté usar System.Collection.ArrayList, pero recibo un error cuando lo ejecuto:

PS C:/tmp> cscript.exe ./foo.vbs
Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation. All rights reserved.
C:/tmp/foo.vbs(1, 1) (null): 0x80131700

¿Cómo puedo lograr esto?

Answer 1

Aquí hay una alternativa también ... Una clase de lista real que creé hace un tiempo. Puede usarlo / modificarlo libremente para adaptarlo a sus necesidades. La clase original que construí realmente depende de otra clase personalizada llamada ArrayIterator .

Aquí es cómo usarlo ...

Set myList = New List
myList.Add("a")
myList.Add("b")
myList.Add("c")
'' Iterate through the List using ArrayIterator. You can of course use other methods...
Set myListItr = myList.GetIterator
While myListItr.HasNext
MsgBox myListItr.GetNext
Wend
'' Iterate through the List by getting the underlying Array.
Dim element
For Each element In myList.GetArray
MsgBox element
Next

Código fuente para la clase List :

Class List
Private mArray
Private Sub Class_Initialize()
mArray = Empty
End Sub
'' Appends the specified element to the end of this list.
Public Sub Add(element)
If IsEmpty(mArray) Then
ReDim mArray(0)
mArray(0) = element
Else
If mArray(UBound(mArray)) <> Empty Then
ReDim Preserve mArray(UBound(mArray)+1)
End If
mArray(UBound(mArray)) = element
End If
End Sub
'' Removes the element at the specified position in this list.
Public Sub Remove(index)
ReDim newArray(0)
For Each atom In mArray
If atom <> mArray(index) Then
If newArray(UBound(newArray)) <> Empty Then
ReDim Preserve newArray(UBound(newArray)+1)
End If
newArray(UBound(newArray)) = atom
End If
Next
mArray = newArray
End Sub
'' Returns the number of elements in this list.
Public Function Size
Size = UBound(mArray)+1
End Function
'' Returns the element at the specified position in this list.
Public Function GetItem(index)
GetItem = mArray(index)
End Function
'' Removes all of the elements from this list.
Public Sub Clear
mArray = Empty
End Sub
'' Returns true if this list contains elements.
Public Function HasElements
HasElements = Not IsEmpty(mArray)
End Function
Public Function GetIterator
Set iterator = New ArrayIterator
iterator.SetArray = mArray
GetIterator = iterator
End Function
Public Function GetArray
GetArray = mArray
End Function
End Class

Código fuente para la clase ArrayIterator :

Class ArrayIterator
Private mArray
Private mCursor
Private Sub Class_Initialize()
mCursor = 0
End Sub
Public Property Let SetArray(array)
mArray = array
End Property
Public Function HasNext
HasNext = (mCursor < UBound(mArray)+1)
End Function
Public Function GetNext
GetNext = mArray(mCursor)
mCursor = mCursor + 1
End Function
End Class

Answer 2

Deshágase del diccionario y libere el poder de una ArrayList.

Option Explicit
dim list
Set list = CreateObject("System.Collections.ArrayList")
list.Add "Banana"
list.Add "Apple"
list.Add "Pear"
list.Sort
list.Reverse
wscript.echo list.Count '' --> 3
wscript.echo list.Item(0) '' --> Pear
wscript.echo list.IndexOf("Apple", 0) '' --> 2
wscript.echo join(list.ToArray(), ", ") '' --> Pear, Banana, Apple

EDIT: veo que ya probaste ArrayList, pero obtuve un error. Parece que su instalación del marco de dotnet no es correcta (System.Collections.ArrayList es parte de eso). Microsoft tiene un artículo sobre cómo resolver eso: http://answers.microsoft.com/en-us/windows/forum/windows_7-performance/error-code-0x80131700/3add8d80-00e0-4355-a994-8630d01c18f5

Answer 3

Set dic = CreateObject("Scripting.Dictionary")
dic.Add "Item1", ""
dic.Add "Item2", ""
dic.Add "Item3", ""