Beiträge von Der_Doc

**Der_Doc** · 21. März 2007

Hi,
Ja das werde ich in der nächsten Version mal berücksichtigen. (Vieleicht schon nächste Woche)
Danke für das Lob.

MfG
Der_Doc

**Der_Doc** · 21. März 2007

Hi super,

wäre nur net wenn du uns den Lösungsweg mal kurz nenen könntest.? Andere könnten ihne vieleicht brauchen. :musik2:

MfG
Der_Doc

**Der_Doc** · 19. März 2007

Hi,
das verstehe ich nicht.
Mit dem Tool Au3Info.exe kanst du doch die Radiobutton (die Beschriftung)
anklicken und auslesen.

Notepad ist ja auch ein externes Programm.

MfG
Der_Doc

**Der_Doc** · 19. März 2007

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 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

**Der_Doc** · 19. März 2007

Hi,

vieleicht meinst du DLLcall

sonnst weis ich leider auch nicht was du möchtest, programmiere leider kein VB.

MfG
Der_Doc

**Der_Doc** · 19. März 2007

Hi,

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

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

Dein Lösungsansatz wäre:

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

&<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

**Der_Doc** · 13. März 2007

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

MfG
Der_Doc

**Der_Doc** · 12. März 2007

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

**Der_Doc** · 10. März 2007

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

**Der_Doc** · 10. März 2007

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

**Der_Doc** · 10. März 2007

He He

Bin doch ...

Zitat

Nun System und Netzwerkadmin im "öffentlichem Dienst" im schönen Niedersachsen.

Sorry aber es hatte eben so gepasst. :engel2:

**Der_Doc** · 10. März 2007

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

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

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

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

#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 ###

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)

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.

$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

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)

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

EndSwitch
WEnd

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

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

Als Anlage noch die Kodadatei und das ICON.

MfG
Der_Doc

**Der_Doc** · 10. März 2007

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:

**Der_Doc** · 3. März 2007

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

**Der_Doc** · 28. Februar 2007

Hi,
ich bin auch am programmieren und hätte gerne eine Freischaltung um meine Scripte ablegen zukönnen.

Weil Fehler finden nur die User die damit arbeiten :schild4:

**Der_Doc** · 15. Dezember 2006

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.

**Der_Doc** · 14. Dezember 2006

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

Beiträge von Der_Doc

Arptool

Frage zu FTP.au3

Radio Button

Script "LoginAs"

Aufruf von DLLs

Radio Button

Frage zu FTP.au3

Auf anderes Register umschalten

Arptool

Warum AutoIt?

Ready for AutoIt

Arptool

Ready for AutoIt

Freischaltung

könnte ich freigeschalten werden

KVM-Switch umschalten

KVM-Switch umschalten