Beiträge von Der_Doc

  • Script "LoginAs"

    Hi Leute,

    ich habe ein weiterst Script fertiggestellt und möchte es nun veröffentlichen.
    Das Tool nennt sich "LoginAS" und meldet einen Benutzer unter einem anderem Benutzer an. Das Script funktioniert unter Domain und Arbeitsgruppen Benutzern.
    Da das Tool unter Autoit geschrieben ist kann man es anpassen und so in andere Scripte einpassen.

    Zum testen liegt eine Datei "testlogin.au3" bei um den angemeldeten Benutzernamen anzeigen zu lassen. Die Datei muß noch kompeliert werden.

    EDIT: 28.05.2009
    Hi Leute ich habe es ja versprochen, das ich das Script anpasse.
    Die Arbeit wurde mir von ytwinky und bernd670 schon fast abgenommen :D Danke Euch natürlich nochmal.
    Ich selber habe auch nochmal rumgespielt und stelle die neue Version nun online.

    Also testen und die Verbesserungen hier posten.

    MfG
    Der_Doc

  • Radio Button

    Hi,

    ich habe mal ein kleine Beispiel geschrieben wie mann z.B. bei Notepad die Seite auf Querformat umstellen kann.

    [autoit]


    Run("notepad.exe")
    WinWait("Unbenannt")
    send("!d+r")
    ControlClick("Seite einrichten","&Querformat","Button4")
    ControlClick("Seite einrichten","OK","Button6")

    [/autoit]

    Dein Lösungsansatz wäre:

    [autoit]


    ControlClick("Import CDR's","&<Text>","<ClassNameNN>")

    [/autoit]

    &<Text> = Hier kommt der Text des Feldes rein welches du auswählen möchtest(siehe Autoit Info)

    <ClassNameNN> = Ist die Name des ausgwähleten Feld.

    MfG
    Der_Doc

  • Frage zu FTP.au3

    Hi,
    ansonsten löse ich das mit der FTP-Funktion.

    ACHTUNG DER DIE FUNKTION IST NICHT VON MIR ist aus dem englische Forum. Ich habe sie nur angepasst.

    LINK aus dem enlischen Forum


    Spoiler anzeigen
    [autoit]


    #include <ftp.au3>
    #include <file.au3>
    #include <array.au3>

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

    dim $Handle, $DllRect
    $dll = DllOpen("wininet.dll")

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

    $server = 'nslu2'
    $user = 'daten'
    $pass = '123daten'

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

    $Dir = '/daten/'
    $datei = "test.txt"

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

    $ftpOpen = _FTPOpen("FileZilla")
    If @error Then
    MsgBox(0,"FTP-Handle","FTP-Handle wurde nicht erfolgreich erzeugt!")
    SetError(0)
    EndIf
    $ftpConnect = _FTPConnect($ftpOpen, $server,$user, $pass)
    If @error Then
    MsgBox(0,"FTP-Connect","FTP-Connect war nicht erfolgreich.")
    SetError(0)
    EndIf

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

    $ftpFindfirst = _FTPFileFindFirst($ftpConnect,$Dir&$datei&"*",$Handle, $DllRect)
    If @error Then
    MsgBox(0,"FTP-Find","FTP-Find war nicht erfolgreich.")

    SetError(0)
    Else
    If $ftpFindfirst[0] Then
    While $ftpFindfirst[0]
    ;~ _ArrayDisplay($ftpFindfirst,"")
    $dl_file = $ftpFindfirst[10]
    $ftpFindfirst = _FtpFileFindNext($Handle, $DllRect)
    MsgBox(0,"FTP-Find","Jetzt Aktion ausführen, da Datei "&chr(34)&$dl_file&chr(34)& "." )
    Wend
    EndIf
    _FtpFileFindClose($Handle, $DllRect)
    EndIf

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

    DllClose($dll)

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

    MfG
    Der_Doc

  • Auf anderes Register umschalten

    Hi,
    es kommt darauf an, sind es denn alles Standard Treiber oder spezielle Herstellertreiber.
    Sonst gibt es doch bestimmt Standardtreiber die mann nachinstallieren kann.
    Sonnst ist die Frage ob das Script für 2000 oder XP sein soll.

    MfG
    Der_Doc

  • Arptool

    Hi,

    danke für die Anmerkungen.

    1. IP-Adressfelder sind nicht nötig da ich entweder den PC-Namen oder die IP eingeben kann.
    2. Bei ungültigen Eingaben "schmiert" das Script nicht ab, sonder gibt eine Fehlermeldung aus das der Host nicht existiert.
    Habe es trotzdem nochmal geändert. Nun kann eine neue Abfrage starten.
    3. Fehler ist behoben.


    Änderung siehe 1.er Post.


    MfG Der Doc

  • Warum AutoIt?

    Autoit erzeugt eine exe-Datei die man eben auf fast allen Windowsrechnern benutzen kann.
    Ein großer Vorteil für Administratoren, die viel mit Batchdateien gearbeitet haben, ist es geht einfacher, es gibt mehr möglichkeiten und die User können aus versehen nichts in der fertigen EXE-Datei ändern.

    Benutze:
    Autoit-Version 3.2.2.0
    Programmierumgebung : SciTE 1.7.2
    GUI-Builder: Koda 1.6.0.2

    Macht weiterso die Programme sind einfach super.


    MfG
    Der_Doc

  • Arptool

    Hi Leute da ich Netzwerkadmin bin habe ich viel mit MAC-Adressen zutun. Da die aber ewig lang sind und man die nie weis habe ich ein Tool geschrieben was mir ein klein bischen Arbeit abnimmt.

    Das Tool bassiert auf den Dos-Befehlen:

    • Ping <IP-Adresse>
    • Arp -a <IP-Adresse>


    Getestet wurde es unter dem Betriebssystemen

    • Windows Vista
    • Windows XP
    • Windows 2000


    Beschreibung:

    Es können Rechner Remote oder lokal abgefragt werden.
    Nach Eingabe der IP-Adresse, wird ein Ping auf das Gerät abgesetzt um zusehen ob es online ist.
    Sollte ein Name angegeben werden wird dieser mit der Function "TCPNameToIP" umgesetzt da eine Arpanfrage nur auf eine IP funktioniert.
    Sollte keine Adresse angegeben werden, wird das lolale Gerät abgefragt.
    Das Ergebniss wird dann in einem Editfeld angezeigt und in die Zwischenablage kopiert. (Das erspart falsches abschreiben :schild4: )
    Mit "Strg + V" kann sie somit überall eingefügt werden.

    Feedback:
    So schreibt bitte was Ihr von dem Tool haltet und ob es für Euch von Interesse ist.

    Edit: Neue Version 1.3
    Changes:
    - Auflösung nach IP und DNS-Name.
    - Fehlermeldung korrigiert.

    Edit: Neue Version 1.4
    Changes:
    - Checkbox kopieren ja nein eingebunden.
    - Gui verändert.

    Edit: Neue Version 1.5
    Changes:
    - GUI an Vista angepasst.
    - Fehler durch Autoitversion 3.2.2.0 behoben


    Der Quellcode:

    Spoiler anzeigen
    [autoit]


    #include <GuiStatusBar.au3>
    #include <Inet.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    #AutoIt3Wrapper_icon=192.ico
    #AutoIt3Wrapper_outfile=Arptool.exe

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

    Dim $author = "Der_Doc"
    Dim $version = "1.5"
    Dim $change = "Update: 1.3 | 26.02.2007" & @CRLF & _
    ' -Auflösung nach IP und DNS-Name' & @CRLF & _
    'Update: 1.4 | 05.04.2007 ' & @CRLF & _
    ' -Checkbox kopieren ja nein eingebunden' & @CRLF & _
    ' -Gui erneuert ' & @CRLF & _
    'Update: 1.5 | 23.04.2009 ' & @CRLF & _
    ' -GUI an Vista angepasst'
    Dim $a_PartsRightEdge[2] = [110, -1]
    Dim $a_PartsText[2] = [$author & " 2009", "Version: " & $version]
    Dim $ausgabe

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

    #Region ### START Koda GUI section ### Form=arpgui.kxf
    $Arpgui = GUICreate("Arptool", 279, 250, -1, -1)
    $Group1 = GUICtrlCreateGroup("IP oder PC-Name", 6, 7, 265, 55)
    $In_Input = GUICtrlCreateInput("", 14, 27, 249, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("Ergebniss der Arpanfrage", 7, 68, 265, 90)
    $Edit = GUICtrlCreateEdit("", 22, 86, 241, 65, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY))
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Senden = GUICtrlCreateButton("Senden", 214, 167, 57, 25, $BS_DEFPUSHBUTTON)
    $check1 = GUICtrlCreateCheckbox("Ergebniss in Zwischenablag kopieren", 6, 173, 201, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    GUICtrlSetState($In_Input, $GUI_FOCUS)
    $MenuItem1 = GUICtrlCreateMenu("&Datei")
    $MenuItem2 = GUICtrlCreateMenuItem("Neu", $MenuItem1)
    $separator2 = GUICtrlCreateMenuItem("", $MenuItem1, 2)
    $MenuItem3 = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
    $dateihelp = GUICtrlCreateMenu("?")
    $menuehelp = GUICtrlCreateMenuItem("Über Arptool", $dateihelp)
    $StatusBar1 = _GUICtrlStatusBar_Create($Arpgui, $a_PartsRightEdge, $a_PartsText)
    GUICtrlCreateGraphic(0, 0, 306, 2, BitOR($SS_NOTIFY, $SS_SUNKEN))
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $MenuItem2
    GUICtrlSetData($Edit, "")
    GUICtrlSetData($In_Input, "")
    ClipPut("")

    Case $Senden
    $Input = GUICtrlRead($In_Input)
    If $Input = "" Then $Input = @ComputerName ; Wenn kein Computername eingegeben wurde wird der locale genommen.

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

    $ping = Ping($Input, 50)
    Select
    Case $ping > 0
    TCPStartup()
    $ausgabe = TCPNameToIP($Input)
    $ausgabe_name = _TCPIpToName($ausgabe, 0)
    GUICtrlSetData($Edit, 'PC-Name: ' & @TAB & $ausgabe_name & @CRLF)
    TCPShutdown()
    GUICtrlSetData($Edit, GUICtrlRead($Edit) & 'IP-Adresse: ' & @TAB & $ausgabe & @CRLF)
    arp()
    If $ausgabe = "" Then ipconfig()
    GUICtrlSetData($Edit, GUICtrlRead($Edit) & 'Mac-Adresse: ' & @TAB & $ausgabe & @CRLF)
    If GUICtrlRead($check1) = 1 Then
    ClipPut($ausgabe)
    GUICtrlSetData($Edit, GUICtrlRead($Edit) & 'Mac-Adresse in Zwischenablage kopiert!' & @CRLF)
    Else
    GUICtrlSetData($Edit, GUICtrlRead($Edit) & 'Mac-Adresse wurde nicht kopiert!' & @CRLF)
    EndIf
    Case $ping = 0
    MsgBox(64, "Fehlermeldung Arptool", "Der Host ist nicht Verfügbar! " & @CRLF & "Bitte neue Abfrage starten!")
    GUICtrlSetData($Edit, "")
    GUICtrlSetData($In_Input, "")
    GUICtrlSetState($In_Input, $GUI_FOCUS)
    EndSelect

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

    Case $menuehelp
    $help = GUICreate("Über Arptool ......", 280, 180, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS))
    $help_ok = GUICtrlCreateButton("OK", 112, 136, 75, 25, $BS_DEFPUSHBUTTON)
    $Info = GUICtrlCreateEdit("", 24, 48, 249, 73, BitOR($ES_READONLY, $WS_VSCROLL))
    GUICtrlSetData(-1, "Author: " & $author & @CRLF & _
    'AutoIt Version: 3.2.2.0' & @CRLF & _
    'Datum: 15.01.2007' & @CRLF & _
    $change)
    $Label_help = GUICtrlCreateLabel("Arptool " & $version, 125, 16, 134, 23)
    GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman")
    GUICtrlCreateIcon("shell32.dll", 24, 50, 7, 32, 32, BitOR($SS_NOTIFY, $WS_GROUP))
    GUISetState(@SW_SHOW, $help)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Case $help_ok
    GUIDelete($help)
    GUISetState(@SW_SHOW, $Arpgui)
    GUISwitch($Arpgui)
    ExitLoop
    EndSwitch
    WEnd

    Case $GUI_EVENT_CLOSE
    Exit
    Case $MenuItem3
    Exit

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

    EndSwitch
    WEnd

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

    Func arp()
    $pid = Run(@ComSpec & " /c arp -a " & $ausgabe, "", "", 2)
    $ausgabe = StdoutRead($pid)
    While ProcessExists($pid)
    Sleep(100)
    WEnd
    $ausgabe = StringMid($ausgabe, StringInStr($ausgabe, "-", 0, -5) - 2, 17)
    EndFunc ;==>arp

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

    Func ipconfig()
    $pid = Run(@ComSpec & " /c ipconfig /all", "", "", 2)
    $ausgabe = StdoutRead($pid)
    While ProcessExists($pid)
    Sleep(100)
    WEnd
    $ausgabe = StringMid($ausgabe, StringInStr($ausgabe, "Physikalische Adresse", 0, -1) + 36, 17)
    EndFunc ;==>ipconfig

    [/autoit]

    Als Anlage noch die Kodadatei und das ICON.

    MfG
    Der_Doc

  • Ready for AutoIt

    Hi wollte mich auch vorstellen. Bin Der_Doc gesunde 26 und gebürtig aus Hessen. Nun System und Netzwerkadmin im "öffentlichem Dienst" im schönen Niedersachsen.

    Eigentlich ein kleiner Webprogrammierer (PHP, MySQL, HTML). Aber immer erst nen Apache aufsetzten war auch lästig. In Autoit schreibe ich nun kleine Scripte im Bereich Netzwerke und Domain.
    Natürlich nicht ganz allein :schild4: Micha_he is nen Scriptkollege von mir.

    So nun genug von mir!

    Let´s Autoit :admin:

  • Freischaltung

    Hallo Ihr Scripter. Ich wollte nocheinmal um die Freischaltung bitte um Scripte veröffentlichen zukönnen.

    PS: Micha_HE bitte auch freischalten (wir programmieren zusammen)
    4 Hände programmieren mehr wie 2 :rofl:

  • KVM-Switch umschalten

    Dr.Galvany
    is zwar nix zum Thema aber Namesraub sieht anders aus :musik2: ich nutze den Namen seit fast 6 Jahren.

    Machtin
    Ich meine aber in einem Autoit-Script. Wenn ich mit AutoHotKey aufnehme dann bekomme ich die Tastenfolge auch. Aber leider tut sich nix an meinen Monitoren.

    Könnte aber auch daran liegen, das ich mit dem Prog nur den Controller der Tastatur im Rechner anspreche und eben nicht den Switch.

    Weis sonst keiner Rat?
    Wäre sehr wichtig um ein Programm zubeenden.

  • KVM-Switch umschalten

    Moin,
    ich habe nun auch Autoit für mich entdeckt und bin schwer am entwickeln.
    Nun brauche ich aber mal Eure Hilfe.
    Mein Problem ist das ich gerne einen KVM-Switch per Script umschalten möchte.
    Das Kommando dafür ist mir bekannt aber leider zeigt es keine Wirkung.

    Code
    Send("{SCROLLLOCK}{SCROLLLOCK}{DOWN}")

    oder


    Code
    Send("{SCROLLLOCK ON}{SCROLLLOCK OFF}{DOWN}")

    Es liegt nicht an der Schreibweise weil eine msgBox mir sagt das es Funktioniert (LED auf der Tastatur leuchtet auch). Aber leider ertönt kein BEEEEB und nix.

    Weis einer von Euch Rat?

    MfG
    Der Doc