ahh jaaa ok ??? 
jetzt habe ich noch mehr fragezeichen als vorher?
Beiträge von subzero007
-
-
du hast nicht das gemeint oder?
[autoit]$pwdexpires = $date ("d", 30, $username.PasswordLastChanged)
[/autoit] -
Hey ich versuche es echt zu verstehen leider ist es bei mir so dunkel, kannst du mir noch ein tipp geben?
-
hallo habe ein Script gefunden was auch super läuft bloss einen fehler hat mit Password Expiration da er mit 90 rechnet wo kann ich das auf 30 tage umstellen?
er scheint ja die info nicht vom AD zu holen da die passwörter bei und alle 30 tage ablaufen kann mir jemand helfen mit dem BUG?
und mir sagen wie er das berechnet?Spoiler anzeigen
[autoit]; ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
;
; AutoIt Version: 3.1.0
; Author: A.N.Other <[email='myemail@nowhere.com'][/email]>
;
; Script Function:
; Template AutoIt script.
;
; ----------------------------------------------------------------------------; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <Misc.au3>Const $ADS_NAME_INITTYPE_GC = 3
[/autoit] [autoit][/autoit] [autoit]
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")EndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
EndIf
$UserObj = ""
$oMyError = ObjEvent("AutoIt.Error", "")
;COM Error function
Func ComError()
If IsObj($oMyError) Then
$HexNumber = Hex($oMyError.number,
SetError($HexNumber)
Else
SetError(1)
EndIf
Return 0
EndFunc ;==>ComErrorFunc Displayinfo()
[/autoit] [autoit][/autoit] [autoit]
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("90 Day 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
$Date = StringMid($lastchange, 5, 2) & "/" & StringMid($lastchange, 7, 2) & "/" & StringMid($lastchange, 1, 4)
$Time = StringMid($lastchange, 9, 2) & ":" & StringMid($lastchange, 11, 2) & ":" & StringMid($lastchange, 13, 2)
GUICtrlCreateLabel($Date & " " & $Time, 100, 460, 150, 20)
$pwdexpires = StringMid($lastchange, 5, 2) + 3 & "/" & StringMid($lastchange, 7, 2) & "/" & StringMid($lastchange, 1, 4)
GUICtrlCreateLabel($pwdexpires & ' ' & $Time, 100, 490, 150, 20)$lastlogin = $UserObj.LastLogin
[/autoit]
$Date = StringMid($lastlogin, 5, 2) & "/" & StringMid($lastlogin, 7, 2) & "/" & StringMid($lastlogin, 1, 4)
$Time = StringMid($lastlogin, 9, 2) & ":" & StringMid($lastlogin, 11, 2) & ":" & StringMid($lastlogin, 13, 2)
GUICtrlCreateLabel($Date & " " & $Time, 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 -
-
er schreibt mir alles in eine msg box auch alles was nicht mac: anfängt zb video:??
-
Super das habe ich soweit verstanden;
aber wie suche ich in txt nach der mac also nach dem string?? -
es läuf ein dienst auf allen pc die ein datei wegschreiben das kann ich nicht beeinflussen daher
muss ich die datei einlesen die der dienst zu verfügung stellt schön wäre es mit einer ini natürlich -
Hey,
also hier habe ich ja was gefunden.
[autoit]$file = FileOpen("test.txt", 0)
[/autoit][autoit][/autoit][autoit]; Prüfen, ob Datei eingelesen wurde
[/autoit][autoit][/autoit][autoit]
If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Exit
EndIf; Zeilen des Textes einlesen bis EOF
[/autoit][autoit][/autoit][autoit]
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
MsgBox(0, "Zeile gelesen:", $line)
WendFileClose($file)
[/autoit]Fileread line ist schonmal der ansatz aber habe echt keine idee was ich dann machen sollte bitte noch einen Tipp
-
wie ich ein imputfeld erstelle weiss ich, und wie ich die daten dort reinkriege mir geht es eingtlich darum
der text der ins inputfeld kommt aus einer txt wo diverse einträge sind wie auch zum beispiel die mac oder die ip .zb so
mac;01-13-E8-B8-47-15
ip;192.168.0.3wie kann ich inherhalb der txt suchen und das was nach mac; in das inputfeld schreiben?
-
wir haben auf allen rechner einen dienst laufen der alle daten ins netzt schreibt für jeden pc eine txt auf einem bestimmten laufwerk.
Ich bin doch dabei langsam autoit zu lernen, ich will mir ein Helpdesktool bauen
ich will falls der rechner offline ist also nicht erreichbar nicht im netz, die rechnerdaten aus der txt auslesen und dann in ein inputfeld wieder geben.
FileRead und GuiCtrlSetData habe ich bereits herausgefunden aber wie eine bestimmte stelle der txt in ein iputfeld? -
ei ne frage habe ich noch möchte einen bestimmten inhalt einer txt in ein eiputfeld schreiben;
zb.
in der datei pcscan.txt befinden sich folgende einträge
mac: 0c-13-E8-55-57-E5 "dieses soll in ein inputfeld"
ip:192.168.0.1 "dieses soll auch in ein seperates inputfeld wie mache ich das?" -
-
Hallo habe ine frage wie kann man den namen einer lisview ändern?
ich meine folgenden eintrag!
$hListview1 = GUICtrlCreateListView("%Ändern%", 24, 152, 146, 270)
Danke -
Problem gelöst Danke
aber kannst du mir trotdem sagen
was die Hauptschleife ist ?
und was dlibEnable? -
was ist genau die Hauptschleife?
Aund was ist ein dlibEnable? -
habe eine funktion geschrieben die den inhalt eine listview zählt und in einen label reinschreibt funktioniert ja auch wie es soll
Rufe es mit einem button auf,
wie kann ich es permanent laufen lassen, das er die ganze zeit zählen tut und nicht nur auf knopfdruckFunktion
[autoit]Func _count()
[/autoit]
$lv1count = _GUICtrlListView_GetItemCount($ListView1)
$lv2count = _GUICtrlListView_GetItemCount($ListView2)
$lv3count = _GUICtrlListView_GetItemCount($ListView3)
GUICtrlSetData($Label1, $lv1count)
GUICtrlSetData($Label2, $lv2count)
GUICtrlSetData($Label3, $lv3count)
EndFunc -
eine frage habe ich nebenbei
wie kann man den ein dienst neustaten oder beenden?
zur zeit mache ich es mit xnet -
Es läuft danke für deine hilfe.............................
eine aller letzte frage habe ich noch wollte in einem label die anzahl der clients schreiben
hast du eine idee wie ich die clients in der listview zählen kann und die anzahl in ein label packen kann? -
Wie würde man in einem beispiel einen Remote rechner Prüfen ob ein bestimmter dienst läuft??