Beiträge von Camulus

  • Dateien auswählen und in eine ini schreiben

    erledigt hat es sich noch nicht, aber ein paar Denkanstösse hab ich.

    Momentan siehts so aus:

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_outfile=OTRS-Backup.exe
    #AutoIt3Wrapper_AU3Check_Parameters= -q
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.2.0
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

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

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

    ; Script Start - Add your code below here
    ;############################################################################################################################################################

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

    ; Wechsle in den OnEvent Modus
    Opt("GUIOnEventMode", 1)

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

    ;~ GUICtrlSetOnEvent($btn_AddFile, "_AddFile")

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

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=C:\Users\b.wagener\Desktop\OTRS Update Tool\Mainform.kxf
    $Form1 = GUICreate("OTRS BackupRestore", 595, 643, 192, 124)
    $Label1 = GUICtrlCreateLabel("OTRS Pfad", 40, 88, 69, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "Arial")
    $btn_OTRSPfad = GUICtrlCreateButton("Suchen", 400, 88, 131, 25, $WS_GROUP)
    $Label2 = GUICtrlCreateLabel("Backup Pfad", 40, 134, 78, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "Arial")
    $btn_backupPfad = GUICtrlCreateButton("Suchen", 400, 134, 131, 25, $WS_GROUP)
    $Edit_dir = GUICtrlCreateEdit("", 40, 216, 353, 137)
    GUICtrlSetData(-1, "Edit_dir")
    $btn_AddDir = GUICtrlCreateButton("Hinzufügen", 400, 216, 131, 25, $WS_GROUP)
    $edit_files = GUICtrlCreateEdit("", 40, 411, 353, 137)
    $btn_AddFile = GUICtrlCreateButton("Hinzufügen", 400, 411, 131, 25, $WS_GROUP)
    GUICtrlSetOnEvent($btn_AddFile, "_AddFile")
    $Label5 = GUICtrlCreateLabel("Verzeichnisse", 40, 192, 69, 17)
    $Label6 = GUICtrlCreateLabel("Dateien", 40, 388, 41, 17)
    $Input1 = GUICtrlCreateInput("Input1", 136, 88, 241, 21)
    $Input2 = GUICtrlCreateInput("Input2", 136, 136, 241, 21)
    $Button2 = GUICtrlCreateButton("Backup", 120, 584, 120, 25, $WS_GROUP)
    $Button3 = GUICtrlCreateButton("Restore", 353, 583, 120, 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] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ;############################################################################################################################################################################################################################
    Func _AddFile()

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

    ;~ $Path1 = FileOpenDialog("Suchen...", @HomeDrive, "Alle Dateien (*.*)", 3)
    ;~ If $Path1 <> "" Then IniWrite("Config.ini", "FILE", "1", $Path1)
    ;~ GUICtrlSetData($edit_files, $Path1)

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

    $index =1

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

    $Path1 = FileOpenDialog("Suchen...", @HomeDrive, "Alle Dateien (*.*)", 3)
    If $Path1 Then
    IniWrite(@ScriptDir & "\Config.ini", "FILE", $Index, $Path1)
    $Index = $index+ 1
    $Inhalt= IniRead(@ScriptDir & "\Config.ini", "FILE","","nix da")
    GUICtrlSetData($edit_files, $Inhalt)
    EndIf

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

    EndFunc
    ;############################################################################################################################################################################################################################

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

    Tut aber noch nicht was es soll.
    Es geht um unser Ticketsystem, dass mal Upgedatet werden müsset aber ein paar Dateien müssen dann vorher weggesichert und nachher wieder hergestellt werden.
    Diese Dateien können sich aber auch ändern, deswegen wollt eich eine "universelle" Lösung.
    Ein Formular in dem man sich die Dateien zusammenklicken kann. Deswegen dachte ich ne ini- Datei in der dann die zu sichernden Dateien stehen die ich dann nachher auslese und in ein Verzeichnis kopiere.

    Für bessere Vorschläge bin ich natürlich auch dankbar. :)

  • Dateien auswählen und in eine ini schreiben

    doch noch nicht genaz gelöst:-(

    ich hab mir jetzt eine funtion gebastelt:

    [autoit]

    Func _AddFile()

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

    $Path1 = FileOpenDialog("Suchen...", @HomeDrive, "Alle Dateien (*.*)", 3)
    If $Path1 <> "" Then IniWrite("Config.ini", "FILE", "1", $Path1)
    GUICtrlSetData($edit_files, $Path1)

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

    EndFunc

    [/autoit]

    Das klappt auch... aber eben nur einmal.
    Wie springe ich denn in die nächste Zeile der Ini-Datei und füge das nächste File hinzu?

  • Dateien auswählen und in eine ini schreiben

    Da gibts ja noch nix:-)

    Aber ich hab eben was gefunden:

    [autoit]

    GUICreate("Beispiel", 380, 40)
    GUISetBkColor(0xFFFFFF)
    $Input = GUICtrlCreateInput(IniRead("Config.ini", "Datei", "1", ""), 10, 10, 250, 21)
    $Button = GUICtrlCreateButton("Durchsuchen", 270, 8, 100, 25)
    GUISetState()

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

    Do
    $nMsg = GUIGetMsg()
    If $nMsg == $Button Then
    $Path1 = FileOpenDialog("Suchen...", @HomeDrive, "Alle Dateien (*.*)", 3)
    If $Path1 <> "" Then IniWrite("Config.ini", "Datei", "1", $Path1)
    GUICtrlSetData($Input, $Path1)
    EndIf

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

    Sleep(10)
    Until $nMsg == -3

    [/autoit]

    Das stricke ich mir ein bißchen um

  • Dateien auswählen und in eine ini schreiben

    Hallo,

    ich bin dabei ein kleines Updatetool für unser Ticketsystem zu bauen.

    Ich hätte gerne ein Formular in dem man die zu sichernden Datein auswählen kann und die dann alle zusammen nachher in einen bestimmten Ordner kopiert werden.

    Bis jetzt habe ich ein Formular mit einem Edit Feld in dem nachher die Dateien und Verzeichnisse (inkl. Pfad stehen) die gesichert werden sollen.
    Die Idee war jetzt ein Button "hinzufügen" mit dem man in den Pfad navigieren kann und die Datei zur Liste hinzufügen kann.
    Die Liste selber wollte ich in eine ini-Datei schreiben.
    Jetzt weiss ich nur nicht wie ich die Dateien da rein bekomme:-)

  • Traytip nur mit Adminrechten

    Hi,
    ich habe heute mal wieder eine Entdeckung gemacht. ich habe ein Script dass ein Traytip anzeigt. Dummerweise nur wenn ein User mit Adminrechten angemeldet ist. Ist das normal oder ist das ein Problem bei uns? Der einzige den ich hier fragen könnte ist nicht greifbar, aber ein anderer Kollege hatte solche Probleme auch schon. Kennt das jemand? Wo muss man da suchen? Vielleicht GPO?

  • Windows 7 Netzwerkverbindungen

    Hi,
    weiss jemand wo Windows7 seine Netzwerkverbindungen speichert?
    Ich bekomme die ganzen WLAN Netze hier angezeigt und meine UMTS Karte aber in der rasphone.pbk steht nix drin. 8|

    ich bekomme unter den verfügbaren verbindungen Vodafone angezeigt.
    Aber sowas wie rasdial vodafone geht dann niocht weil er den Telefonbucheintrag nicht findet. Ist ja auch nicht da.. :rolleyes:

    Wie kann ich denn per Script sagen verbinde die und die verbindung?

  • Netzwerkverbindungen (Typ) ermitteln

    Hi,

    es geht im weitesten Sinn mal wieder um mein VPN Tool.
    Momentan keimt hier die Idee es für alle Firmen im Unternehmen nutzen zu können.

    Der verbindungsname ist momentan noch hart vercodet. Das man Netzwerkverbindungen auslesen kann hab ich schon gefunden.

    Kann man beispielsweise die VPN Verbindung(en) auslesen und als Auswahlk anbieten?

  • Verknüpfung "ausführen in"

    ahhh...ich sehe ich hab mich nicht klar ausgedrückt.
    Aber du hast recht...das würde auch gehen.

    Die exe die die Files kopiert liegt schon richtig. Und das kopieren läuft auch so wie es laufen soll. Wenn ich manuell eine Verknüpfung auf dem Desktop anlege gehts auch. Nur bei der exe die durch

    [autoit]


    FileCreateShortcut("C:\Firma\Connect.exe", @DesktopDir & "\Connect.lnk",@ScriptDir,"","", "C:\Firma\world.ico")

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


    erstellt wird fehlt in den verknüpfungseigenschaften das "Ausführen in".
    Kann man das nicht mit übergeben?

  • Verknüpfung "ausführen in"

    Hi,
    ich hab hier ein kleines Problem mit einer Verknüpfung
    So wird sie erstellt:

    [autoit]

    FileCreateShortcut("C:\Firma\Connect.exe", @DesktopDir & "\Connect.lnk",@ScriptDir,"","", "C:\Firma\world.ico")

    [/autoit]

    das funktioniert soweit auch.
    Wenn ich die FileCreateShortcut Hilfe richtig verstehe ist workingdir doch bei der Verknüpfung "Ausführen in" oder?
    Das wiederrum funktonier nämlich nicht.
    Die exe auf die die Verknüpfung zeigt kopiert einige Dateien:

    [autoit]

    FileInstall("world.ico","world.ico",1)
    FileInstall("Logon.wav","Logon.wav",1)

    [/autoit]

    und die liegen momentan auf dem Desktop, da sollten Sie nicht hin sonern eigentlich in C:\Firma

    [autoit]

    FileCreateShortcut("C:\Firma\Connect.exe", @DesktopDir & "\Connect.lnk","C:\Firma\","","", "C:\Firma\world.ico")

    [/autoit]


    und

    [autoit]

    FileCreateShortcut("C:\Firma\Connect.exe", @DesktopDir & "\Connect.lnk","C:\Firma","","", "C:\Firma\world.ico")

    [/autoit]

    hab ich auch schon versucht. :cursing:

    Wie kann ich der Verknüpfung denn "Ausführen in" mitgeben?

  • DLL und API und viele Fragen

    So,
    ich hab mich mal versucht es ein bißchen auseinander zu pflücken.

    Spoiler anzeigen
    [autoit]

    Global Const $RAS_MaxEntryName = 256
    Global Const $RAS_MaxPhoneNumber = 128
    Global Const $RAS_MaxCallbackNumber = 128
    Global Const $UNLEN = 256
    Global Const $PWLEN = 256
    Global Const $DNLEN = 12
    Global Const $RAS_MaxDeviceType = 16
    Global Const $RAS_MaxDeviceName = 128
    Global Const $MAX_PATH = 260
    Global $RasActiveEntryName, $hRasConn, $RASAPIDLL, $RasEntrieNames, $RasDefaultEntrie
    Global $RasUserName = "nc-musterha@netcologne.de"
    Global $RasPassword = "1M1111"

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

    Func _RasDial($szEntryName, $szUserName, $szPassword)
    Local $RASDIALPARAMS = DllStructCreate("dword dwSize;char szEntryName[" & $RAS_MaxEntryName + 1 & "];" & _
    "char szPhoneNumber[" & $RAS_MaxPhoneNumber + 1 & "];" & _
    "char szCallbackNumber[" & $RAS_MaxCallbackNumber + 1 & "];" & _
    "char szUserName[" & $UNLEN + 1 & "];" & _
    "char szPassword[" & $PWLEN + 1 & "];" & _
    "char szDomain[" & $DNLEN + 1 & "];dword dwSubEntry;ulong_ptr dwCallbackId;dword dwIfIndex")
    DllStructSetData($RASDIALPARAMS, "dwSize", DllStructGetSize($RASDIALPARAMS))
    DllStructSetData($RASDIALPARAMS, "szEntryName", $szEntryName)
    DllStructSetData($RASDIALPARAMS, "szUserName", $szUserName)
    DllStructSetData($RASDIALPARAMS, "szPassword", $szPassword)
    Local $RasConn = DllStructCreate("dword hRasConn")
    DllStructSetData($RasConn, "hRasConn", 0)
    Local $aRet = DllCall($RASAPIDLL, "int", "RasDial", _
    "ptr", 0, "ptr", 0, _
    "ptr", DllStructGetPtr($RASDIALPARAMS), _
    "dword", 0, "hwnd", 0, _
    "ptr", DllStructGetPtr($RasConn))
    If $aRet[0] Then Return SetError(1, $aRet[0], -1)
    $hRasConn = DllStructGetData($RasConn, "hRasConn")
    $RasActiveEntryName = $szEntryName
    Return $hRasConn
    EndFunc ;==>_RasDial

    [/autoit]

    Aaaaber ich bin noch ziemlich verwirrt mit $szEntryName und $RasActiveEntryName.

    Kann mir da mal jemand auf die Sprünge helfen?

    Und....
    wie kommt man auf diese Zahlenwerte?

    Spoiler anzeigen
    [autoit]

    Global Const $RAS_MaxEntryName = 256
    Global Const $RAS_MaxPhoneNumber = 128
    Global Const $RAS_MaxCallbackNumber = 128
    Global Const $UNLEN = 256
    Global Const $PWLEN = 256
    Global Const $DNLEN = 12
    Global Const $RAS_MaxDeviceType = 16
    Global Const $RAS_MaxDeviceName = 128
    Global Const $MAX_PATH = 260

    [/autoit]

  • DLL und API und viele Fragen

    Hallo ihr da draussen.

    Im letzten Thema stand es sei veraltet und ich soll ein neues erstellen :whistling:
    Also eine kurze Zusammenfassung:
    Ich habe ein Tool mit dem sich unsere Aussendienstler per VPN einwählen und noch verschiedene andere Dinge passieren. gpupdate, Netzlaufwerke usw.
    Für das alles nutze ich rasdial, den Befehl setze ich direkt im Script ab. Funktioniert solange gut bis jemand ein Sonderzeichen im Passwort hat das mir dann den String zerlegt.
    Im Abgelaufenen Thema bekam ich den Rat es direkt mit der API zu versuchen.

    Jetzt steh ich hier aber wie der Ochse vorm Berg und weiss noch nichtmal wo ich anfangen soll.
    Die Rasapi32.dll hab ich schon. Das war mein erster Teilerfolg :rock:
    So wie fange ich jetzt an? Weiss jemand wo ich mich einlesen kann?

    Edit: Das hier DFÜ Einwahl einfach mit RasApi32.dll RasDlg.dll hab ich schon gefunden.
    Aber so richtig steig ich da auch noch nicht durch :huh:

  • Active Directory Benutzerdaten abfragen

    Zitat


    Sollte das Konto gesperrt sein, so kann der User sicht nicht mehr anmelden um diese Information anzuzeigen.

    Ja diesen geistigen Höhenflug von mir hab ich auch schon durchschaut.

    Kann ich denn in meinem Script "schnell verhindern" dass ALLE User abgefragt werden?

    Vielen Dank für dein Script.
    Verstehen würde ich es allerdiungs trotzdem gerne wo bei mir der Haken ist.
    Ich hab den ganzen AD Abfrage Mechanismus noch nicht verstanden.