_AD_GetGroupMembers der AD.au3

DasIch

Hallo zusammen,

folgendes Problem:

Ich suche mit Hilfe der _AD_GetGroupMembers() der AD.au3 nach der Gruppe "Konzern". Jetzt gibt es vier Gruppen hierzu: "Konzern", "Konzern_GL", "Konzern_MA" und "Konzern_IT". Wenn ich also wie gesagt nach Konzern suche, bricht das Skript mit folgendem Fehler ab:

Code

"C:\Program Files (x86)\AutoIt3\Include\ad.au3" (641) : ==> The requested action with this object has failed.:
Local $sResult = $oObject.Get($sAttribute)
Local $sResult = $oObject^ ERROR

Any Guesses?

LG,
der Robert

P.S.: Gibt es alternativ einen Weg, nach dem exakten Namen der Gruppe zu suchen?

P.P.S.: Hier der aktuelle Code:

Spoiler anzeigen

AutoIt

#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ad.au3>
#include <GUIListBox.au3>


$frmGroupView = GUICreate("Gruppenmitglieder", 986, 516)
$Ber_lstGruppen = GUICtrlCreateList("", 8, 8, 200, 500, BitOR($gui_ss_default_list, $ws_hscroll, $lbs_extendedsel))
GUICtrlSetData(-1, "Gruppe 1|Gruppe2|Gruppe3|Gruppe4|Gruppe5|4you-01-AGD-Team01|4you-01-AGD-Team01-BL006|4you-01-AGD-Team01-BL008")
$frmGrp_lstGroupView = GUICtrlCreateListView("", 210, 8, 768, 500, BitOR($WS_HSCROLL, $WS_VSCROLL))
$Ber_conUserWahl = GUICtrlCreateContextMenu($Ber_lstGruppen)
$Ber_conGroupView = GUICtrlCreateMenuItem("Gruppenmitglieder anzeigen", $Ber_conUserWahl)
GUISetState(@SW_SHOW, $frmGroupView)
_AD_Open()


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			_AD_Close()
			Exit


		Case $Ber_conGroupView
			_GroupView()
;~ 			$grp = _AD_SamAccountNameToFQDN("4you-01-AGD-Team01")
;~ 			$grp = _AD_GetGroupMembers($grp)
;~ 			_ArrayDisplay($grp)


	EndSwitch
WEnd




Func _GroupView()
	Local $cnt = UBound(_GUICtrlListBox_GetSelItems($Ber_lstGruppen))-1 ;Anzahl der ausgewählten Gruppen aus der Liste
	Local $names = _GUICtrlListBox_GetSelItemsText($Ber_lstGruppen) ;ausgewählte Gruppen aus der Liste
	_ArrayDelete($names, 0)
	If $cnt < 1 Then
		MsgBox(0, "", "Bitte wählen Sie mindestens eine Gruppe aus!")
	Else
		For $i = 0 To $cnt - 1
			_GUICtrlListView_AddColumn($frmGrp_lstGroupView, String($names[$i]), 150, 0) ;Überschriften füllen
		Next
		For $grp In $names
			$grp = _AD_SamAccountNameToFQDN($grp) ;Umwandeln des SamAccountName zum FQDN
			local $aGrpMember = _AD_GetGroupMembers($grp) ;Einlesen der Grp-Member
			local $sMemberFull, $sMember = ""
			_ArrayDelete($aGrpMember, 0)
			For $i = 0 To UBound($aGrpMember) - 1
				$aGrpMember[$i] = _AD_FQDNToSamAccountName($aGrpMember[$i]) ;Umwandeln des jeweiligen Usernames zum Displayname
			Next
			_ArraySort($aGrpMember, 0)
			For $i = 0 To UBound($aGrpMember) - 1
				If $i = UBound($aGrpMember) - 1 Then
					$sMember = $sMember & $aGrpMember[$i]
					If $grp = $names[0] Then
						$sMemberFull = $sMember
					Else
						$sMemberFull = $sMemberFull & "#" & $sMember
					EndIf
				Else
					$sMember = $sMember & $aGrpMember[$i] & ";"
				EndIf
			Next ;>> Erstellen eines Strings der Usernames
		Next
		local $aMemberFull = StringSplit($sMemberFull, "#") ;Erstellen eines 1D-Arrays
		_ArrayDelete($aMemberFull, 0)
		local $aMemberArray[1][UBound($aMemberFull)] ;Initialisieren eines 2D-Arrays
		For $i = 0 To UBound($aMemberFull) - 1
			$aMemberDetail = StringSplit($aMemberFull[$i], ";")
			_ArrayDelete($aMemberDetail, 0)
			If UBound($aMemberDetail) - 1 > UBound($aMemberArray) - 1 Then
				ReDim $aMemberArray[UBound($aMemberDetail)][UBound($aMemberFull)]
			EndIf
			For $j = 0 To UBound($aMemberDetail) - 1
				$aMemberArray[$j][$i] = $aMemberDetail[$j]
			Next
		Next
		_GUICtrlListView_AddArray($frmGrp_lstGroupView, $aMemberArray) ;>> eintragen der Usernamen in die listview
	EndIf
EndFunc

Alles anzeigen

Kazume

_AD_Open() fehlt wahrscheinlich oder?

**water**

Post mal Dein komplettes Skript. Dann sehen wir weiter.

DasIch

Entschuldigt bitte die späte Antwort, mich hat die Grippe erwischt und ich hatte bis jetzt keinen zugriff auf den code.

Aufgrund der Größe des Skriptes kann ich natürlich nicht alles posten, aber die Funktion, über die es aufgerufen wird sehr wohl.

AutoIt

Func _GroupView()
	Local $cnt = UBound(_GUICtrlListBox_GetSelItems($Ber_lstGruppen))-1 ;Anzahl der ausgewählten Gruppen aus der Liste
	Local $names = _GUICtrlListBox_GetSelItemsText($Ber_lstGruppen) ;ausgewählte Gruppen aus der Liste
	_ArrayDelete($names, 0)
	If $cnt < 1 Then
		MsgBox(0, "", "Bitte wählen Sie mindestens eine Gruppe aus!")
	Else
		GUISetState(@SW_ENABLE, $frmGroupView)
		For $i = 0 To $cnt - 1
			_GUICtrlListView_AddColumn($frmGrp_lstGroupView, String($names[$i]), 150, 0) ;Überschriften füllen
		Next
		For $grp In $names
			$grp = _AD_SamAccountNameToFQDN($grp) ;Umwandeln des SamAccountName zum FQDN
			local $aGrpMember = _AD_GetGroupMembers($grp) ;Einlesen der Grp-Member
			local $sMemberFull, $sMember = ""
			_ArrayDelete($aGrpMember, 0)
			For $i = 0 To UBound($aGrpMember) - 1
				$aGrpMember[$i] = _AD_FQDNToDisplayname($aGrpMember[$i]) ;Umwandeln des jeweiligen Usernames zum Displayname
			Next
			_ArraySort($aGrpMember, 0)
			For $i = 0 To UBound($aGrpMember) - 1
				If $i = UBound($aGrpMember) - 1 Then
					$sMember = $sMember & $aGrpMember[$i]
					If $grp = $names[0] Then
						$sMemberFull = $sMember
					Else
						$sMemberFull = $sMemberFull & "#" & $sMember
					EndIf
				Else
					$sMember = $sMember & $aGrpMember[$i] & ";"
				EndIf
			Next ;>> Erstellen eines Strings der Usernames
		Next
		local $aMemberFull = StringSplit($sMemberFull, "#") ;Erstellen eines 1D-Arrays
		_ArrayDelete($aMemberFull, 0)
		local $aMemberArray[1][UBound($aMemberFull)] ;Initialisieren eines 2D-Arrays
		For $i = 0 To UBound($aMemberFull) - 1
			$aMemberDetail = StringSplit($aMemberFull[$i], ";")
			_ArrayDelete($aMemberDetail, 0)
			If UBound($aMemberDetail) - 1 > UBound($aMemberArray) - 1 Then
				ReDim $aMemberArray[UBound($aMemberDetail)][UBound($aMemberFull)]
			EndIf
			For $j = 0 To UBound($aMemberDetail) - 1
				$aMemberArray[$j][$i] = $aMemberDetail[$j]
			Next
		Next
		_GUICtrlListView_AddArray($frmGrp_lstGroupView, $aMemberArray) ;>> eintragen der Usernamen in die listview
		GUISwitch($frmGroupView)
		GUISetState(@SW_SHOW)
	EndIf
EndFunc

Alles anzeigen

ich hoffe, ihr könnt meine Gedanken nachvollziehen Aufgrund des frühes Standes der Entwicklung, und dass die Funktion noch nicht so will wie ich, ist es entsprechend unordentlich. Ich bitte das zu entschuldigen.

LG,
der Robert

Nachtrag: AD-Open() ist natürlich vorhanden

**water**

Zitat von Kazume

_AD_Open() fehlt wahrscheinlich oder?

So isses. Sehe ich zumindest im Skript nirgends.

Kazume

Wenn du im Netzwerk bist und willst das Script ausführen reicht bei _AD_Open() die Klammern leer zu lassen.

AutoIt

Func _GroupView()
    _AD_Open()
	Local $cnt = UBound(_GUICtrlListBox_GetSelItems($Ber_lstGruppen))-1 ;Anzahl der ausgewählten Gruppen aus der Liste
	Local $names = _GUICtrlListBox_GetSelItemsText($Ber_lstGruppen) ;ausgewählte Gruppen aus der Liste
	_ArrayDelete($names, 0)
	If $cnt < 1 Then
		MsgBox(0, "", "Bitte wählen Sie mindestens eine Gruppe aus!")
	Else
		GUISetState(@SW_ENABLE, $frmGroupView)
		For $i = 0 To $cnt - 1
			_GUICtrlListView_AddColumn($frmGrp_lstGroupView, String($names[$i]), 150, 0) ;Überschriften füllen
		Next
		For $grp In $names
			$grp = _AD_SamAccountNameToFQDN($grp) ;Umwandeln des SamAccountName zum FQDN
			local $aGrpMember = _AD_GetGroupMembers($grp) ;Einlesen der Grp-Member
			local $sMemberFull, $sMember = ""
			_ArrayDelete($aGrpMember, 0)
			For $i = 0 To UBound($aGrpMember) - 1
				$aGrpMember[$i] = _AD_FQDNToDisplayname($aGrpMember[$i]) ;Umwandeln des jeweiligen Usernames zum Displayname
			Next
			_ArraySort($aGrpMember, 0)
			For $i = 0 To UBound($aGrpMember) - 1
				If $i = UBound($aGrpMember) - 1 Then
					$sMember = $sMember & $aGrpMember[$i]
					If $grp = $names[0] Then
						$sMemberFull = $sMember
					Else
						$sMemberFull = $sMemberFull & "#" & $sMember
					EndIf
				Else
					$sMember = $sMember & $aGrpMember[$i] & ";"
				EndIf
			Next ;>> Erstellen eines Strings der Usernames
		Next
		local $aMemberFull = StringSplit($sMemberFull, "#") ;Erstellen eines 1D-Arrays
		_ArrayDelete($aMemberFull, 0)
		local $aMemberArray[1][UBound($aMemberFull)] ;Initialisieren eines 2D-Arrays
		For $i = 0 To UBound($aMemberFull) - 1
			$aMemberDetail = StringSplit($aMemberFull[$i], ";")
			_ArrayDelete($aMemberDetail, 0)
			If UBound($aMemberDetail) - 1 > UBound($aMemberArray) - 1 Then
				ReDim $aMemberArray[UBound($aMemberDetail)][UBound($aMemberFull)]
			EndIf
			For $j = 0 To UBound($aMemberDetail) - 1
				$aMemberArray[$j][$i] = $aMemberDetail[$j]
			Next
		Next
		_GUICtrlListView_AddArray($frmGrp_lstGroupView, $aMemberArray) ;>> eintragen der Usernamen in die listview
		GUISwitch($frmGroupView)
		GUISetState(@SW_SHOW)
	EndIf
     _AD_Close()
EndFunc

Alles anzeigen

$iResult = _AD_Open("DJ", "password of DJ")
$iResult = _AD_Open("microsoft\DJ", "password of DJ")
$iResult = _AD_Open("DJ@microsoft.com", "password of DJ")

Quelle: https://www.autoitscript.com/wiki/Active_Di…y_UDF_-_General

DasIch

Wie gesagt, _AD_Open() steht am Anfang des Skriptes, und das hier ist nur eine Funktion innerhalb des kompletten Skripts. Wenn ich das komplett posten würde, würde das den Rahmen sprengen

**water**

Welche Version der AD UDF verwendest Du?
Welche Version von Autoit verwendest Du?

DasIch

Okay, ich schaue morgen und poste die Funktion nochmal lauffähig hier rein. Dann kann ich euch auch die jeweiligen Versionen sagen.

Danke schonmal für eure Hilfe

DasIch

Sooooo, hier ein lauffähiger Code. Allerdings ist mir gerade aufgefallen, dass die erste Gruppe irgendwie nicht durchflogen wird da muss ich auch nochmal schauen..

Spoiler anzeigen

AutoIt

#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ad.au3>
#include <GUIListBox.au3>


$frmGroupView = GUICreate("Gruppenmitglieder", 986, 516)
$Ber_lstGruppen = GUICtrlCreateList("", 8, 8, 200, 500, BitOR($gui_ss_default_list, $ws_hscroll, $lbs_extendedsel))
GUICtrlSetData(-1, "Gruppe 1|Gruppe2|Gruppe3|Gruppe4|Gruppe5")
$frmGrp_lstGroupView = GUICtrlCreateListView("", 210, 8, 768, 500, BitOR($WS_HSCROLL, $WS_VSCROLL))
$Ber_conUserWahl = GUICtrlCreateContextMenu($Ber_lstGruppen)
$Ber_conGroupView = GUICtrlCreateMenuItem("Gruppenmitglieder anzeigen", $Ber_conUserWahl)
GUISetState(@SW_SHOW, $frmGroupView)
_AD_Open()


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			_AD_Close()
			Exit


		Case $Ber_conGroupView
			_GroupView()


	EndSwitch
WEnd




Func _GroupView()
	Local $cnt = UBound(_GUICtrlListBox_GetSelItems($Ber_lstGruppen))-1 ;Anzahl der ausgewählten Gruppen aus der Liste
	Local $names = _GUICtrlListBox_GetSelItemsText($Ber_lstGruppen) ;ausgewählte Gruppen aus der Liste
	_ArrayDelete($names, 0)
	If $cnt < 1 Then
		MsgBox(0, "", "Bitte wählen Sie mindestens eine Gruppe aus!")
	Else
		For $i = 0 To $cnt - 1
			_GUICtrlListView_AddColumn($frmGrp_lstGroupView, String($names[$i]), 150, 0) ;Überschriften füllen
		Next
		For $grp In $names
			$grp = _AD_SamAccountNameToFQDN($grp) ;Umwandeln des SamAccountName zum FQDN
			local $aGrpMember = _AD_GetGroupMembers($grp) ;Einlesen der Grp-Member
			local $sMemberFull, $sMember = ""
			_ArrayDelete($aGrpMember, 0)
			For $i = 0 To UBound($aGrpMember) - 1
				$aGrpMember[$i] = _AD_FQDNToDisplayname($aGrpMember[$i]) ;Umwandeln des jeweiligen Usernames zum Displayname
			Next
			_ArraySort($aGrpMember, 0)
			For $i = 0 To UBound($aGrpMember) - 1
				If $i = UBound($aGrpMember) - 1 Then
					$sMember = $sMember & $aGrpMember[$i]
					If $grp = $names[0] Then
						$sMemberFull = $sMember
					Else
						$sMemberFull = $sMemberFull & "#" & $sMember
					EndIf
				Else
					$sMember = $sMember & $aGrpMember[$i] & ";"
				EndIf
			Next ;>> Erstellen eines Strings der Usernames
		Next
		local $aMemberFull = StringSplit($sMemberFull, "#") ;Erstellen eines 1D-Arrays
		_ArrayDelete($aMemberFull, 0)
		local $aMemberArray[1][UBound($aMemberFull)] ;Initialisieren eines 2D-Arrays
		For $i = 0 To UBound($aMemberFull) - 1
			$aMemberDetail = StringSplit($aMemberFull[$i], ";")
			_ArrayDelete($aMemberDetail, 0)
			If UBound($aMemberDetail) - 1 > UBound($aMemberArray) - 1 Then
				ReDim $aMemberArray[UBound($aMemberDetail)][UBound($aMemberFull)]
			EndIf
			For $j = 0 To UBound($aMemberDetail) - 1
				$aMemberArray[$j][$i] = $aMemberDetail[$j]
			Next
		Next
		_GUICtrlListView_AddArray($frmGrp_lstGroupView, $aMemberArray) ;>> eintragen der Usernamen in die listview
	EndIf
EndFunc

Alles anzeigen

Versionen:
Scite: 3.5.4
Autoit: v3.3.14.1
AD UDF: 1.4.1.1

Vielen Dank für eure Hilfe vorab

EDIT: Ich hab das Problem gefunden. Wenn in der Gruppe andere Gruppen drin sind, funktioniert die Funktion scheinbar nicht. Zumindest ist es so reproduzierbar. Kann ich die Member der Gruppe, welche keine Benutzer sind irgendwie rausfiltern?

**water**

Probier mal die neueste Version 1.4.2.0 der AD UDF. Die sollte mit der geänderten COM-Fehlerbehandlung zurecht kommen.

DasIch

Ich bin begeistert. Damit geht es!

Jetzt muss ich nur noch rausfinden, warum die erste Spalte immer leer bleibt Ich editiere mal den Code im Eingangspost und halte ihn aktuell, dann muss man nicht immer die Beiträge suchen, in denen der aktuelle Code steht.

DasIch

Okay, fixed.

Danke an alle Beteiligten

Spoiler anzeigen

AutoIt

#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ad.au3>
#include <GUIListBox.au3>


$frmGroupView = GUICreate("Gruppenmitglieder", 986, 516)
$Ber_lstGruppen = GUICtrlCreateList("", 8, 8, 200, 500, BitOR($gui_ss_default_list, $ws_hscroll, $lbs_extendedsel))
GUICtrlSetData(-1, "Gruppe 1|Gruppe2|Gruppe3|Gruppe4|Gruppe5")
$frmGrp_lstGroupView = GUICtrlCreateListView("", 210, 8, 768, 500, BitOR($WS_HSCROLL, $WS_VSCROLL))
$Ber_conUserWahl = GUICtrlCreateContextMenu($Ber_lstGruppen)
$Ber_conGroupView = GUICtrlCreateMenuItem("Gruppenmitglieder anzeigen", $Ber_conUserWahl)
GUISetState(@SW_SHOW, $frmGroupView)
_AD_Open()


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			_AD_Close()
			Exit


		Case $Ber_conGroupView
			_GUICtrlListView_DeleteAllItems($frmGrp_lstGroupView)
			For $i = 0 To _GUICtrlListView_GetColumnCount($frmGrp_lstGroupView)
				_GUICtrlListView_DeleteColumn($frmGrp_lstGroupView, $i)
			Next
			_GUICtrlListView_DeleteColumn($frmGrp_lstGroupView,0)
			_GroupView()




	EndSwitch
WEnd




Func _GroupView()
	Local $cnt = UBound(_GUICtrlListBox_GetSelItems($Ber_lstGruppen))-1 ;Anzahl der ausgewählten Gruppen aus der Liste
	Local $names = _GUICtrlListBox_GetSelItemsText($Ber_lstGruppen) ;ausgewählte Gruppen aus der Liste
	_ArrayDelete($names, 0)
	If $cnt < 1 Then
		MsgBox(0, "", "Bitte wählen Sie mindestens eine Gruppe aus!")
	Else
		For $i = 0 To $cnt - 1
			_GUICtrlListView_AddColumn($frmGrp_lstGroupView, String($names[$i]), 150, 0) ;Überschriften füllen
		Next
		For $grp In $names
			$grp = _AD_SamAccountNameToFQDN($grp) ;Umwandeln des SamAccountName zum FQDN
			local $aGrpMember = _AD_GetGroupMembers($grp) ;Einlesen der Grp-Member
			local $sMemberFull, $sMember = ""
			_ArrayDelete($aGrpMember, 0)
			For $i = 0 To UBound($aGrpMember) - 1
				$aGrpMember[$i] = _AD_FQDNToSamAccountName($aGrpMember[$i]) ;Umwandeln des jeweiligen Usernames zum Displayname
			Next
			_ArraySort($aGrpMember, 0)
			For $i = 0 To UBound($aGrpMember) - 1
				If $i = UBound($aGrpMember) - 1 Then
					$sMember = $sMember & $aGrpMember[$i]
					If $grp = $names[0] Then
						$sMemberFull = $sMember
					Else
						$sMemberFull = $sMemberFull & "#" & $sMember
					EndIf
				Else
					$sMember = $sMember & $aGrpMember[$i] & ";"
				EndIf
			Next ;>> Erstellen eines Strings der Usernames
		Next
		local $aMemberFull = StringSplit($sMemberFull, "#") ;Erstellen eines 1D-Arrays
		_ArrayDelete($aMemberFull, 0)
		_ArrayDelete($aMemberFull, 0)
		local $aMemberArray[1][UBound($aMemberFull)] ;Initialisieren eines 2D-Arrays
		For $i = 0 To UBound($aMemberFull) - 1
			$aMemberDetail = StringSplit($aMemberFull[$i], ";")
			_ArrayDelete($aMemberDetail, 0)
			If UBound($aMemberDetail) - 1 > UBound($aMemberArray) - 1 Then
				ReDim $aMemberArray[UBound($aMemberDetail)][UBound($aMemberFull)]
			EndIf
			For $j = 0 To UBound($aMemberDetail) - 1
				$aMemberArray[$j][$i] = $aMemberDetail[$j]
			Next
		Next
		_GUICtrlListView_AddArray($frmGrp_lstGroupView, $aMemberArray) ;>> eintragen der Usernamen in die listview
	EndIf
EndFunc

Alles anzeigen