Hallo zusammen,
habe eine Funktion, die ich gerne in meinem Code einbinden möchte.
Ich komme mit den Funktionen noch nicht ganz klar.
Welche Parameter muss ich mitgeben, wenn ich die Funktion aufrufe
Code
; _ADGetGroupMemberOf
Func _ADGetGroupMemberOf(ByRef $memberof, $groupdn, $sort = 0)
Local $oUsr, $objCommand, $groups
$objCommand = ObjCreate("ADODB.Command")
$objCommand.ActiveConnection = $objConnection
$objCommand.Properties("Searchscope") = 2
Dim $memberof[1]
$i = 0
While 1
$rangemodifier = $i * 1000
$range = "Range=" & $rangemodifier & "-" & $rangemodifier + 999
$strCmdText = "<LDAP://" & $strHostServer & "/" & $groupdn & ">;;memberof;" & $range & ";base"
$objCommand.CommandText = $strCmdText
$objRecordSet = $objCommand.Execute
$membersadd = $objRecordSet.fields(0).Value
If $membersadd = 0 Then ExitLoop
ReDim $memberof[UBound($memberof) + 1000]
For $j = $rangemodifier + 1 To $rangemodifier + 1000
$memberof[$j] = $membersadd[$j - $rangemodifier - 1]
Next
$i += 1
$objRecordSet.Close
WEnd
$rangemodifier = $i * 1000
$range = "Range=" & $rangemodifier & "-*"
$strCmdText = "<LDAP://" & $strHostServer & "/" & $groupdn & ">;;memberof;" & $range & ";base"
$objCommand.CommandText = $strCmdText
$objRecordSet = $objCommand.Execute
$membersadd = $objRecordSet.fields(0).Value
ReDim $memberof[UBound($memberof) + UBound($membersadd)]
For $j = $rangemodifier + 1 To $rangemodifier + UBound($membersadd)
$memberof[$j] = $membersadd[$j - $rangemodifier - 1]
Next
$objRecordSet.Close
$objCommand = 0
$objRecordSet = 0
$memberof[0] = UBound($memberof) - 1
If $sort = 1 Then
_ArraySort($memberof, 0, 1)
EndIf
Return $memberof[0]
EndFunc ;==>_ADGetGroupMemberOf
Alles anzeigen