Beiträge von scenix

scenix

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 ?

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

scenix

[autoit]

Dim $aObjects[1][1]$aObjects = _AD_GetObjectsInOU($sOU, "(name=*)", 2, "displayname,sAMAccountName")For $i = 0 To UBound($aObjects) - 1

[/autoit]

Hallo,

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 ?

scenix

Alles Gute

scenix

Danke ich habe es mit FileInstall gemacht und es hat funktioniert

scenix

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]

#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>

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

Global $sIconPath = @ScriptDir & '\icons\'
$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)

[/autoit]

Was ist am diesen Quellcode falsch ?

Danke

scenix

Im abgesicherten Modus Starten ohne Netzwerk und dann mal Avira durchlaufen lassen.

Desweitern hätte ich einen Maleware Scann durchgeführt

scenix

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 ++

scenix

Hallo Forum,

ich möchte gerne aus meiner GUI:

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Einen User mit Doppeltklick auswählen können und abspeichern.

Das wars eigentlich

Spoiler anzeigen

[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]

;~ _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]

Danke im Voraus !

scenix

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]

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$wnamen = GUICtrlCreateListView("", 104, 24, 209, 383)

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

For $I = 0 to Ubound ($aObjects) -1
GUICtrlCreateListViewItem ($aObjects[$i][0], $wnamen)
Next

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

An 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 :
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

scenix

Hallo,

Ich habe folgende GUI:

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

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>
#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 = ""
$SPassword = ""

[/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 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=
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$wnamen = GUICtrlCreateListView($aObjects, 104, 24, 209, 383)
_GUICtrlListView_AddArray($wnamen, $aObjects)

[/autoit] [autoit][/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]

In der Zeile 47 ist das Problem

Danke

scenix

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.
...

scenix

ich habe es mit -RegEx von peethebee gemacht und da finde ich nicht den Richtigen weg.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include "RestrictControlRegExp.au3"

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

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")
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-address

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

GUISetState()

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

While 1
Sleep(10)
WEnd

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

Func _quit()
Exit
EndFunc ;==>_quit

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

scenix

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

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
#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 ----------------------

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

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

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

; Username+Passwort fuer Domainadmin
$SUserID = ""
$SPassword = ""

[/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][/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]

Global $sUser = @UserName
Global $displayname = _AD_GetObjectAttribute(@UserName, "displayName")
Global $mail = _AD_GetObjectAttribute(@UserName, "mail")

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

_RegEx_RestrictControl_setup (20)

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

#Region ### START Koda GUI section ### Form=
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)

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

Global $durchwahllabel = GUICtrlCreateLabel("Durchwahl:", 8, 44, 72, 21)
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")

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

Global $telefonnummerlabel = GUICtrlCreateLabel("Telefonnummer:", 8, 76, 112, 21)
Global $homenrtemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "homePhone"), 170, 72, 259, 21)
_RegEx_RestrictControl_add ($homenrtemp, "^[0123456789]{0,13}$")

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

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
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}$")

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

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
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}$")

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

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
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}$")

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

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
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)

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

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))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

GUISetState()

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

;--------------ARRAY Anfang ----------------------
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"

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

$array_attribute[0][1] = _AD_GetObjectAttribute(@UserName, "company")
$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")

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

$array_attribute[0][2] = _AD_GetObjectAttribute(@UserName, "company")
$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")

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

_GUICtrlStatusBar_SetText($status,"OK")
While 1
Global $nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $BCancel
Exit

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

Case $BOK
;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)

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

global $temp2 = "+49 (0)40 /6360 -"
_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

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

;Für die Homenummer
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")

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

ElseIf stringleft($array_attribute[7][2],1) = 0 THEN
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

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

;Für die Faxdurchwahl
$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

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

;Für die Mobilfunknummer
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])

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

ENDIF
ENDIF

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

;Für die Raumnummer
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

[/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()

[/autoit]

scenix

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]

#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 ----------------------

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

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

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

; Username+Passwort fuer Domainadmin
$SUserID = ""
$SPassword = ""

[/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][/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]

Global $sUser = @UserName
Global $displayname = _AD_GetObjectAttribute(@UserName, "displayName")
Global $mail = _AD_GetObjectAttribute(@UserName, "mail")

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

#Region ### START Koda GUI section ### Form=
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)

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

Global $durchwahllabel = GUICtrlCreateLabel("Durchwahl:", 8, 44, 72, 21)
Global $durchwahltemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "telephoneNumber"), 170, 40, 259, 21)
GUICtrlSetLimit ($durchwahltemp,4)

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

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

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

Global $telefonnummerlabel = GUICtrlCreateLabel("Telefonnummer:", 8, 76, 112, 21)
Global $homenrtemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "homePhone"), 170, 72, 259, 21)

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

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
Global $faxdurchwahllabel = GUICtrlCreateLabel("FAX-Durchwahl:", 8, 110, 104, 21)
Global $faxdurchwahltemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "facsimileTelephoneNumber"), 170, 104, 259, 21)
GUICtrlSetLimit ($faxdurchwahltemp,4)

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

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
Global $Mobilfunknummerlabel = GUICtrlCreateLabel("Mobilfunknummer:", 8, 140, 112, 21)
Global $mobilfunknummertemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "mobile"), 170, 136, 259, 21)
GUICtrlSetLimit ($mobilfunknummertemp,13)

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

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
Global $bueronummerlabel = GUICtrlCreateLabel("Raumnummer:", 8, 172, 88, 21)
Global $raumnummertemp = GUICtrlCreateInput(_AD_GetObjectAttribute(@UserName, "physicalDeliveryOfficeName"), 170, 168, 60, 21)

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

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
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)

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

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))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

;--------------ARRAY Anfang ----------------------
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"

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

$array_attribute[0][1] = _AD_GetObjectAttribute(@UserName, "company")
$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")

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

$array_attribute[0][2] = _AD_GetObjectAttribute(@UserName, "company")
$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")

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

;--------------ARRAY ENDE ----------------------

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

;------Überprüfung der Rufnummern------------------------------------------
func _wrong_chars_in_phonenumber($text)

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

local $test_string = $text

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

$test_string = StringReplace($test_string, "0", "")
$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", "")

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

if $test_string<>"" THEN
RETURN TRUE
ELSE
RETURN FALSE
EndIf
endfunc
;--------------------------------------------------------
;Func changetelefondurchwahl

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

;EndFunc

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

Func _DisplayError($message)
GUICtrlSetBkColor($statusleiste,0xFF0000)
GUICtrlSetColor($statusleiste,0x000000)
GUICtrlSetData($statusleiste,$message)
EndFunc

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

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

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

Case $BOK

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

If Not IsDeclared("iMsgBoxAnswer") Then Global $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox($MB_YESNO + $MB_ICONEXCLAMATION,"LichtBlick Adressbuch AD-Tool","Möchten Sie die am Benutzer vorgenommenen Änderungen Speichern ?",5)
Select
Case $iMsgBoxAnswer = $IDYES

[/autoit][autoit][/autoit][autoit][/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 _wrong_chars_in_phonenumber($array_attribute[6][2]) THEN
GUICtrlSetBkColor($durchwahltemp,0xFF0000)
_GUICtrlStatusBar_SetText($status,"Bitte im Feld Durchwahl nur Zahlen eintragen Beispiel: 1337")

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

ELSE
IF $array_attribute[6][2] = "" Then
$templeer = ""
_AD_ModifyAttribute($sUser, "telephoneNumber", $templeer)
Else

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

global $temp2 = "+49 (0)40 /6360 -"
_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

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

;Für die Homenummer
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")

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

Else
IF stringleft($array_attribute[7][2],1) = 0 THEN
$array_attribute[7][2] = stringtrimleft($array_attribute[7][2],1)

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

$templeer = ""
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])
EndIf

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

EndIf
ENDIF

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

;Für die Faxdurchwahl
$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")

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

ELSE
Global $temp3 = "+49 (0)40 /6360 -"
global $faxtempnummer1 = $temp3 & $array_attribute[8][2]
_AD_ModifyAttribute($sUser, "facsimileTelephoneNumber", $faxtempnummer1)
ENDIF
ENDIF

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

;Für die Mobilfunknummer
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])

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

ENDIF
ENDIF
ENDIF

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

;Für die Raumnummer
Global $roomnummber = GUICtrlRead($raumnummertemp)
IF $roomnummber = "" THEN
$templeer =""
_AD_ModifyAttribute($sUser, "physicalDeliveryOfficeName", $templeer)
ELSE
_AD_ModifyAttribute($sUser, "physicalDeliveryOfficeName", $roomnummber)
ENDIF

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

Case $iMsgBoxAnswer = $IDNO
Exit
Case $iMsgBoxAnswer = -1 ;Timeout
Exit

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

EndSelect

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

;--------------Funktion Adresse Fuellen Ende ----------------------
;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()

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

scenix

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 wie

Danke im Vorraus

[autoit]

;Für die Mobilfunknummer
$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

[/autoit]

scenix

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

Beiträge von scenix

Algorithmus zum Spiel "PrimeGame"

Algorithmus zum Spiel "PrimeGame"

Aulesen eines Index im einem 2D Array

Herzlichen Glückwunsch Schnuffel

Icons nach dem Compilieren nicht mehr Vorhanden ?

Icons nach dem Compilieren nicht mehr Vorhanden ?

Viren ? BDS/Hupigon.Gen - DR/Delphi.Gen - BDS/Agent.bivc -BotGet.Ftp8.Gen

Unterschiede bei der Anzeige eines Compilierten Scriptes in Windows XP

Aus einer ListView ein Item mit Doppelklick herausnehmen

2D Array in GUICtrlCreateCombo oder GUICtrlCreateList

2D Array in GUICtrlCreateCombo oder GUICtrlCreateList

L3viathan hat Geburtstag

RegExp erstellen

RegExp erstellen

Überprüfung von Eingaben Sinnvoll

Überprüfung von Eingaben Sinnvoll

String Überprüfen

Benötige ein Script zum Pflegen der Benutzerdaten im ActiveDirectory