Beiträge von Pitter

  • Problem mit _FTP_FilePut()

    Moin zusammen,

    ich habe da gerade ein seltsames Problem mit dieser Funktion.
    Diese Func:

    Spoiler anzeigen
    [autoit]


    Func ScreenshotCopy()
    $slot = $slotname1
    _FTP_DirSetCurrent($Conn, $slot)
    If @error Then
    MsgBox(16, "FTP-Error", "No FTP connection to" & @CRLF & $slot & " possible!")
    EndIf

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

    If FileExists(@ScriptDir & "\Settings\screenshot.exe") Then
    If _FTP_FilePut($Conn, @ScriptDir & "\Settings\Screenshot.exe", $slot & "\Screenshot.exe") Then
    Consolewrite("Screenshot.exe erfolgreich kopiert" & @CRLF)
    GUICtrlSetState($screenButton, $GUI_ENABLE)
    GUICtrlSetBkColor(-1, 0x00FF00) ;### > >
    else
    MsgBox(16, "FTP-Error", "Could not copy Screenshot.exe to: " & @CRLF & $slot & " !")
    EndIf
    Else
    MsgBox(16, "Copy error", "No screenshot.exe in script folder." _
    & " Please be shure, that all neccassary files have been copied to your desktop!")
    EndIf
    EndFunc ;==>ScreenshotCopy

    [/autoit]


    soll mir eine Screenshot.exe per FTP auf ein anderes Gerät kopieren...
    Das funktioniert aber nicht richtig, die Func kommt nicht aus dem _FTP_FilePut() raus, sondern bleibt da hängen.
    Die Consolenausgabe kommt nämlich nciht, sondern die App hängt sich weg.
    Auf dem Gerät habe ich dann zwar eine Screenshot.exe, diese hat aber 0 Bytes.

    Kopieren per Drag&Drop per FileZilla funktionert....

    Seht Ihr da einen Fehler im Script, oder könnte das die Firewall sein???

  • User Eingabe auf Remote-Maschine

    Zitat von water


    tl;dr

    Ich gehe mal davon aus, dass es sich um AD Benutzerkonten handelt. Wir legen Accounts mit einem Standardpasswort an und setzen das Flag "Benutzer muss beim nächsten Logon das Passwort ändern".
    Sollte er das Passwort vergessen etc. dann machen wir die selbe Prozedur nochmals d.h. setzen das Passwort auf das Standardpasswort zurück.
    So kommen wir nie in Verlegenheit die Passworte des Benutzers kennen zu müssen.

    Diese Geschichte lässt sich in einem 10-Zeiler mit meinem AD UDF umsetzen.

    So und nicht anders ist auch das Standart-Procedere.
    Userpasswort hat beim Admin eigentlich nix zu suchen, sondern nur beim User...

  • DeepRed92's Install Creator (in Arbeit)

    Ich würde mir noch eine Treibereinbindung wünschen, die evtl. benötigte Treiber bei der Installation entsprechend des OS und CPU-Architektur installiert.

    Das würde dann möglicherweise auch zum Neustart des OS führen müssen, um die Installation abzuschliessen...

    Ansonsten... :thumbup:

  • Alternative zu Telnet?

    Hallo zusammen,

    hab da ein Problem, bei dem ich Hilfe benötige....

    Ich habe ein Gerät, was über USB to LAN am PC angeschlossen wird mittels Adapter.
    Das Gerät selber hat eine feste IP-Adresse, die LAN-Adapter sind installiert und haben eineen (leider) von PC zu PC unterschiedlichen COM-Port installiert, aber eine feste BAUDrate.
    Auf den PC sind die LAN-Adapter immer installiert, sodass die Telnet-Verbindung immer funktioniert... halt mit aufpoppenden DOS-Boxen.

    Was mache ich zur Zeit:

    Spoiler anzeigen
    [autoit]

    Func _telnet()
    ; Run Telnet
    $adress = '192.168.1.4'
    $WinTitle = "Telnet connection to target <<- Telnet ->>"
    If Not WinExists($WinTitle, "") Then
    Local $telnet = Run("telnet " & $adress, @SystemDir)
    If @error <> 0 Then
    TelnetError()
    EndIf
    WinWait("Telnet " & $adress, "", 1)

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

    ;======= Rename window
    WinSetTitle("Telnet " & $adress, "", $WinTitle)
    WinMove($WinTitle, "", 0, 0, 30, 30)
    Else
    GUICtrlSetState($FormatButton, $GUI_DISABLE)
    EndIf
    EndFunc ;==>_telnet

    [/autoit]


    Dann spreche ich das Gerät über Telnet an, um auf dem Gerät BAT-Dateien auszuführen:

    Spoiler anzeigen
    [autoit]

    Func _format_script()
    If (WinActivate($WinTitle) = 0) Then
    _telnet()
    ; MsgBox(48, "Attention", "No Telnet connection found!")
    Else
    xSend($WinTitle, "cd sdcard0" & "{ENTER}")
    xSend($WinTitle, "format_script.bat " & "{ENTER}")
    Sleep(100)
    EndIf
    EndFunc ;==>_format_script

    [/autoit]

    Ihr könnt Euch denken, dass mir das (funktionierende) Script so nicht gefällt.
    Die Ausgaben, die eigentlich auf der DOS-Box kommen, sollten über GUICtrlSetData() in meiner Textbox sichtbar werden...

    Irgendwo hatte ich gelesen, dass man das über den COM-Port direkt machen kann, aber da kriege ich keinen Kopf dran...
    Kann mir da mal bitte einer helfen??? ?(

  • Mini "Datenbank" (z.B. zum Hardwarebestand verwalten)

    Das ist doch kein Child, sondern eine MsgBox. ;)
    Die Messagebox wird immer zentriert auf dem Bildschirm.

    [autoit]

    MsgBox(4,"Info:","Möchten Sie wirklich den Datensatz wirklich " & $s_Info_Msg1 & @CRLF & $s_Info_Msg2)

    [/autoit]

    Alternativ kannst du eine Mesage-GUI als Child zur $_Gui_Main erstellen, die Du dann selber so setzen kannst, wie Du magst.

  • Stringlänge eines zusammengesetzten Strings begrenzen

    Moin zusammen...

    Bin geraade mal wieder total beschränkt, was meine Denkfähigkeit betrifft...

    Ich habe einen längenvariablen String
    Ich habe eine maximale Eingabelänge, die keinesfalls 34 Zeichen übersteigen darf, aber auch nciht kürzer sein darf.
    Um dies zu erreichen benutze ich Underscores.

    das Ergebnis soll dann so aussehen (34 Zeichen):
    [Das was ausgegeben wird]_________

    Der String: [Das was ausgegeben wird] kann aber kürzer, oder länger sein.

    Folgender Ansatz:

    [autoit]


    local $underscore = StringLen($sw_version) ;### $sw_version wird aus der INI gelesen und stelle die Länge des Strings fest
    local $newunderscore = (34-$underscore) ;### berechne die max. erlaubte Länge des Strings minus Länge des Strings
    FileWrite ($setfile1,StringTrimRight (("[" & $sw_version & "]" & "_________________"),($newunderscore)) ;### Schreibe den String mit der notwendigen Menge an Underscores in das Textfile

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

    Wo ist da mein Denkfehler??? ?(


    Edit:
    Ich sag ja... man steht im Wald und sieht die Bäume nicht.
    Raupi hat mir das in der SB beantwortet.

    FileWrite ($setfile1,StringLeft("[" & $sw_version & "]" & "________________________",34))

    ...und dann tut das...

  • Password unter XP ändern

    Noch aus der alten Schule... Versuch mal eine Batch-Datei mit folgendem Inhalt:

    Code
    set "user=Dein Username"
set "pw=Dein neues Passwort"
net user %user% "%pw%"

    Usernamen ersetzen, neues Passwort einsetzen.
    Datei speichern als Passwort.bat (oder so) und mit Doppelklick ausführen.

    Selbstverständlich sollte das auch über eine GUI bzw AutoIt darstellbar sein.

    Geht natürlich nur, Kontorichtlinien für die Vergabe von Passwörtern beachtest.... ;)

  • OrganizeIncludes endet mit Fehler

    Hallo zusammen,

    hab schon die suche bemüht, aber nichts passendes finden können.

    Hab in den richtigen Ordner entpackt: C:\Program Files\AutoIt3\SciTE\OrganizeIncludes
    Meine SCiTEUser.properties sieht so aus:

    Spoiler anzeigen
    [autoit]


    <snip>
    style.au3.15=fore:#0080FF,back:#ffffff
    # END => DO NOT CHANGE ANYTHING BEFORE THIS LINE #-#-#-#-#-#
    #-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#

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

    ContinuousComment.LFpos.*.au3=170
    ContinuousComment.Chars.*.au3=;###
    ContinuousComment.BreakCharsLast.*.au3=>
    ContinuousComment.BreakCharsNext.*.au3=>

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

    # 36 Comment Continuous
    command.name.49.*=Kommentarmodus aktivieren
    command.49.*=CommentModeActivate
    command.mode.49.*=subsystem:lua,savebefore:no
    command.shortcut.49.*=Ctrl+Shift+K

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

    # 37 OrganizeIncludes
    command.37.*.au3="$(autoit3dir)\autoit3.exe" "$(SciteDefaultHome)\OrganizeIncludes\OI_1.0.0.50.au3" "$(FilePath)"
    command.name.37.*.au3=OrganizeIncludes
    command.save.before.37.*.au3=1
    command.is.filter.37.*.au3=1
    command.shortcut.37.*.au3=Ctrl+Shift+Alt+I
    </snap>

    [/autoit]

    Beim Ausführen bekomme ich in der Konsole folgende Ausgabe:

    [autoit]


    >"\autoit3.exe" "C:\Program Files\AutoIt3\SciTE\OrganizeIncludes\OI_1.0.0.50.au3" "C:\Documents and Settings\Pitter\Desktop\EB-Testreport\V1.3\EB-testreport.au3"
    The filename, directory name, or volume label syntax is incorrect.
    >Exit code: 1 Time: 0.208

    [/autoit]

    ?(

    Was ist denn da los? Any hints?

    Edit: C:\Program Files\AutoIt3\SciTE\OrganizeIncludes\OI_1.0.0.50.au3" Pfad ist OK
    "C:\Documents and Settings\Pitter\Desktop\EB-Testreport\V1.3\EB-testreport.au3" Pfad ist auch OK

    Edit2:

    Hab den Fehler nach längerer Suche doch noch fixen können... Sieh HIER

  • Menu-Fehler

    Sorry Jungs...

    Wenn man natürlich vergisst, die Konstante richtig zu setzen, kann das auch nicht funktionieren.
    Da fehlte natürlich noch

    Global Enum $hHelp = 1000

    Oh... peinlich...