Ich würde mit Alpha-Beta-Pruning 4 Züge tief berechnen, und die Zugfolge wählen, die die größte Differenz zwischen mir und dem Gegner ergibt. jedoch habe ich keine Ahnung wie ich diese Algorithmus implementieren kann. Jemand ne Ahnung ?
Beiträge von scenix
-
-
Hallo,
ich versuche gerade ein Spiel in AutoIt zu Implementieren und überleg mir gerade verschiedene Spieler-typen und deren Strategien.
Zum Spiel:
Gegeben ist die Menge der natürlichen Zahlen zwischen 1 und einer beliebigen
Obergrenze. Zwei Spieler wählen abwechselnd eine Zahl aus dieser Menge, so
lange bis keine Zahlen mehr vorhanden sind. Bei jedem Zug erhält der
betreffende Spieler den Zahlenwert der ausgewählten Zahl gut geschrieben, sein
Gegner erhält die Zahlenwerte aller noch vorhandenen Teiler der ausgewählten
Zahl; danach werden die ausgewählte Zahl und alle ihre Teiler entfernt und der
andere Spieler ist am Zug.Spieler 1: Zieht nur Primzahlen.
Spieler 2: Zieht Primzahlen wenn vorhanden oder kleinste Zahl.
Spieler 3: Zieht Random Zahlen
Spieler 4: Rechnet die besten 10 Züge im Vorraus aus.
Habt ihr eine Idee wie man einen Spieler entwickeln kann der immer gewinnt ?
Es geht mir nur um die Logik nicht um die Implementierung in AutoIt.
Vielen Danke im voraus und bedanke mich für jeden Beitrag
-
[autoit]
[/autoit]
Dim $aObjects[1][1]$aObjects = _AD_GetObjectsInOU($sOU, "(name=*)", 2, "displayname,sAMAccountName")For $i = 0 To UBound($aObjects) - 1Hallo,
Ich habe in der Zweiten spalte eine Wert der Nennt sich 2 und davon brauche ich den Index aber ich weiss nicht wie kann mir das jemand zeigen ?
-
-
Danke ich habe es mit FileInstall gemacht und es hat funktioniert
-
Hallo,
ich verstehe nicht warum die ICON und Bilder nicht in die EXE geladen werden ? Was mach ich falsch oder ist es Überhaupt nicht möglich ?
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <AD.au3>
#include <Array.au3>
#include <GuiStatusBar.au3>
#include "RestrictControlRegExp.au3"
#include <WinAPI.au3>
#include <Date.au3>
#include <GUIListBox.au3>
#include <GuiListView.au3>
#include <File.au3>Global $sIconPath = @ScriptDir & '\icons\'
[/autoit]
$Pic1 = GUICtrlCreatePic("G:\Allg.Informationen, Formulare, Vorlagen\Vorlagen\LB_Logo\Logo Farbe 72.jpg", 0, 17, 480, 105)
Global $suche = GUICtrlCreateIcon($sIconPath & 'Search.ico', -1, 376, 184, 16, 16)Was ist am diesen Quellcode falsch ?
Danke
-
-
Hallo,
es war folgendes :
_GUICtrlStatusBar_SetBkColor($status, 0xFF0000) Das macht er nicht bei XP Style kla.
Global $BOK = GUICtrlCreateButton("Speichern", 200, 200, 73, 33, $BS_ICON)
Global $Anzeige = GUICtrlCreateButton("Anzeige", 70, 200, 73, 33, $BS_ICON)
Global $Bschliessen = GUICtrlCreateButton("Schließen", 320, 200, 73, 33, $BS_ICON)Die $BS_ICON mussten raus ==>
Danke Oscar ++
-
Hallo Forum,
ich möchte gerne aus meiner GUI:
autoit.de/wcf/attachment/13593/
Einen User mit Doppeltklick auswählen können und abspeichern.
Das wars eigentlich
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <AD.au3>
#include <Array.au3>
#include <GuiListView.au3>Global $SDNSDomain, $SHostServer, $SConfiguration, $SPassword, $SUserId, $aTEMP, $status, $statusleiste, $templeer, $sType, $homenrtemp
[/autoit] [autoit][/autoit] [autoit]; Username+Passwort fuer Domainadmin
[/autoit] [autoit][/autoit] [autoit]
$SUserId = "XXXX"
$SPassword = "XXXX"; Open Connection to the Active Directory
[/autoit] [autoit][/autoit] [autoit]
_AD_Open()
$SDNSDomain = $sAD_DNSDomain
$SHostServer = $sAD_HostServer
$SConfiguration = $sAD_Configuration
_AD_Close(); Open Connection to the Active Directory
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
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)
EndIfGlobal $sOU = "OU=Mitarbeiter XXXX,DC=XXXX,DC=de"
[/autoit] [autoit][/autoit] [autoit]Dim $aObjects[1][1]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Opt("GUIOnEventMode",1)$aObjects = _AD_GetObjectsInOU($sOU, "(name=*)", 2, "displayname,sAMAccountName")
[/autoit] [autoit][/autoit] [autoit]
$nummerof = Ubound ($aObjects) -1#region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$wnamen = GUICtrlCreateListView("Name: |Windows Anmeldename: | ID: ", 20, 24,333,350)For $i = 1 to Ubound ($aObjects) -1
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateListViewItem($aObjects[$i][0]& "|"&$aObjects[$i][1]&"|"& $i , $wnamen)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)
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $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
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
WEndDanke im Voraus !
-
Hmmm ich habe dein Antwort gelesen weiss aber nicht wie du es meinst so eine For schleife hab ich auch schon mal erstellt
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$wnamen = GUICtrlCreateListView("", 104, 24, 209, 383)For $I = 0 to Ubound ($aObjects) -1
[/autoit] [autoit][/autoit] [autoit][/autoit]
GUICtrlCreateListViewItem ($aObjects[$i][0], $wnamen)
NextAn welcher Stelle muss ich das hinzufügen ?
Da du ja sagtest du hast AD.au3 nicht füge ich die hinzu
Ich habe hier mal den Array inhalt gepostet :
autoit.de/wcf/attachment/13592/ -
Hallo,
Ich habe folgende GUI:
autoit.de/wcf/attachment/13589/
es soll eine Spalte aus dem 2D Array dort eingegeben werden Sämtliche ansätze mit Schleifen sind bei mir gescheitert.
jemand einen Rat ?
Spoiler anzeigen
[autoit][/autoit] [autoit][/autoit] [autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <AD.au3>
#include <Array.au3>
#include <GuiListView.au3>Global $SDNSDomain, $SHostServer, $SConfiguration, $SPassword, $SUserId, $aTEMP, $status, $statusleiste, $templeer, $sType, $homenrtemp
[/autoit] [autoit][/autoit] [autoit]; Username+Passwort fuer Domainadmin
[/autoit] [autoit][/autoit] [autoit]
$SUserId = ""
$SPassword = ""; Open Connection to the Active Directory
[/autoit] [autoit][/autoit] [autoit]
_AD_Open()
$SDNSDomain = $sAD_DNSDomain
$SHostServer = $sAD_HostServer
$SConfiguration = $sAD_Configuration
_AD_Close(); Open Connection to the Active Directory
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
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)
EndIfGlobal $sOU = "OU=Mitarbeiter XXX,DC=xxx,DC=de"
[/autoit] [autoit][/autoit] [autoit]Global $aObjects[1][1]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$aObjects = _AD_GetObjectsInOU($sOU, "(name=*)", 2, "displayname,sAMAccountName")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$wnamen = GUICtrlCreateListView($aObjects, 104, 24, 209, 383)
_GUICtrlListView_AddArray($wnamen, $aObjects)$OK = GUICtrlCreateButton("OK", 368, 272, 121, 97, $WS_GROUP)
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $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
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
WEndIn der Zeile 47 ist das Problem
Danke
-
Sto lat, sto lat, niech żyje, żyje nam!
Jeszcze raz, jeszcze raz, niech żyje, żyje nam!
Niech żyje nam!
...Niech mu gwiazdka pomyślności, nigdy nie zagaśnie,
A kto z nami nie wypije, niech go piorun trzaśnie.
... -
ich habe es mit -RegEx von peethebee gemacht und da finde ich nicht den Richtigen weg.
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>
#include "RestrictControlRegExp.au3"Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]_RegEx_RestrictControl_setup (20) ; prepare for up to 20 Controls to restrict
[/autoit] [autoit][/autoit] [autoit]GUICreate("Test")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetOnEvent(-3, "_quit")
$inp = GUICtrlCreateInput("", 10, 10, 100, 20)
_RegEx_RestrictControl_add ($inp, "^[a-z]{0,10}$") ; up to 10 letters
$inp2 = GUICtrlCreateInput("", 10, 100, 100, 20)
_RegEx_RestrictControl_add ($inp2, "^[1-7] {1}\.\d[0123] {3}$") ; so wie es nun ist Funktionert es nicht !
;~ *[1-7]\.\d{3}
;~ /*"^[1234567] {1}\.[0123] {3}$"
$inp3 = GUICtrlCreateInput("", 10, 200, 100, 20)
_RegEx_RestrictControl_add ($inp3, "^[a-zA-Z_0-9]{1,20}@[a-zA-Z_0-9]{2,20}\.[a-z]{2,4}$", "g@gm.de") ; e-mail-addressGUISetState()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Sleep(10)
WEndFunc _quit()
[/autoit] [autoit][/autoit] [autoit][/autoit]
Exit
EndFunc ;==>_quit -
Hallo,
ich habe das Problem das ich die RegExp nicht hinbekomme:
Eingabe soll so aussehen:
Raumnummer: 2.013
In der ersten Zahl ist erlaubt [1-7] da wir nur 7 Stockwerke haben. Dannach soll der Punkt automatisch gesetzt werden. Dannach soll die erste zahl [0-3] erlaubt sein die anderen Zahlen sollen [0-9] haben.
Wer kann mir helfen ?
Gruß SceniX
-
Hallo Misterspeed,
der Quelltext zieht sich so langsam in die Länge und er wird unübersichtlich deswegen wollte ich das was ich fast wie bei Homenr, Mobilnummer drine habe als Funktion auslagern bloß wie
desweitern habe ich die Frage ich möchte wenn alles OK ist wenn die Daten z.B. aus dem AD Richtig geladen wurden die Statusbar unten siehe Bild Grün einfärben wie im Bild.
Spoiler anzeigen
[autoit][/autoit] [autoit][/autoit] [autoit]#AutoIt3Wrapper_AU3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=Y
;--------------INCLUD ANFANG ----------------------
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <AD.au3>
#Include <Array.au3>
#include <GuiStatusBar.au3>
#include "RestrictControlRegExp.au3"
;--------------INCLUD ENDE ----------------------Global $SDNSDomain, $SHostServer, $SConfiguration, $SPassword, $SUserId, $aTEMP , $status, $statusleiste , $templeer
[/autoit] [autoit][/autoit] [autoit]; Username+Passwort fuer Domainadmin
[/autoit] [autoit][/autoit] [autoit]
$SUserID = ""
$SPassword = ""; Open Connection to the Active Directory
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_AD_Open()
$SDNSDomain = $sAD_DNSDomain
$SHostServer = $sAD_HostServer
$SConfiguration = $sAD_Configuration
_AD_Close(); Open Connection to the Active Directory
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
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)
EndIfGlobal $sUser = @UserName
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global $displayname = _AD_GetObjectAttribute(@UserName, "displayName")
Global $mail = _AD_GetObjectAttribute(@UserName, "mail")_RegEx_RestrictControl_setup (20)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
Global $Form1_1 = GUICreate("Adressbuch AD-Tool", 444, 466, 299, 127)
GUISetFont(10, 400, 0, "Arial")
Global $name = GUICtrlCreateLabel("Name:", 8, 12, 120, 21)
Global $nameanzeige = GUICtrlCreateLabel(_AD_GetObjectAttribute(@UserName, "givenName") & " " & _AD_GetObjectAttribute(@UserName, "sn"), 170, 12, 259, 21)Global $durchwahllabel = GUICtrlCreateLabel("Durchwahl:", 8, 44, 72, 21)
[/autoit] [autoit][/autoit] [autoit]
Global $durchwahltemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "telephoneNumber"), 170, 40, 259, 21)
_RegEx_RestrictControl_add ($durchwahltemp, "^[0123456789]{0,4}$")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")Global $telefonnummerlabel = GUICtrlCreateLabel("Telefonnummer:", 8, 76, 112, 21)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global $homenrtemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "homePhone"), 170, 72, 259, 21)
_RegEx_RestrictControl_add ($homenrtemp, "^[0123456789]{0,13}$")GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
[/autoit] [autoit][/autoit] [autoit]
Global $faxdurchwahllabel = GUICtrlCreateLabel("FAX-Durchwahl:", 8, 110, 104, 21)
Global $faxdurchwahltemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "facsimileTelephoneNumber"), 170, 104, 259, 21)
_RegEx_RestrictControl_add ($faxdurchwahltemp, "^[0123456789]{0,4}$")GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global $Mobilfunknummerlabel = GUICtrlCreateLabel("Mobilfunknummer:", 8, 140, 112, 21)
Global $mobilfunknummertemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "mobile"), 170, 136, 259, 21)
_RegEx_RestrictControl_add ($mobilfunknummertemp, "^[0123456789]{0,13}$")GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
[/autoit] [autoit][/autoit] [autoit]
Global $bueronummerlabel = GUICtrlCreateLabel("Raumnummer:", 8, 172, 88, 21)
Global $raumnummertemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "physicalDeliveryOfficeName"), 170, 168, 45, 21)
_RegEx_RestrictControl_add ($raumnummertemp, "^[0123456789.]{0,5}$")GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
[/autoit] [autoit][/autoit] [autoit];Hier werden die 4 Schaltflächen erstellt sowie die Labels für die Statuszeile
[/autoit] [autoit][/autoit] [autoit]
Global $BOK = GUICtrlCreateButton("Speichern", 136, 200, 73, 33, $BS_ICON)
Global $Anzeige = GUICtrlCreateButton("Anzeige", 24, 200, 73, 33, $BS_ICON)
Global $BCancel = GUICtrlCreateButton("Schließen", 256, 200, 73, 33, $BS_ICON)
Global $Copyright = GUICtrlCreateLabel("Copyright by LichtBlick AG", 144, 360, 161, 20)
Global $Softwarename = GUICtrlCreateLabel("LichtBlick Adressbuch AD-Tool", 96, 384, 243, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
Global $Version = GUICtrlCreateLabel("Version: 1.0", 176, 408, 74, 20)
$status = _GUICtrlStatusBar_Create($Form1_1)
_GUICtrlStatusBar_SetText($status)
_GUICtrlStatusBar_SetBkColor($status,0xFF0000)Global $Pic1 = GUICtrlCreatePic("G:\Allg.Informationen, Formulare, Vorlagen\Vorlagen\LB_Logo\Logo Farbe 72.jpg", 0, 240, 444, 113, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###GUISetState()
[/autoit] [autoit][/autoit] [autoit];--------------ARRAY Anfang ----------------------
[/autoit] [autoit][/autoit] [autoit]
GLOBAL $array_attribute[11][3]
$array_attribute[0][0] = "company"
$array_attribute[1][0] = "streetAddress"
$array_attribute[2][0] = "postalCode"
$array_attribute[3][0] = "l"
$array_attribute[4][0] = "title"
$array_attribute[5][0] = "info"
$array_attribute[6][0] = "telephoneNumber"
$array_attribute[7][0] = "homePhone"
$array_attribute[8][0] = "facsimileTelephoneNumber"
$array_attribute[9][0] = "pager"
$array_attribute[10][0] = "mobile"$array_attribute[0][1] = _AD_GetObjectAttribute(@UserName, "company")
[/autoit] [autoit][/autoit] [autoit]
$array_attribute[1][1] = _AD_GetObjectAttribute(@UserName, "streetAddress")
$array_attribute[2][1] = _AD_GetObjectAttribute(@UserName, "postalCode")
$array_attribute[3][1] = _AD_GetObjectAttribute(@UserName, "l")
$array_attribute[4][1] = _AD_GetObjectAttribute(@UserName, "title")
$array_attribute[5][1] = _AD_GetObjectAttribute(@UserName, "info")
$array_attribute[6][1] = _AD_GetObjectAttribute(@UserName, "telephoneNumber")
$array_attribute[7][1] = _AD_GetObjectAttribute(@UserName, "homePhone")
$array_attribute[8][1] = _AD_GetObjectAttribute(@UserName, "facsimileTelephoneNumber")
$array_attribute[9][1] = _AD_GetObjectAttribute(@UserName, "pager")
$array_attribute[10][1] = _AD_GetObjectAttribute(@UserName, "mobile")$array_attribute[0][2] = _AD_GetObjectAttribute(@UserName, "company")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$array_attribute[1][2] = _AD_GetObjectAttribute(@UserName, "streetAddress")
$array_attribute[2][2] = _AD_GetObjectAttribute(@UserName, "postalCode")
$array_attribute[3][2] = _AD_GetObjectAttribute(@UserName, "l")
$array_attribute[4][2] = _AD_GetObjectAttribute(@UserName, "title")
$array_attribute[5][2] = _AD_GetObjectAttribute(@UserName, "info")
$array_attribute[6][2] = _AD_GetObjectAttribute(@UserName, "telephoneNumber")
$array_attribute[7][2] = _AD_GetObjectAttribute(@UserName, "homePhone")
$array_attribute[8][2] = _AD_GetObjectAttribute(@UserName, "facsimileTelephoneNumber")
$array_attribute[9][2] = _AD_GetObjectAttribute(@UserName, "pager")
$array_attribute[10][2] = _AD_GetObjectAttribute(@UserName, "mobile")_GUICtrlStatusBar_SetText($status,"OK")
[/autoit] [autoit][/autoit] [autoit]
While 1
Global $nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $BCancel
ExitCase $BOK
[/autoit] [autoit][/autoit] [autoit]
;Für die Durchwahl
$array_attribute[6][2] = GUICtrlRead($durchwahltemp)
IF $array_attribute[6][1] <> $array_attribute[6][2] THEN
IF $array_attribute[6][2] = "" Then
$templeer = ""
GUICtrlSetBkColor($durchwahltemp,0x99CC00)
_AD_ModifyAttribute($sUser, "telephoneNumber", $templeer)
Else
GUICtrlSetBkColor($durchwahltemp,0x99CC00)
GUICtrlSetBkColor($homenrtemp,0x99CC00)global $temp2 = "+49 (0)40 /6360 -"
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_AD_ModifyAttribute($sUser, "telephoneNumber", $array_attribute[6][2])
$array_attribute[7][2] = $temp2 & $array_attribute[6][2]
_AD_ModifyAttribute($sUser, "homePhone", $array_attribute[7][2])
EndIf
EndIf;Für die Homenummer
[/autoit] [autoit][/autoit] [autoit]
Global $internationvorwahl = "+49"
$array_attribute[7][2] = GUICtrlRead($homenrtemp)
IF $array_attribute[7][1] <> $array_attribute[7][2] THEN
$templeer = ""
If $array_attribute[7][2] == $templeer THEN
GUICtrlSetBkColor($homenrtemp,0x99CC00)
_AD_ModifyAttribute($sUser, "homePhone", $templeer)
_GUICtrlStatusBar_SetText($status,"Wenn Leer")ElseIf stringleft($array_attribute[7][2],1) = 0 THEN
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetBkColor($homenrtemp,0x99CC00)
$array_attribute[7][2] = stringtrimleft($array_attribute[7][2],1)
$array_attribute[7][2] = $internationvorwahl & $array_attribute[7][2]
_AD_ModifyAttribute($sUser, "homePhone", $array_attribute[7][2])
Else
GUICtrlSetBkColor($homenrtemp,0x99CC00)
$array_attribute[7][2] = $internationvorwahl & $array_attribute[7][2]
_AD_ModifyAttribute($sUser, "homePhone", $array_attribute[7][2])
EndIf
ENDIF;Für die Faxdurchwahl
[/autoit] [autoit][/autoit] [autoit]
$array_attribute[8][2] = GUICtrlRead($faxdurchwahltemp)
IF $array_attribute[8][1] <> $array_attribute[8][2] THEN
$templeer =""
IF $array_attribute[8][2] == $templeer THEN
GUICtrlSetBkColor($faxdurchwahltemp,0x99CC00)
_AD_ModifyAttribute($sUser, "facsimileTelephoneNumber", $templeer)
Else
GUICtrlSetBkColor($faxdurchwahltemp,0x99CC00)
Global $temp3 = "+49 (0)40 /6360 -"
global $faxtempnummer1 = $temp3 & $array_attribute[8][2]
_AD_ModifyAttribute($sUser, "facsimileTelephoneNumber", $faxtempnummer1)
EndIf
ENDIF;Für die Mobilfunknummer
[/autoit] [autoit][/autoit] [autoit]
Global $vorwahlint = "+49"
$array_attribute[10][2] = GUICtrlRead($mobilfunknummertemp)
IF $array_attribute[10][1] <> $array_attribute[10][2] THEN
$templeer =""
IF $array_attribute[10][2] == $templeer THEN
GUICtrlSetBkColor($mobilfunknummertemp,0x99CC00)
_AD_ModifyAttribute($sUser, "mobile", $templeer)
ElseIf stringleft($array_attribute[10][2],1) = 0 THEN
$array_attribute[10][2] = stringtrimleft($array_attribute[10][2],1)
$array_attribute[10][2] = $vorwahlint & $array_attribute[10][2]
GUICtrlSetBkColor($mobilfunknummertemp,0x99CC00)
_AD_ModifyAttribute($sUser, "mobile", $array_attribute[10][2])
ELSE
$array_attribute[10][2] = $vorwahlint & $array_attribute[10][2]
_AD_ModifyAttribute($sUser, "mobile", $array_attribute[10][2])ENDIF
[/autoit] [autoit][/autoit] [autoit]
ENDIF;Für die Raumnummer
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global $roomnummber = GUICtrlRead($raumnummertemp)
IF $roomnummber = "" THEN
$templeer =""
GUICtrlSetBkColor($raumnummertemp,0x99CC00)
_AD_ModifyAttribute($sUser, "physicalDeliveryOfficeName", $templeer)
ELSE
GUICtrlSetBkColor($raumnummertemp,0x99CC00)
_AD_ModifyAttribute($sUser, "physicalDeliveryOfficeName", $roomnummber)
ENDIF;MsgBox(64, "Adressbuch AD-Tool", "Daten für '" & $displayname & "' erfolgreich geändert ! ")
[/autoit]
Case $Anzeige
MsgBox(64, "Anzeige für "& $displayname &"", @CRLF & "Titel( Akademischen Grad):" & @CRLF & $array_attribute[5][2] & @CRLF & "Windows Anmeldename:" & @CRLF &$sUser & @CRLF & "Durchwahl:" & @CRLF & $array_attribute[6][2] & @CRLF & "FAX-Druchwahl:" & @CRLF & $array_attribute[8][2] & @CRLF & "Mobilfunknummer:" & @CRLF & $array_attribute[10][2] & @CRLF & "Vollmacht:" & @CRLF & $array_attribute[9][2])
EndSwitch
WEnd
_AD_Close() -
Moin Jungs,
benötige Hilfe sowie verbesserungs Vorschläge.
Ich habe die Telefonnummer,Faxnummer, Sowie die Mobilfunknummer mit hilfe meiner Funktion func _wrong_chars_in_phonenumber überprüft das Funktioniert auch. Jetzt ist es so das ich 3 Möglichkeiten habe in der Funktion Mobilfunknummer sowie Homenummer funktioner das abscheichern der Nummer nicht richtig.
3 Fälle:
1. Error Buchstaben oder Sonderzeichen
=> Meldung in die Statusbar
2. Er scheidet die Null Vorne weg
3. Er Speichert es leer ab.
Wie bekomme ich das am Sinnvollsten hin ?
[autoit]
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
#AutoIt3Wrapper_AU3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=Y
;--------------INCLUD ANFANG ----------------------
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <AD.au3>
#Include <Array.au3>
#include <GuiStatusBar.au3>
;--------------INCLUD ENDE ----------------------Global $SDNSDomain, $SHostServer, $SConfiguration, $SPassword, $SUserId, $aTEMP , $status, $statusleiste , $templeer
[/autoit][autoit][/autoit][autoit]; Username+Passwort fuer Domainadmin
[/autoit][autoit][/autoit][autoit]
$SUserID = ""
$SPassword = ""; Open Connection to the Active Directory
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
_AD_Open()
$SDNSDomain = $sAD_DNSDomain
$SHostServer = $sAD_HostServer
$SConfiguration = $sAD_Configuration
_AD_Close(); Open Connection to the Active Directory
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
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)
EndIfGlobal $sUser = @UserName
[/autoit][autoit][/autoit][autoit]
Global $displayname = _AD_GetObjectAttribute(@UserName, "displayName")
Global $mail = _AD_GetObjectAttribute(@UserName, "mail")#Region ### START Koda GUI section ### Form=
[/autoit][autoit][/autoit][autoit]
Global $Form1_1 = GUICreate("Adressbuch AD-Tool", 447, 466, 299, 127)
GUISetFont(10, 400, 0, "Arial")
Global $name = GUICtrlCreateLabel("Name:", 8, 12, 120, 21)
Global $nameanzeige = GUICtrlCreateLabel(_AD_GetObjectAttribute(@UserName, "givenName") & " " & _AD_GetObjectAttribute(@UserName, "sn"), 170, 12, 259, 21)Global $durchwahllabel = GUICtrlCreateLabel("Durchwahl:", 8, 44, 72, 21)
[/autoit][autoit][/autoit][autoit]
Global $durchwahltemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "telephoneNumber"), 170, 40, 259, 21)
GUICtrlSetLimit ($durchwahltemp,4)GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
[/autoit][autoit][/autoit][autoit]Global $telefonnummerlabel = GUICtrlCreateLabel("Telefonnummer:", 8, 76, 112, 21)
[/autoit][autoit][/autoit][autoit]
Global $homenrtemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "homePhone"), 170, 72, 259, 21)GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
[/autoit][autoit][/autoit][autoit]
Global $faxdurchwahllabel = GUICtrlCreateLabel("FAX-Durchwahl:", 8, 110, 104, 21)
Global $faxdurchwahltemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "facsimileTelephoneNumber"), 170, 104, 259, 21)
GUICtrlSetLimit ($faxdurchwahltemp,4)GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
[/autoit][autoit][/autoit][autoit]
Global $Mobilfunknummerlabel = GUICtrlCreateLabel("Mobilfunknummer:", 8, 140, 112, 21)
Global $mobilfunknummertemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "mobile"), 170, 136, 259, 21)
GUICtrlSetLimit ($mobilfunknummertemp,13)GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
[/autoit][autoit][/autoit][autoit]
Global $bueronummerlabel = GUICtrlCreateLabel("Raumnummer:", 8, 172, 88, 21)
Global $raumnummertemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "physicalDeliveryOfficeName"), 170, 168, 60, 21)GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
[/autoit][autoit][/autoit][autoit];Hier werden die 4 Schaltflächen erstellt sowie die Labels für die Statuszeile
[/autoit][autoit][/autoit][autoit]
Global $BOK = GUICtrlCreateButton("Speichern", 136, 200, 73, 33, $BS_ICON)
Global $Anzeige = GUICtrlCreateButton("Anzeige", 24, 200, 73, 33, $BS_ICON)
Global $BCancel = GUICtrlCreateButton("Schließen", 256, 200, 73, 33, $BS_ICON)
Global $Copyright = GUICtrlCreateLabel("Copyright by LichtBlick AG", 144, 360, 161, 20)
Global $Softwarename = GUICtrlCreateLabel("LichtBlick Adressbuch AD-Tool", 96, 384, 243, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
Global $Version = GUICtrlCreateLabel("Version: 1.0", 176, 408, 74, 20)
$status = _GUICtrlStatusBar_Create($Form1_1)
_GUICtrlStatusBar_SetText($status)
_GUICtrlStatusBar_SetBkColor($status,0xFF0000)Global $Pic1 = GUICtrlCreatePic("G:\Allg.Informationen, Formulare, Vorlagen\Vorlagen\LB_Logo\Logo Farbe 72.jpg", 0, 240, 444, 113, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
[/autoit][autoit][/autoit][autoit]
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###;--------------ARRAY Anfang ----------------------
[/autoit][autoit][/autoit][autoit]
GLOBAL $array_attribute[11][3]
$array_attribute[0][0] = "company"
$array_attribute[1][0] = "streetAddress"
$array_attribute[2][0] = "postalCode"
$array_attribute[3][0] = "l"
$array_attribute[4][0] = "title"
$array_attribute[5][0] = "info"
$array_attribute[6][0] = "telephoneNumber"
$array_attribute[7][0] = "homePhone"
$array_attribute[8][0] = "facsimileTelephoneNumber"
$array_attribute[9][0] = "pager"
$array_attribute[10][0] = "mobile"$array_attribute[0][1] = _AD_GetObjectAttribute(@UserName, "company")
[/autoit][autoit][/autoit][autoit]
$array_attribute[1][1] = _AD_GetObjectAttribute(@UserName, "streetAddress")
$array_attribute[2][1] = _AD_GetObjectAttribute(@UserName, "postalCode")
$array_attribute[3][1] = _AD_GetObjectAttribute(@UserName, "l")
$array_attribute[4][1] = _AD_GetObjectAttribute(@UserName, "title")
$array_attribute[5][1] = _AD_GetObjectAttribute(@UserName, "info")
$array_attribute[6][1] = _AD_GetObjectAttribute(@UserName, "telephoneNumber")
$array_attribute[7][1] = _AD_GetObjectAttribute(@UserName, "homePhone")
$array_attribute[8][1] = _AD_GetObjectAttribute(@UserName, "facsimileTelephoneNumber")
$array_attribute[9][1] = _AD_GetObjectAttribute(@UserName, "pager")
$array_attribute[10][1] = _AD_GetObjectAttribute(@UserName, "mobile")$array_attribute[0][2] = _AD_GetObjectAttribute(@UserName, "company")
[/autoit][autoit][/autoit][autoit]
$array_attribute[1][2] = _AD_GetObjectAttribute(@UserName, "streetAddress")
$array_attribute[2][2] = _AD_GetObjectAttribute(@UserName, "postalCode")
$array_attribute[3][2] = _AD_GetObjectAttribute(@UserName, "l")
$array_attribute[4][2] = _AD_GetObjectAttribute(@UserName, "title")
$array_attribute[5][2] = _AD_GetObjectAttribute(@UserName, "info")
$array_attribute[6][2] = _AD_GetObjectAttribute(@UserName, "telephoneNumber")
$array_attribute[7][2] = _AD_GetObjectAttribute(@UserName, "homePhone")
$array_attribute[8][2] = _AD_GetObjectAttribute(@UserName, "facsimileTelephoneNumber")
$array_attribute[9][2] = _AD_GetObjectAttribute(@UserName, "pager")
$array_attribute[10][2] = _AD_GetObjectAttribute(@UserName, "mobile");--------------ARRAY ENDE ----------------------
[/autoit][autoit][/autoit][autoit];------Überprüfung der Rufnummern------------------------------------------
[/autoit][autoit][/autoit][autoit]
func _wrong_chars_in_phonenumber($text)local $test_string = $text
[/autoit][autoit][/autoit][autoit]$test_string = StringReplace($test_string, "0", "")
[/autoit][autoit][/autoit][autoit]
$test_string = StringReplace($test_string, "1", "")
$test_string = StringReplace($test_string, "2", "")
$test_string = StringReplace($test_string, "3", "")
$test_string = StringReplace($test_string, "4", "")
$test_string = StringReplace($test_string, "5", "")
$test_string = StringReplace($test_string, "6", "")
$test_string = StringReplace($test_string, "7", "")
$test_string = StringReplace($test_string, "8", "")
$test_string = StringReplace($test_string, "9", "")if $test_string<>"" THEN
[/autoit][autoit][/autoit][autoit]
RETURN TRUE
ELSE
RETURN FALSE
EndIf
endfunc
;--------------------------------------------------------
;Func changetelefondurchwahl;EndFunc
[/autoit][autoit][/autoit][autoit]Func _DisplayError($message)
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
GUICtrlSetBkColor($statusleiste,0xFF0000)
GUICtrlSetColor($statusleiste,0x000000)
GUICtrlSetData($statusleiste,$message)
EndFuncWhile 1
[/autoit][autoit][/autoit][autoit]
Global $nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $BCancel
ExitCase $BOK
[/autoit][autoit][/autoit][autoit]If Not IsDeclared("iMsgBoxAnswer") Then Global $iMsgBoxAnswer
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
$iMsgBoxAnswer = MsgBox($MB_YESNO + $MB_ICONEXCLAMATION,"LichtBlick Adressbuch AD-Tool","Möchten Sie die am Benutzer vorgenommenen Änderungen Speichern ?",5)
Select
Case $iMsgBoxAnswer = $IDYES;Für die Durchwahl
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
$array_attribute[6][2] = GUICtrlRead($durchwahltemp)
IF $array_attribute[6][1] <> $array_attribute[6][2] THEN
IF _wrong_chars_in_phonenumber($array_attribute[6][2]) THEN
GUICtrlSetBkColor($durchwahltemp,0xFF0000)
_GUICtrlStatusBar_SetText($status,"Bitte im Feld Durchwahl nur Zahlen eintragen Beispiel: 1337")ELSE
[/autoit][autoit][/autoit][autoit]
IF $array_attribute[6][2] = "" Then
$templeer = ""
_AD_ModifyAttribute($sUser, "telephoneNumber", $templeer)
Elseglobal $temp2 = "+49 (0)40 /6360 -"
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
_AD_ModifyAttribute($sUser, "telephoneNumber", $array_attribute[6][2])
$array_attribute[7][2] = $temp2 & $array_attribute[6][2]
_AD_ModifyAttribute($sUser, "homePhone", $array_attribute[7][2])
MsgBox(64, "Fehlermeldung", "mit string")
EndIf
ENDIF
EndIf;Für die Homenummer
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
Global $internationvorwahl = "+49"
$array_attribute[7][2] = GUICtrlRead($homenrtemp)
IF $array_attribute[7][1] <> $array_attribute[7][2] THEN
IF _wrong_chars_in_phonenumber($array_attribute[7][2]) THEN
GUICtrlSetBkColor($homenrtemp,0xFF0000)
_GUICtrlStatusBar_SetText($status,"Bitte im Feld Telef nur Zahlen eintragen Beispiel: 2130")Else
[/autoit][autoit][/autoit][autoit]
IF stringleft($array_attribute[7][2],1) = 0 THEN
$array_attribute[7][2] = stringtrimleft($array_attribute[7][2],1)$templeer = ""
[/autoit][autoit][/autoit][autoit]
If $array_attribute[7][2] == $templeer THEN
_GUICtrlStatusBar_SetText($status,"Wenn Leer")
_AD_ModifyAttribute($sUser, "homePhone", $templeer)
EndIf
$array_attribute[7][2] = $internationvorwahl & $array_attribute[7][2]
_AD_ModifyAttribute($sUser, "homePhone", $array_attribute[7][2])
Else
$array_attribute[7][2] = $internationvorwahl & $array_attribute[7][2]
_AD_ModifyAttribute($sUser, "homePhone", $array_attribute[7][2])
EndIfEndIf
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
ENDIF;Für die Faxdurchwahl
[/autoit][autoit][/autoit][autoit]
$array_attribute[8][2] = GUICtrlRead($faxdurchwahltemp)
IF $array_attribute[8][1] <> $array_attribute[8][2] THEN
IF _wrong_chars_in_phonenumber($array_attribute[8][2]) THEN
GUICtrlSetBkColor($faxdurchwahltemp,0xFF0000)
_GUICtrlStatusBar_SetText($status,"Bitte im Feld Faxdurchwahl nur Zahlen eintragen Beispiel: 2130")ELSE
[/autoit][autoit][/autoit][autoit]
Global $temp3 = "+49 (0)40 /6360 -"
global $faxtempnummer1 = $temp3 & $array_attribute[8][2]
_AD_ModifyAttribute($sUser, "facsimileTelephoneNumber", $faxtempnummer1)
ENDIF
ENDIF;Für die Mobilfunknummer
[/autoit][autoit][/autoit][autoit]
Global $vorwahlint = "+49"
$array_attribute[10][2] = GUICtrlRead($mobilfunknummertemp)
IF $array_attribute[10][1] <> $array_attribute[10][2] THEN
IF _wrong_chars_in_phonenumber($array_attribute[10][2]) THEN
MsgBox(64, "Fehlermeldung", "Bitte im Feld Mobilfunknummer nur Zahlen eintragen Beispiel: 017640203481")
ELSE
IF stringleft($array_attribute[10][2],1) = 0 THEN
$array_attribute[10][2] = stringtrimleft($array_attribute[10][2],1)
$templeer =""
IF $array_attribute[10][2] == $templeer THEN
_AD_ModifyAttribute($sUser, "mobile", $templeer)
ENDIF
ELSE
$array_attribute[10][2] = $vorwahlint & $array_attribute[10][2]
_AD_ModifyAttribute($sUser, "mobile", $array_attribute[10][2])ENDIF
[/autoit][autoit][/autoit][autoit]
ENDIF
ENDIF;Für die Raumnummer
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
Global $roomnummber = GUICtrlRead($raumnummertemp)
IF $roomnummber = "" THEN
$templeer =""
_AD_ModifyAttribute($sUser, "physicalDeliveryOfficeName", $templeer)
ELSE
_AD_ModifyAttribute($sUser, "physicalDeliveryOfficeName", $roomnummber)
ENDIFCase $iMsgBoxAnswer = $IDNO
[/autoit][autoit][/autoit][autoit]
Exit
Case $iMsgBoxAnswer = -1 ;Timeout
ExitEndSelect
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit];--------------Funktion Adresse Fuellen Ende ----------------------
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]
;MsgBox(64, "Adressbuch AD-Tool", "Daten für '" & $displayname & "' erfolgreich geändert ! ")
Case $Anzeige
MsgBox(64, "Anzeige für "& $displayname &"", @CRLF & "Titel( Akademischen Grad):" & @CRLF & $array_attribute[5][2] & @CRLF & "Windows Anmeldename:" & @CRLF &$sUser & @CRLF & "Durchwahl:" & @CRLF & $array_attribute[6][2] & @CRLF & "FAX-Druchwahl:" & @CRLF & $array_attribute[8][2] & @CRLF & "Mobilfunknummer:" & @CRLF & $array_attribute[10][2] & @CRLF & "Vollmacht:" & @CRLF & $array_attribute[9][2])
EndSwitch
WEnd
_AD_Close() -
Moin,
benötige Hilfe ich möchte einen String Überprüfen ob eine 0 Vorweg gewählt wurde ist es möglich ?
Ich nehme an ja aber wieDanke im Vorraus
[autoit];Für die Mobilfunknummer
[/autoit]
$array_attribute[10][2] = GUICtrlRead($mobilfunknummertemp)
IF $array_attribute[10][1] <> $array_attribute[10][2] THEN
_AD_ModifyAttribute($sUser, "mobile", $array_attribute[10][2])
ELSE
ENDIF -
Hallo,
benötige Hilfe für ein Script was benutzer Bezogene Daten im AD ändert:
[Blockierte Grafik: http://img6.imagebanana.com/img/2xdwoykg/ADFelder.JPG]
das fürs erste dannach werden mit diesen Daten Signaturen erstellt. In den Schwarzen Felder wird etwas Eingetragen. Es müssen 2 Scripte zu verfügung gestellt werden erstens für uns Administrator das wir über eine Suchmaske um den Benutzer herrausfinden den wir bearbeiten wollen. Sowie eins für den User Selber der nur sich wenn er angemeldet ist Editieren kann !
Fürs erste müsste das reichen für Info
GGL einfach per PN anschrieben
MfG
SceniX