Benutzerauswahl für EMailEmpfänger

  • Nabend gibr es eine Funktion die analog zum fileopen Dialog eine Auswahl der User bringt (oder AD Such Dialog)
    Ich möchte über diesen Benutzer für Emailbenachrichtigung auswählen können. Eine UDF wäre auch in Ordnung.
    Irgendwer hatte doch für Ad etwas im Anhang, aber nicht alle haben eine Domäne :(
    Gruß Dietmar

    Achtung Anfänger! :whistling:

    Betrachten des Quellcodes auf eigene Gefahr, bei Übelkeit,Erbrechen,Kopfschmerzen übernehme ich keine Haftung. 8o

    Einmal editiert, zuletzt von Dietmar (18. Mai 2009 um 21:13)

    • Offizieller Beitrag

    Meinst Du sowas:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <ComboConstants.au3>
    GUICreate('Test', 400, 100)
    $sUser = _UserAccount()
    GUICtrlCreateCombo('', 10, 20, 280, 20, $CBS_DROPDOWNLIST)
    GUICtrlSetData(-1, $sUser)
    GUISetState()
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

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

    Func _UserAccount()
    Local $wbemFlagReturnImmediately = 0x10
    Local $wbemFlagForwardOnly = 0x20
    Local $strComputer = 'localhost'
    Local $Output=""
    Local $objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\root\CIMV2')
    Local $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_UserAccount', 'WQL', $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) then
    For $objItem In $colItems
    If $objItem.Disabled = 0 Then $Output &= $objItem.Caption & '|'
    Next
    Endif
    Return StringTrimRight($Output, 1)
    EndFunc

    [/autoit]
  • Besten Dank aber das ist nicht ganz das gesuchte, ein Aufruf für die Standardbenutzersuche wäre evtl. besser,
    da kann der User über Pfade den richigen aussuchen, in den meisten Fällen mit bei internen Mailserver hat man auch ine Domäne.
    Oder deser Dialog weiß jemand wie man ihn startet.

    Achtung Anfänger! :whistling:

    Betrachten des Quellcodes auf eigene Gefahr, bei Übelkeit,Erbrechen,Kopfschmerzen übernehme ich keine Haftung. 8o

    Einmal editiert, zuletzt von Dietmar (19. Mai 2009 um 09:43)