Hallo zusammen,
ich hatte die Tage mal ein Thread eröffnet mit Datenabfrage & co.
Dachte mir das es für die Arbeit auch keine schlechte Idee wäre.
Es gibt bereits ein Beispiel Script im AD UDF "userinfo.au3". Es beinhaltet einiges was ich gerne bei mir im Script auch haben möchte.
Leider ist mir das Script zu kompliziert um mir Informationen daraus zu ziehen die ich benötige, noch kann ich es als beispiel script nehmen.
Da ich im Unternehmen nur selbstgeschriebene Codes nehmen darf, wäre es sowieso keine Option das Script zu nehmen.
Ich suche mir Täglich einen Wund innerhalb des AD's und benötige zum Teil mehrfach die selben Daten am Tag, deshalb muss etwas anderes her.
Soviel dazu, nun zum Script.
Suche von Benutzerdaten über Wildcards.
- Wenn Telefonnummer eingetragen worden ist, dann suche Benutzer und gebe Datensatz raus.
- Wenn Vorname oder Nachname eingetragen worden ist, dann suche Benutzer und gebe Datensatz raus.
- Wenn Email Adresse eingetragen worden ist, dann suche Benutzer und gebe Datensatz raus.
Benutzerdaten
-
Name, Adresse, Raum, EMail, Login Name, Firma,Gruppen - Daten mit anderen Personen vergleichen
- Die Gruppen im ListView anzeigen
Neue Nutzer anlegen
Spoiler anzeigen
#include <ListViewConstants.au3>
#include <AD.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <File.au3>
HotKeySet("{F1}","_activate")
Opt("GUIOnEventMode", 1)
Global $Lesen
Global $aObjects
Global $Mail
Global $Firma
Global $Raum
Global $Name
Global $TelefonNr
Global $Gruppe
Global $User
#Region ### START Koda GUI section ###
Global $Form1 = GUICreate("blub", 851, 613, 402, 277)
Global $Label1 = GUICtrlCreateLabel("Raum:", 0, 72, 227, 17)
Global $Label2 = GUICtrlCreateLabel("Mail :", 0, 24, 227, 17)
Global $Label3 = GUICtrlCreateLabel("TelefonNr:", 0, 48, 227, 17)
Global $Label4 = GUICtrlCreateLabel("Firma:", 0, 96, 227, 17)
Global $Label5 = GUICtrlCreateLabel("Name:", 0, 0, 227, 17)
Global $Input1 = GUICtrlCreateInput("", 680, 48, 89, 21)
Global $Button1 = GUICtrlCreateButton("Bestätigen", 680, 72, 91, 25)
Global $label7 = GUICtrlCreateLabel("Online:", 0, 120, 227, 17)
Global $ListView1 = GUICtrlCreateListView("Daten|Daten|Daten|Daten|Daten|Daten|Daten|Daten|Daten|Daten", 0, 280, 849, 329)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 84)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 84)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 84)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 84)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 84)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 84)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 84)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 7, 84)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 8, 84)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 9, 84)
Global $Label6 = GUICtrlCreateLabel("Welchen Benutzer suchen Sie?", 648, 24, 154, 17)
GUISetOnEvent(-3,"_Exit",$Form1)
GUICtrlSetOnEvent($Button1,"_Info")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Func _Info()
_AD_Open()
$Lesen = GUICTRLRead ($Input1)
$Mail = _AD_GetObjectAttribute($Lesen,"mail")
$Name = _AD_GetObjectAttribute($Lesen,"name")
$TelefonNr = _AD_GetObjectAttribute($Lesen,"telephonenumber")
$Firma = _AD_GetObjectAttribute($Lesen,"company")
$Raum = _AD_GetObjectAttribute($Lesen,"physicalDeliveryOfficeName")
GUICtrlSetData($Label4,"Firma: "&$Firma)
GUICtrlSetData($Label1,"Raum: "&$Raum)
GUICtrlSetData($Label2,"Mail: "&$Mail)
GUICtrlSetData($Label3,"TelefonNr: "&$TelefonNr)
GUICtrlSetData($Label5,"Name: "&$Name)
$User = _AD_GetUserGroups()
_ArraySort($User,0,1)
_ArrayDisplay($User)
_AD_Close()
EndFunc
Func _activate()
WinActivate("blub")
EndFunc
While 1
Sleep(1000)
WEnd
Func _Exit()
Exit
EndFunc
Alles anzeigen