Beiträge von johny1099

  • Wert in GuiCtrlCreateCombo nicht veränderbar

    Hallo zusammen

    gibt es eine Möglichkeit eine Eingabe von zusätzlichen Werten im Combo Feld zu verhindern. Es sollen nur die Werte welche mit GuiCtrlSetData vorgegeben werden auswählbar sein. (Siehe Beispiel).

    Spoiler anzeigen

    #include <GUIConstantsEx.au3>

    Opt('MustDeclareVars', 1)

    Example()

    Func Example()
    Local $msg

    GUICreate("Meine GUI") ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird
    GUICtrlCreateButton("OK",10,50)
    GUICtrlCreateCombo("", 10, 10,100,100)

    GUICtrlSetData(-1, "Eintrag1|Eintrag2|Eintrag3", "Eintrag3")

    GUISetState() ; Zeigt das leere GUI-Fenster mit einem Bezug auf das Combosteuerelement

    ; die GUI läuft bis sie geschlossen wird
    While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
    EndFunc ;==>Example

  • Zusätzliche Event-Logs öffnen und löschen

    Hallo zusammen

    Frage zu Windows 7:

    ich benutze die Funktionen $hEventLog = _EventLog__Open("", "Application")
    _EventLog__Clear($hEventLog,"")

    Dies funktioniert einwandfrei , auch bei SYSTEM,SECURITY,SETUP.

    Ist es auch möglich unter dem TREE ==> Applications and Services Logs zu lesen und zu löschen. Ich habe bereits versucht folgende Einträge zu löschen mit folgendem Aufruf.

    $hEventLog = _EventLog__Open("", "Microsoft-Windows-Application-Experience/Program-Telemetry")
    _EventLog__Clear($hEventLog,"")

    Die Einträge werden aber nicht gelöscht. Hat jemand von euch dies schon mal versucht bzw. weiss jemand von euch ob dies möglich ist?

  • Alternative zu dsquery

    Hallo water

    also ich möchte prüfen ob ein bestimmtes Computerobject in der AD vorhanden ist, und wenn ja, sollte er mir den Pfad (OU) von dem gesuchten Computer anzeigen bzw. in eine Datei schreiben.

    Beispiel:dsquery computer -name %computername% >output.txt

  • Alternative zu dsquery

    Hallo zusammen

    ich suche eine Alternative zu folgendem Befehl:

    dsquery computer -name %Computername%

    Ich habe bereits gesucht und eine Funktion _AD_GetObjectsInOU.au3 gefunden. Kann mir bitte jemand helfen beim Aufruf dieser Funktion.

    Ich weiss leider nicht wie und welche Parameter ich übergeben muss. Für ein Example wäre ich sehr dankbar.

  • Harddisk Kapazität ermitteln

    Hallo Oscar, auch Dir vielen Dank für die schnelle Antwort.

    Ich habe das Script getestet und soweit ich das beurteile funktioniert es korrekt.

    Meine Harddisk ist 160 GB gross.
    Das Script liefert als Wert in der Variable $objItem.Size ==> 160038789120 zurück

    Kann ich diesen Wert immer umrechnen in GB, oder spielen auch die Spalten Bytes/Sektor bzw Anzahl Sektoren eine Rolle bei der Umrechnung?

    Welcher Wert wird momentan angezeigt (160038789120) Bit, Byte, Kilobyte??

  • Harddisk Kapazität ermitteln

    vielen Dank für die schnelle Beantwortung meiner Frage.

    gibt es keine AutoIt Funktion anstatt diskpart.exe bzw. list disk Commands?

    Das Problem ist ich möchte diese Informationen automatisiert durchführen lassen und die Grösse der Harddisk z.b in einer Variable speichern und danach weiter verarbeiten.

    MfG
    johny1099

  • Harddisk Kapazität ermitteln

    vielen Dank für die schnelle Beantwortung meiner Frage.

    Die Funktion DriveSpaceTotal() funktioniert einwandfrei bei einem installiertem Betriebssystem mit vorhandener Partition (Drive C:\)

    Ich hatte leider nicht erwähnt dass ich folgende Problemstellung habe.

    Ich habe einen PC mit dem ich unter Windows PE 3.0 boote. Die Harddisk ist zu diesem Zeitpunkt noch nicht partitioniert und hat daher noch keine Partitionsinformationen. Daher sind auch keine Laufwerke vorhanden.
    Gibt es eine Möglichkeit trotzdem die Harddiskgrösse zu ermitteln auch wenn keine Partitionen erstellt sind?

    Mfg
    johny1099

  • Progress Balken ohne Hintergrund

    Hallo zusammen

    gibt es eine Möglichkeit die Progressbar ohne den grauen Hintergrund anzuzeigen? Ich möchte die Progressbar in einem Formular verwenden aber nur
    Balken.


    ProgressOn("", "", "","","",1)
    For $i = 1 to 100 Step 10
    sleep(1000)
    ProgressSet( $i)
    Next
    ProgressSet(100 , "Done", "Complete")
    sleep(500)
    ProgressOff()

    Gruss
    johny

  • [Suche] Hat schon jemand die Installation für Microsoft Office 2007 Enterprise automatisiert?

    Die automatisierte Installation von Office 2007 kann mit einer Antwortdatei durchgeführt werden. Die Anwortdatei wird mit folgendem Befehl erstellt. ===> setup.exe /admin

    In der grafischen Oberfläche müssen folgende Einstellungen gemacht werden.

    1. Installationsspeicherort und Name der Organisation
    2. Lizenzierung und Benuteroberfläche (Product-Key,aktivieren von : Ich stimme den Bestimmungen des Lizenzvertrags zu.
    Anzeigeebene: vollständig (Standard), Modalen Dialog unterdrücken aktivieren, kein Abbrechen aktivieren
    3. Features Benutzereinstellungen ändern: (Word, Excel, Powerpoint etc) auswählen welche installiert werden sollen.
    4. Datei speichern unter: z.b Install_Office_2007.msp

    Danach kann mit folgendem Befehl die Installation automatisch ausgeführt werden.

    setup.exe /adminfile Install_Office2007.msp

  • Kopiervorgang im Listfeld anzeigen

    Hallo zusammen

    ich versuche einen Kopiervorgang (xcopy.exe) in einem Listfeld auszugeben. Es sollte jede Zeile des Kopiervorgangs angezeigt werden.(wie wenn ich es in einem CMD-Fenster ausführe)
    Leider funktioniert es nicht so wie ich gerne hätte. Kann mir bitte jemand dabei Unterstützung geben?

    [autoit]

    #include <Constants.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiListBox.au3>
    #include <ListBoxConstants.au3>
    #include <WindowsConstants.au3>

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

    Dim $array_1,$line
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 1000, 543, -1, 50)
    $grp_group1 = GUICtrlCreateGroup("",5,40,963,350)
    $list_list1 = GUICtrlCreateList("",10,60,950,420, BitOR($WS_BORDER, $WS_VSCROLL, $LBS_NOTIFY, $LBS_DISABLENOSCROLL, $WS_HSCROLL))

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

    Dim $run_cmd = "xcopy C:\Tools\AutoIt\*.* C:\Test\ /s /y"
    $run_query = Run(@ComSpec & " /c " & $run_cmd ,@SystemDir, @SW_SHOW, $STDERR_CHILD + $STDOUT_CHILD)

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    While ProcessExists("xcopy.exe")
    $line = StdoutRead($run_query)
    If $line <> "" Then
    _GUICtrlListBox_AddString ($list_list1, $line)
    EndIf
    WEnd

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

    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch

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

    WEnd

    [/autoit]

  • Anzeige im Listfeld ans Ende

    anbei der Quelltext

    Spoiler anzeigen

    #include <EditConstants.au3>
    #include <ListBoxConstants.au3>
    #include <GuiListBox.au3>
    #include <File.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    Dim $array_1,$suche_adressen,$string_logfile
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 1000, 543, -1, 50)
    $grp_group1 = GUICtrlCreateGroup("Liste der Adressen",5,40,963,350)
    $list_list1 = GUICtrlCreateList("",10,60,950,420, BitOR($WS_BORDER, $WS_VSCROLL, $LBS_NOTIFY, $LBS_DISABLENOSCROLL, $WS_HSCROLL))

    $button_listadressen = GUICtrlCreateButton("Adressen anzeigen",10,10,100,30)

    GUISetState(@SW_SHOW)

    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $button_listadressen
    GUICtrlSetLimit($list_list1,960)
    GUICtrlSetData($list_list1,"")
    _FileReadToArray(@ScriptDir & "\Adressen.txt",$array_1)
    For $i = 1 To UBound ($array_1) - 1
    _GUICtrlListBox_AddString ($list_list1, $array_1 [$i])
    Next

    EndSwitch

    WEnd

  • Anzeige im Listfeld ans Ende

    Hallo zusammen

    ich habe in meinem Formular ein Listfeld erstellt, welches ich benötige um Adressen anzuzeigen. Gibt es eine Möglichkeit wenn ich die Adressen in das Listfeld eingelesen haben, dass die Anzeige im Listfeld an das Ende der eingelesenen Adressen geht? Die Listfeldhöhe reicht nicht aus um alle Adressen auf einmal anzuzeigen, deswegen möchte ich gerne dass im Listfeld die lezten Adressen angezeigt werden und ich dann ggf. nach oben scrollen kann.