Aus einer ListView ein Item mit Doppelklick herausnehmen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <AD.au3>
#include <Array.au3>
#include <GuiListView.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $SDNSDomain, $SHostServer, $SConfiguration, $SPassword, $SUserId, $aTEMP, $status, $statusleiste, $templeer, $sType, $homenrtemp

[/autoit] [autoit][/autoit] [autoit]

; Username+Passwort fuer Domainadmin
$SUserId = "XXXX"
$SPassword = "XXXX"

[/autoit] [autoit][/autoit] [autoit]

; Open Connection to the Active Directory
_AD_Open()
$SDNSDomain = $sAD_DNSDomain
$SHostServer = $sAD_HostServer
$SConfiguration = $sAD_Configuration
_AD_Close()

[/autoit] [autoit][/autoit] [autoit]

; Open Connection to the Active Directory
If _AD_Open($SUserId, $SPassword, $SDNSDomain, $SHostServer, $SConfiguration) Then
ElseIf @error <= 8 Then
MsgBox(16, "Adressbuch AD-Tool", "The logon was not succcessful!" & @CRLF & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
MsgBox(16, "Adressbuch AD-Tool", "The logon was not succcessful!" & @CRLF & @CRLF & "@error: " & @error & ", @extended: " & @extended & _
@CRLF & @CRLF & "Extended error information will be displayed")
Global $aError = _AD_GetLastADSIError()
_ArrayDisplay($aError)
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $sOU = "OU=Mitarbeiter XXXX,DC=XXXX,DC=de"

[/autoit] [autoit][/autoit] [autoit]

Dim $aObjects[1][1]
Opt("GUIOnEventMode",1)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$aObjects = _AD_GetObjectsInOU($sOU, "(name=*)", 2, "displayname,sAMAccountName")
$nummerof = Ubound ($aObjects) -1

[/autoit] [autoit][/autoit] [autoit]

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$wnamen = GUICtrlCreateListView("Name: |Windows Anmeldename: | ID: ", 20, 24,333,350)

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 to Ubound ($aObjects) -1
GUICtrlCreateListViewItem($aObjects[$i][0]& "|"&$aObjects[$i][1]&"|"& $i , $wnamen)

[/autoit] [autoit][/autoit] [autoit]

Next

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;~ _GUICtrlListView_GetItemSelected($hListView, $i) = True ist

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$OK = GUICtrlCreateButton("OK", 368, 272, 121, 97, $WS_GROUP)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

Case $OK

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_ArrayDisplay($aObjects, "Active Directory Functions - Example 1 - Objects in OU '" & $sOU & "'")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]