Beiträge von subzero007

  • Listview Editbox

    wie kann man das einschränken das er nur einmal die zeile je block schreibt weil ,
    wenn der text zwischen den blöcken mehrer @crlf hat dann schreib er den text mehrmal rein.

    Habe da eine idee weiss aber nicht wie ich es machen sollte?
    falls mehrer zeilen abstände da sind das er sie reduziert auf 1 @CRLF dann würde es ja gehen oder dann würde er die zeile einmal schreiben oder?


    versprochen das ist das letzte was ich habe :)

    Edit1: (5h später)
    Finde leider auch nichts in der sufu hat jemand eine idee wie ich es vollenden kann?

    Edit2: (weitere 7,5h später)
    keiner ein tipp für mich ??

    bernd670: Beiträge zusammengefasst!

  • Listview Editbox

    Ivch glaube ich habe mich falsch ausgedrückt wir nutzen eine datei die die endung ini hat, dort sind steuerbefehle wie
    die instalation einer software zu laufen hat habe aber kein übliches ini datei format,
    daher hatte ich mit ini angefangen ist das möglich das was ich machen möchte mit dem format als beispiel wie in der txt
    bestimmte zeilen einfügen zwischen den blöcken??

  • Listview Editbox

    ok jetzt habe ich es verstanden danke

    lade mal folgende ini Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. "vorher umbennenen" in die edit box und versuche zeilen einzufügen der inhalt wird gelöscht ???

  • Listview Editbox

    danke danke:

    sobald ich eine datei reinladet mit mehreren blöcken und eine zeile einfügt löscht er den ganzen inhald der edit box???
    wenn nur ein block da ist alles ok

    hoffe du nimmst es mir nicht übel wegen @Gui_CtrlId weil ich es nicht verstanden habe??
    an welcher stelle kann ich den jetzt die zeile die ich einfüge nwollte editieren und nicht nur eine 5,6 oder 7 einfügen?? ?(

  • Listview Editbox

    Ok zwei fragen habe ich noch ;)

    Suppe jetzt klappe es habe es bloss nicht verstanden an welcher stelle du die 5,6,7, einfügst?
    woher weiss er das es die 5 sein muss? will ja meinen text einfügen weiss aber nicht wo?

    noch einen bug habe ich wenn ich mehrer zeiilen abstände habe sind teilweise unterschiedlich die @crlf zwischen den blöcken
    ich will maximal einmal die zeile einfügen geht das?

  • Symantec Version Checker

    Problem gelösst ;)
    war ein narren fehler traue mich nicht mal zu sagen was das problem war ;kein recht jetzt habe ich si und es klappt
    aber eine frage habbe ich wenn der remote pc aus dann liest doch die regread den lokalen aus oder?
    kann man das unterbinden oder abfangen?

  • Symantec Version Checker

    Ich glaube ich habe dich falsch verstanden:

    Spoiler anzeigen
    [autoit]

    #Include <Array.au3>

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

    Func _SymantecGetVersion()

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

    Local $Hostname = ""
    Local Const $NAVVersionKey = "HKEY_LOCAL_MACHINE\SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion"
    Local Const $NAVVersionValue = "ProductVersion"
    Local Const $NAVEngineKey = "HKEY_LOCAL_MACHINE\SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion"
    Local Const $NAVEngineValue = "ScanEngineVersion"
    Local Const $NAVDefinitionsKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\SharedDefs"
    Local Const $NAVDefinitionsValue = "NAVCORP_70"
    Local $NAVMajorVersion
    Local $NAVMinorVersion
    Local $strVersion
    Local $strEngine
    Local $strDefinitions
    Local $tmp, $tmp2, $tmp3
    Local $tmpArray

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

    $tmp = RegRead("\\" & $Hostname & "\" & $NAVVersionKey, $NAVVersionValue)
    $tmp2 = RegRead("\\" & $Hostname & "\" & $NAVEngineKey, $NAVEngineValue)
    $tmp3 = RegRead("\\" & $Hostname & "\" & $NAVDefinitionsKey, $NAVDefinitionsValue)

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

    If $tmp = "" Then
    $strVersion = "Unavailable"
    Else
    $NAVMinorVersion = Dec(StringLeft(Hex($tmp), 4))
    $NAVMajorVersion = StringSplit(Dec(StringRight(Hex($tmp), 4)),"")
    $strVersion = $NAVMajorVersion[1] & $NAVMajorVersion[2] & "." & $NAVMajorVersion[3] & "." & $NAVMajorVersion[4] & "." & $NAVMinorVersion
    EndIf
    If $tmp2 = "" Then
    $strEngine = "Unavailable"
    Else
    $strEngine = Dec(StringMid(Hex($tmp2), 1, 2)) & "." & Dec(StringMid(Hex($tmp2), 3, 2)) & "." & Dec(StringMid(Hex($tmp2), 5, 2)) & "." & Dec(StringMid(Hex($tmp2), 7, 2))
    EndIf
    If $tmp3 = "" Then
    $strDefinitions = "Unavailable"
    Else
    $tmpArray = StringSplit($tmp3, "\")
    $strDefinitions = StringMid($tmpArray[$tmpArray[0]], 7, 2) & "/" & StringMid($tmpArray[$tmpArray[0]], 5, 2) & "/" & StringMid($tmpArray[$tmpArray[0]], 1, 4) & " rev." & StringMid($tmpArray[$tmpArray[0]], 10, 3)
    EndIf
    Local $Array[3] = [$strDefinitions,$strVersion,$strEngine]
    Return $Array
    $arr2 = _SymantecGetVersion()
    $NAVMajorVersion = StringSplit(Dec(StringRight(Hex($tmp), 4)),"")
    _ArrayDisplay(NAVMajorVersion)
    EndFunc
    $arr2 = _SymantecGetVersion()

    If IsArray($arr2) Then
    msgbox(1,"","Definitions date: " & $arr2[0] & @CRLF & _
    "Software version: " & $arr2[1] & @CRLF & _
    "Engine version: " & $arr2[2])
    Else
    MsgBox(1,"","Failed with error code: " & $arr2)
    EndIf

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

    kriege folgenden fehler
    GUI4.au3(50,30) : ERROR: syntax error
    _ArrayDisplay(NAVMajorVersion)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    GUI4.au3(50,30) : ERROR: _ArrayDisplay() called with expression on Const ByRef-param(s).
    _ArrayDisplay(NAVMajorVersion)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    Array.au3(315,148) : REF: definition of _ArrayDisplay().
    Func _ArrayDisplay(Const ByRef $avArray, $sTitle = "Array: ListView Display", $iItemLimit = -1, $iTranspose = 0, $sSeparator = "", $sReplace = "|")
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    F:\autoit\entwicklung\symantec\GUI4.au3 - 2 error(s), 0 warning(s)

    in der registry habe ich auch geprüft ist alles indentisch ???

  • Symantec Version Checker

    Hallo,
    Habe bei einigen Clients eine fehlermeldung
    GUI.au3 (32) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
    $strVersion = $NAVMajorVersion[1] & $NAVMajorVersion[2] & "." & $NAVMajorVersion[3] & "." & $NAVMajorVersion[4] & "." & $NAVMinorVersion
    $strVersion = $NAVMajorVersion[1] & $NAVMajorVersion[2] & "." & $NAVMajorVersion[3] & "." & ^ ERROR
    ->11:55:57 AutoIT3.exe ended.rc:1

    Bei anderen gehts eine idee?

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _SymantecGetVersion()

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

    Local $Hostname = ""
    Local Const $NAVVersionKey = "HKEY_LOCAL_MACHINE\SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion"
    Local Const $NAVVersionValue = "ProductVersion"
    Local Const $NAVEngineKey = "HKEY_LOCAL_MACHINE\SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion"
    Local Const $NAVEngineValue = "ScanEngineVersion"
    Local Const $NAVDefinitionsKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\SharedDefs"
    Local Const $NAVDefinitionsValue = "NAVCORP_70"
    Local $NAVMajorVersion
    Local $NAVMinorVersion
    Local $strVersion
    Local $strEngine
    Local $strDefinitions
    Local $tmp, $tmp2, $tmp3
    Local $tmpArray

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

    $tmp = RegRead("\\" & $Hostname & "\" & $NAVVersionKey, $NAVVersionValue)
    $tmp2 = RegRead("\\" & $Hostname & "\" & $NAVEngineKey, $NAVEngineValue)
    $tmp3 = RegRead("\\" & $Hostname & "\" & $NAVDefinitionsKey, $NAVDefinitionsValue)

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

    If $tmp = "" Then
    $strVersion = "Unavailable"
    Else
    $NAVMinorVersion = Dec(StringLeft(Hex($tmp), 4))
    $NAVMajorVersion = StringSplit(Dec(StringRight(Hex($tmp), 4)),"")
    $strVersion = $NAVMajorVersion[1] & $NAVMajorVersion[2] & "." & $NAVMajorVersion[3] & "." & $NAVMajorVersion[4] & "." & $NAVMinorVersion
    EndIf
    If $tmp2 = "" Then
    $strEngine = "Unavailable"
    Else
    $strEngine = Dec(StringMid(Hex($tmp2), 1, 2)) & "." & Dec(StringMid(Hex($tmp2), 3, 2)) & "." & Dec(StringMid(Hex($tmp2), 5, 2)) & "." & Dec(StringMid(Hex($tmp2), 7, 2))
    EndIf
    If $tmp3 = "" Then
    $strDefinitions = "Unavailable"
    Else
    $tmpArray = StringSplit($tmp3, "\")
    $strDefinitions = StringMid($tmpArray[$tmpArray[0]], 7, 2) & "/" & StringMid($tmpArray[$tmpArray[0]], 5, 2) & "/" & StringMid($tmpArray[$tmpArray[0]], 1, 4) & " rev." & StringMid($tmpArray[$tmpArray[0]], 10, 3)
    EndIf
    Local $Array[3] = [$strDefinitions,$strVersion,$strEngine]
    Return $Array
    EndFunc

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

    $arr2 = _SymantecGetVersion()

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

    If IsArray($arr2) Then
    msgbox(1,"","Definitions date: " & $arr2[0] & @CRLF & _
    "Software version: " & $arr2[1] & @CRLF & _
    "Engine version: " & $arr2[2])
    Else
    MsgBox(1,"","Failed with error code: " & $arr2)
    EndIf

    [/autoit]

  • Listview Editbox

    Danke erstmall für die Vielen Antworten : Danke Danke Danke ;)

    habe ein ein Problem das er nur wo der Courser ist die zeile einfügt er soll ja die lücke herausfinden und dort die zeile einfügen,
    habe versucht es in der txt zu beschreiben: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Hat jemand eine idee?

    ein habe ich nicht verstanden wo in der dieser funktion fügst du die zahlen ein,6,7,8 ein???? ?( :

    [autoit]

    Func _insLine()
    BlockInput(1)
    ControlFocus($Form1,"",$Edit1)
    Send(@Gui_CtrlId)
    BlockInput(0)
    EndFunc

    [/autoit]

    Edit: (3h später)
    keiner eine idee?

    bernd670: Beiträge zusammengefasst!

  • Listview Editbox

    Hallo habe wiedermal was vor und brauche eine start hilfe;
    Soll ugefähr so aussehen. Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    In die Listview will ich einen inhalt eines Ordners Anzeigen lassen *.ini
    nach dem klick auf einen eintrag in der listview soll es in der editbox dargestellt werden und editierbar sein.

    die ini dateien sind in blöcken aufgeteilt also text @crlf dann wieder text @crlf die anzahl der blöcke ist unterschiedlich.
    ich will über die Buttons zeile einfügen fest definierte zeilen einfügen "da wo sich die @crlf befinden" also die lücken zwischen den blöcken
    Speichern button soll an einen fest definierten ort die datei speichernLöschen ist klar inhalt der edit löschen.
    würde mich über eine start hilfe sehr freuen

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 633, 447, 192, 124)
    $Edit1 = GUICtrlCreateEdit("", 88, 48, 249, 280)
    GUICtrlSetData(-1, "Edit1")
    $ListView1 = GUICtrlCreateListView("", 344, 48, 250, 280)
    $Zeile_x_einfugen = GUICtrlCreateButton("Zeile_x_einfugen", 0, 88, 91, 25, $WS_GROUP)
    $Zeile_yeinfugen = GUICtrlCreateButton("Zeile_y_einfugen", 1, 114, 91, 25, $WS_GROUP)
    $Zeile_z_einfugen = GUICtrlCreateButton("Zeile_z_einfugen", 0, 136, 91, 25, $WS_GROUP)
    $Ordnerinhalt_Listview = GUICtrlCreateLabel("Ordnerinhalt_Listview", 360, 24, 178, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $DATEI_EDIT = GUICtrlCreateLabel("DATEI_EDIT", 136, 24, 67, 17)
    $Speichern = GUICtrlCreateButton("Speichern", 112, 328, 75, 25, $WS_GROUP)
    $Edit_loeschen = GUICtrlCreateButton("Edit_loeschen", 184, 328, 75, 25, $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]

    EndSwitch
    WEnd

    [/autoit]


    Danke

  • AD Password Expiration

    Das habe ich ja bereits gemacht habe die include date.au3 genommen

    dann kommt folgende meldung':
    *.au3(141,41) : WARNING: $numDays: possibly used before declaration.
    $pwdexpires = _DateAdd("d", $numDays,
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    *.au3(141,41) : ERROR: $numDays: undeclared global variable.
    $pwdexpires = _DateAdd("d", $numDays,
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    *.au3 - 1 error(s), 1 warning(s)

  • AD Password Expiration

    Hoffe ich habe das so gemacht wie du es beschrieben hast ;)

    kriege den fehler:
    *.au3(139,41) : WARNING: $numDays: possibly used before declaration.
    $pwdexpires = _DateAdd("d", $numDays,
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    *.au3(139,41) : ERROR: $numDays: undeclared global variable.
    $pwdexpires = _DateAdd("d", $numDays,
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    *.au3(139,80) : ERROR: _DateAdd(): undefined function.
    $pwdexpires = _DateAdd("d", $numDays, _ADDate($UserObj.PasswordLastChanged))
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    *.au3 - 2 error(s), 1 warning(s)

    Und so sieht mein script aus...

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.0.0
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here

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

    ; ----------------------------------------------------------------------------
    ;
    ; AutoIt Version: 3.1.0
    ; Author: A.N.Other <[email='myemail@nowhere.com'][/email]>
    ;
    ; Script Function:
    ; Template AutoIt script.
    ;
    ; ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here

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

    #include <GUIConstants.au3>
    #include <Misc.au3>

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

    Const $ADS_NAME_INITTYPE_GC = 3
    Const $ADS_NAME_TYPE_NT4 = 3
    Const $ADS_NAME_TYPE_1779 = 1
    Dim $unlock
    Dim $mgrvalue
    Dim $mgrsplit
    Dim $manager
    Dim $mgr
    Dim $title
    Dim $pwdexpires
    $username = InputBox("Username", "Please input a username:")
    If @error Then Exit
    $oMyError = ObjEvent("AutoIt.Error", "ComError")
    $objRootDSE = ObjGet("LDAP://RootDSE")
    If @error Then
    MsgBox(0, 'username', 'Username does not exist or not able to communicate with ' & @LogonDomain)
    Else
    ; DNS domain name.
    $objTrans = ObjCreate("NameTranslate")
    $objTrans.Init ($ADS_NAME_INITTYPE_GC, "")
    $objTrans.Set ($ADS_NAME_TYPE_1779, @LogonDomain)
    $objTrans.Set ($ADS_NAME_TYPE_NT4, @LogonDomain & "\" & $username)
    $strUserDN = $objTrans.Get ($ADS_NAME_TYPE_1779)
    $UserObj = ObjGet("LDAP://" & $strUserDN)
    If @error Then
    MsgBox(0, 'username', 'Username does not exist or not able to communicate with ' & @LogonDomain)
    Else
    Call("Displayinfo")

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

    EndIf
    EndIf
    $UserObj = ""
    $oMyError = ObjEvent("AutoIt.Error", "")
    ;COM Error function
    Func ComError()
    If IsObj($oMyError) Then
    $HexNumber = Hex($oMyError.number, 8)
    SetError($HexNumber)
    Else
    SetError(1)
    EndIf
    Return 0
    EndFunc ;==>ComError

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

    Func Displayinfo()
    GUICreate("Active Directory Information", 500, 600, 300, 300)

    GUICtrlCreateLabel("Username: ", 10, 10, 60, 20)
    GUICtrlCreateLabel("First Name: ", 10, 30, 60, 20)
    GUICtrlCreateLabel("Last Name: ", 200, 30, 60, 20)
    GUICtrlCreateLabel("Display Name: ", 10, 50, 100, 20)
    GUICtrlCreateLabel("Title: ", 10, 70, 100, 20)
    GUICtrlCreateLabel("Manager: ", 10, 90, 100, 20)
    GUICtrlCreateLabel("Description: ", 10, 150, 100, 20)
    GUICtrlCreateLabel("Office: ", 10, 190, 60, 20)
    GUICtrlCreateLabel("Department: ", 10, 250, 100, 20)
    GUICtrlCreateLabel("Telephone Number: ", 10, 290, 90, 40)
    GUICtrlCreateLabel("Mobile Number: ", 10, 320, 100, 20)
    GUICtrlCreateLabel("Home Number: ", 10, 350, 100, 20)
    GUICtrlCreateLabel("Email Address: ", 10, 370, 100, 20)
    GUICtrlCreateLabel("Logon Script: ", 10, 410, 100, 20)
    GUICtrlCreateLabel("Account:", 10, 430, 100, 20)
    GUICtrlCreateLabel("Number of bad logon attempts since last reset: ", 310, 420, 120, 40)
    GUICtrlCreateLabel("Password Last Changed: ", 10, 460, 100, 40)
    GUICtrlCreateLabel("Password Expiration: ", 10, 490, 100, 40)
    GUICtrlCreateLabel("Last Logon: ", 10, 540, 100, 20)

    $font = "Tahoma"
    GUISetFont(9, 600, $font) ; will display underlined characters
    $unlock = GUICtrlCreateButton("UNLOCK Account", 180, 425, 120, 25)
    GUICtrlSetState($unlock, $Gui_Disable)
    GUICtrlCreateLabel('' & $username, 100, 10, 100, 20)
    GUICtrlSetColor(-1, 0x0000CC) ; Blue
    GUICtrlCreateLabel('' & $UserObj.FirstName, 100, 30, 100, 20)
    GUICtrlCreateLabel('' & $UserObj.LastName, 300, 30, 100, 20)
    GUICtrlCreateLabel('' & $UserObj.FullName, 100, 50, 300, 20)
    GUICtrlCreateLabel('' & $UserObj.Title, 100, 70, 100, 20)
    $title = GUICtrlRead($title)
    If $title = 0 Then
    GUICtrlCreateLabel('', 100, 70, 100, 20)
    EndIf

    $mgr = GUICtrlCreateLabel('' & $UserObj.Manager, 100, 90, 400, 70)
    $mgrvalue = GUICtrlRead($mgr)
    $mgrsplit = StringSplit("" & $mgrvalue, ",")
    $manager = StringTrimLeft('' & $mgrsplit[1], 3)
    GUICtrlCreateLabel('' & $manager, 100, 90, 400, 70)
    GUICtrlCreateLabel('' & $UserObj.Description, 100, 150, 300, 40)
    GUICtrlCreateLabel('' & $UserObj.physicalDeliveryOfficeName, 100, 190, 100, 50)
    GUICtrlCreateLabel('' & $UserObj.Department, 100, 250, 200, 20)
    GUICtrlCreateLabel('' & $UserObj.TelephoneNumber, 100, 300, 250, 20)
    GUICtrlCreateLabel('' & $UserObj.TelephoneMobile, 100, 320, 250, 20)
    GUICtrlCreateLabel('' & $UserObj.TelephoneHome, 120, 350, 250, 20)
    GUICtrlCreateLabel('' & $UserObj.EmailAddress, 100, 370, 300, 20)
    GUICtrlCreateLabel('' & $UserObj.LoginScript, 100, 410, 200, 15)
    $userlocked = GUICtrlCreateLabel("?????", 100, 430, 80, 15)
    If Not $UserObj.IsAccountLocked Then
    GUICtrlSetData($userlocked,"NOT Locked")
    GUICtrlSetBkColor($userlocked, 0x00ff00);Green
    GUICtrlSetState($unlock, $Gui_Disable)
    Else
    GUICtrlSetData($userlocked,"Locked")
    GUICtrlSetBkColor($userlocked, 0xff0000) ; Red
    GUICtrlSetState($unlock, $Gui_Enable)
    EndIf
    $lastchange = $UserObj.PasswordLastChanged
    GUICtrlCreateLabel(_ADDate($lastchange), 100, 460, 150, 20)
    $oDomain = ObjGet("LDAP://" & @LogonDomain)
    $maxPwdAge = $oDomain.Get("maxPwdAge")
    $pwdexpires = _DateAdd("d", $numDays, _ADDate($UserObj.PasswordLastChanged))
    GUICtrlCreateLabel(_ADDate($pwdexpires), 100, 490, 150, 20)

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

    $lastlogin = $UserObj.LastLogin

    GUICtrlCreateLabel(_ADDate($lastlogin), 100, 540, 150, 20)
    $badlogin = GUICtrlCreateLabel("" & $UserObj.BadLoginCount, 430, 430, 20, 15)
    If GUICtrlRead($badlogin) = 0 Then
    GUICtrlSetBkColor(-1, 0x00ff00);Green
    Else
    GUICtrlSetBkColor(-1, 0xff0000) ; Red
    EndIf

    GUISetState()

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $unlock
    If $UserObj.IsAccountLocked Then
    $UserObj.IsAccountLocked = False
    $UserObj.SetInfo
    Sleep(500)
    If Not $UserObj.IsAccountLocked Then
    GUICtrlSetData($userlocked,"NOT Locked")
    GUICtrlSetBkColor($userlocked, 0x00ff00);Green
    GUICtrlSetState($unlock, $Gui_Disable)
    Else
    GUICtrlSetData($userlocked,"Locked")
    GUICtrlSetBkColor($userlocked, 0xff0000) ; Red
    GUICtrlSetState($unlock, $Gui_Enable)
    EndIf
    GUICtrlSetData($badlogin,$UserObj.BadLoginCount)
    If GUICtrlRead($badlogin) = 0 Then
    GUICtrlSetBkColor(-1, 0x00ff00);Green
    Else
    GUICtrlSetBkColor(-1, 0xff0000) ; Red
    EndIf
    EndIf
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd


    EndFunc ;==>Displayinfo
    Func _ADDate($Date)
    Return StringRegExpReplace($Date, "(\d{4})(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)", "\1/\2/\3 \4:\5:\6")
    EndFunc

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

  • AD Password Expiration

    Ja da ist es gut beschrieben aber wolle wie auf position 1 dieses infofenster nutzen wo auch alle anderen informationen zum user stehen.
    kannst du mir am script in Position 1 ein tipp geben und helfen würde mich sehr freuen ;)
    ich stelle ja auch nicht mehr soviele fragen wie am anfang ;)

    Edit:
    wäre für jedehilfe sehr dankbar komme einfach nicht weiter???

    bernd670: Beiträge zusammengefasst!