code:

---

Set obj = CreateObject("Win32Admin2")
A = obj.GrpEnumMembers("computername", "local",  obj.GetLocalAdminGrp())
For Each hash In A
  For Each key In hash.keys()
    MsgBox "Hash{" & key & "} = " & hash.get(key)
  Next
Next
  

---

code:

---

break ON
$Win32Admin = createobject("Win32Admin2")
$Members = $Win32Admin.GrpEnumMembers(@wksta, "local", $Win32Admin.GetLocalAdminGrp())

for each $hash in $Members
   for each $key in $hash.keys
      ? $key
   next
next
  

---

code:

---

Dim $a[10]
For $i = 0 to 9
 $a[$i]=chr($i+65)
Next

For Each $s in $a
   "Data=" $s ?
   Redim Preserve $a[5]
Next

---

code:

---

$sKey=hash.keys
While $sKey
   $sKey=hash.keys
Loop

---

code:

---

$a = $Members[0].keys
? vartypename( $a)  

---

code:

---

$a = $Members.keys
? "a=" + vartypename( $a)  

---

code:

---

break ON
$Win32Admin = createobject("Win32Admin2")
$Members = $Win32Admin.GrpEnumMembers(@wksta, "local", $Win32Admin.GetLocalAdminGrp())

for each $hash in $Members
   for each $key in $hash.keys
      ? $key + " " + $hash.get($key)
   next
next
  

---