Konvertering af Kix til VBS

Hej

Jeg har dette script i kix som tjekker hvilke grupper brugerene er medlem af.. Og laver derfra et fællesdrev.

Dette script vil jeg meget gerne ha lavet til VBS da resten af vores scripts er konverteret til vbs.. Og lige disse funktioner har jeg ikke så meget erfaring med.

<code>
Dim $aryGroups
$aryGroups = GroupArray()

For Each $ae in $aryGroups
  $x = INSTRREV($ae, "\")
  if $x > 0
      USE M: "\\THOR\" + RIGHT($ae,Len($ae) - $x)
  endif
Next

;===============================================================
Function GroupArray()
;===============================================================
Dim $i
Dim $strGrpLst
Dim $gName
$i = 0
$strGrpLst = ""
Do
$gName = EnumGroup($i)
$i = $i + 1
If Len($gName) > 0
  If Len($strGrpLst) > 0
  $strGrpLst = $strGrpLst + ","
  EndIf
  $strGrpLst = $strGrpLst + $gName
EndIf
Until Len($gName) = 0
$ary = Split($strGrpLst,",",-1)
;? "Before return array size is:" + Ubound($ary)
$GroupArray = $ary
EndFunction
;===============================================================
</code>