Beiträge von superpati

  • schleife beginnt nicht

    Was ist hier falsch.....der "Contdown" geht einfach nicht in die SChleife...

    Spoiler anzeigen


    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=F:\downloads\autoit\scripts\startstop.kxf
    $Form1 = GUICreate("Form1", 195, 169, 192, 124)
    $start = GUICtrlCreateButton("start", 32, 56, 113, 41, $WS_GROUP)
    $stop = GUICtrlCreateButton("stop", 32, 104, 113, 41, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    case $start
    MsgBox(4, "warte", " 7 Sekunden",7)
    MsgBox(4, "warte", " 5 Sekunden",5)

    For $i = 10 to 1 Step -1
    MsgBox(4, "Count", $i & " Sekunde(n)",1)
    Next

    EndSwitch
    WEnd

  • Dateien verschieben mit Anzeige der Wartezeit

    Zitat von Alina

    zu 1)
    Das sollte mit TimerDiff funktionieren.

    2) Wie kann ich einen Fehler abfangen, wenn das Netzlaufwerk kurzzeitig nicht existieren sollte...oder ist das gar nicht notwendig und das Script läuft einfach weiter?
    Schau mal in der Hilfe die Themen die Du im Index findest die mit "_Net_Share" anfangen.

    Danke für die Info.....vielleicht habe ich mich nicht vollständig ausgedrückt......TimerDiff zeigt mir ja nur die Differenz an - ich meinte jedoch, daß die Sekunden(Minuten) bis zum nächsten Move heruntergezählt werden.... oder verstehe ich etwas falsch????

  • Dateien verschieben mit Anzeige der Wartezeit

    Ein Anfänger braucht wieder Hilfe:
    In regelmäßigen Abständen sollen von einem Netzlaufwerk alle Dateien in ein anderes Verzeichnis verschoben werden. Diese Anforderung hätte ich meines Erachtens schon gelöst.....jetzt meine Fragen wo ich Eure Unterstützung brauche:
    1) Mit was bringe ich es Zustande, die Wartezeit bis zum nächsten Verschieben anzeigen zu lassen?
    2) Wie kann ich einen Fehler abfangen, wenn das Netzlaufwerk kurzzeitig nicht existieren sollte...oder ist das gar nicht notwendig und das Script läuft einfach weiter?

    Hier wäre meine bisherige Erungenschaft:

    Spoiler anzeigen


    $Path = "w:\1\"
    $Dest = "c:\2\"

    AdlibEnable("_move",300000)
    While True
    WEnd

    Func _move()
    FileMove($path, $Dest,1)
    EndFunc

  • Wordmakro - Text ersetzen

    Zitat von peethebee

    Wordvorlagen sind KEINE Textdateien soweit ich weiß. D.h. die kann man nicht einfach so mit String-Funktionen bearbeiten.

    peethebee

    Das ist für mich aber eine Niederlage....das heißt, daß mir wahrscheinlich nichts anderes übrig bleibt als ein einfaches Kopierscript (für die neue Normal.dot) zu erstellen und dieses dann auf 180 Clients ausführenlassen muß. Die "alte" Vorlage auf den Clients wird dadurch natürlich ersetzt...aber somit verlieren die auch alle "Textbausteine", die sie bis dato eingepflegt haben......schade...... ;(

  • Wordmakro - Text ersetzen

    Ein einem eindeutigen Wordmakro namens "Autoexec" steht ein Text (Pfad zu einer anderen Vorlage), der "nur" geändert bzw. ersetzt gehört. Ich habe schon viele Möglichkeiten ausprobiert komme jedoch zu keinem Ergebnis.

    Vielleicht können die Profis einem Anfänger Unterstützung zukommen lassen.

    Hier wäre mein stupider Versuch:

    Spoiler anzeigen


    $file = FileRead (@AppDataDir & "\microsoft\vorlagen\normal.dot")
    $text = ("v:\konfiguration\addin\normal_addin_neu.dot")
    $ersetze = ("\addin\normal_addin_neu.dot")
    $durch = ("\addin_neu\normal.dot")

    if StringInStr ($file,$text) Then
    FileOpen ($file,1)
    FileWrite($file, StringReplace ($text, $ersetze, $durch))
    FileClose($file)
    ;MsgBox("","string","vorhanden")
    EndIf

  • ALLE Dateien aus Unterordner in EINEN Ordner kopieren

    Ich würde wieder einmal eure geschätzte Unterstützung benötigen. Ich habe mir ein VB-Script abgeschaut, das alle Dateien aus Unternordner in einen Ordner kopiert. Funktioniert eigentlich prima, nur hätte ich es gerne durch Autoit ausgeführt. Noch dazu, daß man Quelle, Ziel und Dateiart (z.B. mp3) eingeben kann. Spiele mich schon eine Weile herum, komme jedoch nicht zum gewünschten Erfolg. Vielleicht erbarmt sich jemand meiner Seele. Vielen Dank im Voraus

    Hier hätte ich das VB-Script:

    Spoiler anzeigen


    Option Explicit
    Dim fso, strQuelle, strZiel

    Set fso = CreateObject("Scripting.FileSystemObject")

    strQuelle = "e:\musik"
    strZiel = "e:\mp\"

    KopiereDateien strQuelle, strZiel

    WScript.Echo "Vorgang beendet"

    Sub KopiereDateien(strQuelle, strZiel)
    Dim oFolder, oFolders, oFiles, item

    On Error Resume Next

    Set oFolder = fso.GetFolder(strQuelle)
    Set oFolders = oFolder.SubFolders
    Set oFiles = oFolder.Files

    For Each item in OFolders
    KopiereDateien item, strZiel
    Next

    For Each item in oFiles
    fso.CopyFile strQuelle & "\" & item.Name, strZiel, False
    Next
    End Sub

  • Drucker von W2k-Server auslesen

    Ich brauche wieder einmal die Unterstützung der Gemeinschaft:

    Ich habe einen alten W2K-Server, wo Netzwerkdrucker installiert sind. Von diesem müßte ich alle Druckernamen UND die dazugehörigen IP-Adressen (Ports) auslesen. Diese Drucker habe ich in der Registry unter "HKEY_LOCAL_Machine\Software\Microsoft\Windows NT\CurrentVersion\Print\Printers" alle gefunden. Und hier stehen die verschiedenen "Unterschlüssel" mit den installierten Druckern und den Informationen, die ich brauche.

    Mein Problem: Ich kann diese "Unterschlüssel" bei "Printers" einfach nicht auslesen. Ich als Anfänger habe da ein Problem mit dem Script...kriege es einfach nicht hin....egal was ich probiere..... ;(

    Vielleicht kann mir jemand helfen...vielen Dank

    Spoiler anzeigen


    Dim $Drucker[100]
    Dim $Ausgabe

    For $i=1 to 100
    $Drucker[$i] = RegEnumVal("HKEY_LOCAL_Machine\Software\Microsoft\Windows NT\CurrentVersion\Print\Printers\",
    If @error <> 0 then ExitLoop
    Next

    $Drucker[0]=$i-1

    For $j = 1 to $Drucker[0]
    $Ausgabe &= $Drucker[$j] & @CR
    Next

    $file=("\\xx.xx.xx.xx\every\edv\autoit\drucker" & " - " &@ComputerName & ".txt")
    FileOpen($file,1)
    FileWriteLine($file, "Drucker." & $Ausgabe)
    FileClose ($file)

  • DNS mit netsh und Autoit setzen

    :!: Ach ja......ich sollte ja meine Batch-Datei posten....hole ich hiermit nach...vielleicht hilft es

    Spoiler anzeigen

    @ECHO OFF
    echo %1
    echo IP-Konfiguration wird durchgefuehrt...
    echo.

    rem netsh interface ip set dns name = "LAN-Verbindung" source = static addr = 123.123.128.2
    netsh interface ip add dns name = "LAN-Verbindung" addr = 195.202.128.3
    rem netsh interface ip set wins name = "LAN-Verbindung" source = static addr = none

    popd

    echo.
    echo +++ IP-KONFIGURATION BEENDET +++
    echo.

  • DNS mit netsh und Autoit setzen

    Ich habe mich vielleicht falsch ausgedrückt......"netsh" wird ja aufgerufen....in beiden Fällen......die 1. Zeile wird mir eingetragen.......die 2. Zeile wird jedoch nicht eingetragen, obwohl "netsh" auch aufgerufen wird.......komisch....ändere ich "add" auf "set" funktionierts........... 8|

  • DNS mit netsh und Autoit setzen

    :whistling: Danke für die Unterstützung....aber leider klappt es bei mir nicht so richtig
    Zeile 1 bei mir funktioniert.....Zeile 2 nicht.....ist mir schleierhaft....

    Spoiler anzeigen


    Zeile 1:
    run ("netsh"&' interface ip set dns name = "LAN-Verbindung" source=static addr="123.123.128.2"',"",@SW_SHOW)

    Zeile 2:
    run ("netsh"&" interface ip add dns name = 'LAN-Verbindung' source=static addr='123.123.128.3 index=2'","",@SW_SHOW)

  • DNS mit netsh und Autoit setzen

    Ich habe nachstehendes Problem und brauche wieder einmal eure Unterstützung:

    Ich kann mit dem Tool "netsh" die ERSTE DNS-Adresse problemlos setzen (z.B.: netsh interface ip SET dns name =...)
    Ich muss aber auch den ZWEITEN DNS eintragen (normalerweise mit "netsh interface ip ADD dns...") kein Problem. Aus mir unerklärlichen Gründen wird mir aber der 2. DNS nicht eingetragen. Mache ich es über eine "gewöhnliche" Batchdatei, funktioniert es super (fange jedoch in einem Netzwerk mit Domäne nichts damit an....außer Abmelden und als Administrator wieder anmelden.....und das möchte(n) wir uns bei 300 Rechnern ersparen).

    Vielleicht kann mir jemand helfen......

    vielen Dank

  • Checkboxen checken und unchecken

    Ein Anfänger braucht wieder einmal Eure Hilfe:

    Ich habe mir eine Gui (für Testzwecke) mit insgesamt 4 Checkboxen. Bisher habe ich es soweit geschafft, daß - wenn ich Checkbox 4 anhake - auch gleich die anderen 3 Boxen checked bzw. unchecked werden....soweit so gut....ich bringe jedoch folgendes nicht zustande bzw. fehlt mir die Logik:

    Was muss ich jetzt noch ergänzen, damit Box 4 auch ein Hakerl kriegt bzw. wieder verliert, wenn ich Box 1 - 3 oder wenn ich von den 3 Boxen (die markiert sind) ein Hakerl rausnehme (in dem Falle sollte Checkbox 4 das Hakerl verlieren..markiere ich alle 3, soll es eines kriegen).....und ist das alles in einer Kurzform möglich???

    Spoiler anzeigen

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    #Region ### START Koda GUI section ### Form=F:\downloads\autoit\scripts\Form1.kxf
    $Form1_1 = GUICreate("Form1", 291, 124, 193, 125)
    $Checkbox4 = GUICtrlCreateCheckbox("Checkbox4", 128, 56, 97, 17)
    $Group1 = GUICtrlCreateGroup("Group1", 16, 8, 97, 97)
    $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 24, 32, 97, 17)
    $Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 24, 56, 97, 17)
    $Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 24, 80, 97, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Checkbox4
    if GUICtrlRead($Checkbox4) = $gui_checked Then
    GUICtrlSetState($Checkbox1,$gui_checked)
    GUICtrlSetState($Checkbox2,$gui_checked)
    GUICtrlSetState($Checkbox3,$gui_checked)
    Elseif GUICtrlRead($Checkbox4) = $gui_unchecked Then
    GUICtrlSetState($Checkbox1,$gui_unchecked)
    GUICtrlSetState($Checkbox2,$gui_unchecked)
    GUICtrlSetState($Checkbox3,$gui_unchecked)
    EndIf


    EndSwitch
    WEnd

  • Bestimmte Anzahl(!!) von Dateien kopieren

    Folgendes Problem stellt sich für mich als Anfänger dar:

    Ich habe einen Ordner, der insgesamt ca. 32000 (!!!) txt-Dateien enthält. Diese Dateien müßte ich in ein Schnittstellenverzeichnis kopieren. Normalerweise nicht einmal zum Nachdenken.

    Problem dabei ist jedoch, daß nicht mehr als 100 Files aufeinmal hinein kopiert werden sollten da sich die Schnittstelle sonst überfordert fühlt (muß ja auch die tägliche Routine abwickeln).

    So......ich habe jetzt nachgedacht....leider hat sich mein Gehirnschmalz verflüchtigt :wacko:

    Somit stelle ich die Frage an die allwissende Gemeinschaft: Wie stelle ich es an, daß in regelmäßigen Abständen (über einen Task....ist mir schon klar) immer nur 50 Files in dieses Schnittstellenverzeichnis kopiert bzw. gemoved werden. Solange, bis natürlich keine mehr übrig sind ?(

    Bin für jede Hilfe dankbar

  • Systemvariable "PATH" ergänzen

    Alle wege führen nach Rom.......vielen Dank...hast mir sehr geholfen......das mit dem "regread" hätte ich nämlich total übersehen......ist ja auch logo.....wenn ich nur "regwrite" mache, ersetzt er mir alles....und das natürlich beinhart.....hätte schön blöd aus der Wäsche geschaut......verbeuge mich sehr tief :rock: