Danke schon mal für die Antworten. Ich bin erst morgen wieder beim Dienst um die Tipps umzusetzen. Ich melde mich hier bestimmt wieder. 
Torni: Wäre es vielleicht möglich mir das Script zukommen zu lassen? es sind bei mir zwar nur 10 Rechner, würde aber meine Arbeit viel einfacher gestalten.
Grüße
Matthias
Hallo zusammen!
ich betreue ein kleines Netzwerk und möchte sehen welche PCs online sind und welche nicht. Dazu habe ich eine GUI mit Koda erstellt auf welcher ich Buttons mit der PC-Bezeichnung habe. Über diese Buttons sollen später noch andere Funktionen aufgeführt werden.
Nun sollen bereits beim Start des Scriptes die Buttons entsprechend des Zustandes der PCs eingefärbt werden. Ist der PC aus soll der Button rot sein. Ist der PC an entsprechend grün.
Später soll noch ein komplettes Runterfahren der PCs und das Starten der "Überwachung" per VNC hinzukommen. Beim Klick auf die einzelnen PCs soll VNC nur für diesen PC starten
Ich stehe noch am Anfang und bin für jede Hilfe und jeden Tipp dankbar.
[autoit]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("JVA Siegburg - AT-Printwork Console", 544, 388, 950, 246)
$Btn11 = GUICtrlCreateButton("PC 11", 408, 176, 105, 41)
$Btn12 = GUICtrlCreateButton("PC 12", 280, 176, 105, 41)
$Btn13 = GUICtrlCreateButton("PC 13", 152, 176, 105, 41)
$Btn14 = GUICtrlCreateButton("PC 14", 24, 176, 105, 41)
$Btn18 = GUICtrlCreateButton("PC 18", 344, 40, 105, 41)
$Btn15 = GUICtrlCreateButton("PC 15", 88, 88, 105, 41)
$Btn16 = GUICtrlCreateButton("PC 16", 216, 88, 105, 41)
$Btn17 = GUICtrlCreateButton("PC 17", 344, 88, 105, 41)
$Btn19 = GUICtrlCreateButton("PC 19", 216, 40, 105, 41)
$Btn20 = GUICtrlCreateButton("PC 20", 88, 40, 105, 41)
$allOff = GUICtrlCreateButton("Alle PCs runterfahren", 24, 232, 233, 41)
$allOn = GUICtrlCreateButton("Komplettstart", 280, 232, 233, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Variablen für PCs vergeben, anpingen und dadurch erkennen, ob sie online sind
Local $11 = Ping("192.168.0.11", 250)
Local $12 = Ping("192.168.0.12", 250)
Local $13 = Ping("192.168.0.13", 250)
Local $14 = Ping("192.168.0.14", 250)
Local $15 = Ping("192.168.0.15", 250)
Local $16 = Ping("192.168.0.16", 250)
Local $16 = Ping("192.168.0.17", 250)
Local $16 = Ping("192.168.0.18", 250)
Local $16 = Ping("192.168.0.19", 250)
Local $16 = Ping("192.168.0.20", 250)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;PC11 wird betätigt
Case $Btn11
If $11 Then ;wenn PC online, dann......
MsgBox(0, "Printwork", "weiteres Script zum Starten von VNC einfügen..... Ping ist:" & $11)
Else
MsgBox(0, "Printwork", "Der PC 11 ist offline.")
EndIf
;PC12 wird betätigt
Case $Btn12
;PC13 wird betätigt
Case $Btn13
Case $Btn14
Case $Btn18
Case $Btn15
Case $Btn16
Case $Btn17
Case $Btn19
Case $Btn20
Case $allOff
Case $allOn
EndSwitch
WEnd
Vielen Dank - das wusste ich nicht - wäre aber von alleine auch nicht drauf gekommen.
Die Fehlermeldung lautet:
Invalid FileInstall() funktion:
Mehr nicht.
Ich habe ein Script geschrieben welches viele Dateien automatisch einfügen soll.
Beim Kompilieren bekomme ich allerdings eine Fehlermeldung dass mit dem FileInstall etwas nicht stimmen würde.
Kann mir bitte Jemand helfen und mir sagen wo der Fehler liegt?
$helpdir = ("C:\Dokumente und Einstellungen\Desktop\AddOnscript")
$wowinstdir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft", "InstallPath")
$adddir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft", "InstallPath") & "\\Interface\Addons"
;If FileExists($wowinstdir) Then (vorübergehend)
MsgBox(8192, "Legends of Moon", "Willkommen bei den 'Legends of Moon'.", 5)
MsgBox(8192, "Legends of Moon", "Es werden nun die von den Moons benutzten AddOns Ace3, Omen, BigWigs, ORA² und GuildAds integriert.", 5)
;Ace3
DirCreate($adddir & "\Ace3")
FileInstall($helpdir & "\Ace3\Ace3.lua", $adddir & "\Ace3\Ace3.lua", 1)
FileInstall($helpdir & "\Ace3\Ace3.toc", $adddir & "\Ace3\Ace3.toc", 1)
FileInstall($helpdir & "\Ace3\changelog.txt", $adddir & "\Ace3\changelog.txt", 1)
FileInstall($helpdir & "\Ace3\Changelog-Ace3-Beta-r741.txt", $adddir & "\Ace3\Changelog-Ace3-Beta-r741.txt", 1)
FileInstall($helpdir & "\Ace3\LICENSE.txt", $adddir & "\Ace3\LICENSE.txt", 1)
DirCreate($adddir & "\Ace3\AceAddon-3.0")
FileInstall($helpdir & "\Ace3\AceAddon-3.0\AceAddon-3.0.lua", $adddir & "\Ace3\AceAddon-3.0\AceAddon-3.0.lua", 1)
FileInstall($helpdir & "\Ace3\AceAddon-3.0\AceAddon-3.0.xml", $adddir & "\Ace3\AceAddon-3.0\AceAddon-3.0.xml", 1)
Es sind noch Ummengen an weiteren Daten, die allerdings nach dem gleichen Prinzip eingebunden werden.
Oder gibt es vielleicht sogar die Möglichkeit komplette Ordner incl. Unterordner und Dateien per FileInstall einzubinden und zuzuweisen?
Danke schonmal
Legatos
Danke für die Hilfe, aber nun stehe ich vor dem nächsten Problem.
In diesen erstellten Ordner möchte ich nun Dateien kopieren lassen, kann ihn aber per DirCopy nicht genau definieren da er ja jedes Mal einen anderen Namen hat.
Hätte hier auch zu diesem Problem eine Lösung.
Danke schonmal
Hallo zusammen.
Wie kann ich über DirCreate einen Ordner erstellen lassen, welcher neben einer festgelegten Bezeichnung "Interfacesicherung" zusätzlich das aktuelle Datum als Namen hat?
Danke schonmal für die Hilfe
Dies ist mein erstes "richtiges" Script.
Es soll dazu dienen den Spielern meiner Gilde in World of Warcraft die Einrichtung der benötigten Dateien und Programme zur Benutzung des Rosters zu erleichtern.
Es überprüft, ob WoW überhaupt existiert, richtet (falls nötig) das AddOn CharakterProfiler ein, installiert (falls noch nicht vorhanden) .NET Framework 3.5 und installiert (falls noch nicht vorhanden) den UniUploader, welcher die Daten zum Roster überträgt.
Die Installationspfade werden über die Registry abgefragt.
Ich wäre über ein kurzes FeedBack und Verbesserungsvorschläge dankbar.
Grüße
Legatos
; Registyabfragen
$wowinst = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft", "InstallPath")
$netinst = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework", "InstallRoot")
$windir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir")
;Überprüfung ob World of Warcraft überhaupt existiert
If FileExists($wowinst) Then
; Begrüßung^^
MsgBox(8192, "Legends of Moon", "Willkommen bei den 'Legends of Moon'.", 5)
MsgBox(8192, "Legends of Moon", "Es werden nun alle nötigen Eistellungen und Installationen für unseren Gilden-Roster vorgenommen.", 5)
MsgBox(8192, "Legends of Moon", "Bitte unterbrich diesen Vorgang nur wenn eine unvorhergesehene Fehlermeldung erscheint!!!", 5)
; Vorbereitung und Bereitstellung der Daten
DirCreate("C:\MoonRoster")
FileInstall("D:\MoonRoster\dotNetFx35setup.exe", "C:\MoonRoster\dotNetFx35setup.exe")
FileInstall("D:\MoonRoster\UniUploader_2.6.8_Moons.exe", "C:\MoonRoster\UniUploader_2.6.8_Moons.exe")
; Überprüfung und Einrichtung des CharacterProfilers
If FileExists($wowinst & "\Interface\AddOns\CharacterProfiler") Then
MsgBox(8192, "Legends of Moon", "Das AddOn 'CharacterProfiler' ist auf Deinem PC bereits integriert", 5)
Else
MsgBox(8192, "Legends of Moon", "Das AddOn 'CharacterProfiler' wird integriert:.", 5)
DirCreate($wowinst & "\Interface\AddOns\CharacterProfiler")
FileInstall("D:\MoonRoster\CharacterProfiler\CharacterProfiler.lua", $wowinst & "\Interface\AddOns\CharacterProfiler\CharacterProfiler.lua")
FileInstall("D:\MoonRoster\CharacterProfiler\CharacterProfiler.toc", $wowinst & "\Interface\AddOns\CharacterProfiler\CharacterProfiler.toc")
FileInstall("D:\MoonRoster\CharacterProfiler\localization.lua", $wowinst & "\Interface\AddOns\CharacterProfiler\localization.lua")
FileInstall("D:\MoonRoster\CharacterProfiler\rpgo.core.lua", $wowinst & "\Interface\AddOns\CharacterProfiler\rpgo.core.lua")
FileInstall("D:\MoonRoster\CharacterProfiler\rpgo.lib.lua", $wowinst & "\Interface\AddOns\CharacterProfiler\rpgo.lib.lua")
EndIf
; Überprüfung und Installation von .NET Framework
If FileExists($netinst & "\v3.5") Then
MsgBox(8192, "Legends of Moon", "Microsoft .NET Framework 3.5 ist auf Deinem PC bereits installiert", 5)
Else
MsgBox(8192, "Legends of Moon", "Microsoft .NET Framework 3.5 wird installiert. Dies wird für den UniUploader benötigt und kann einige Minuten in Anspruch nehmen.", 5)
Run("C:\MoonRoster\dotNetFx35setup.exe")
WinWaitActive("Microsoft .NET Framework 3.5-Setup", "Willkommen")
Send("+{TAB}")
Send("{SPACE}")
Send("{ENTER}")
WinWaitActive("Microsoft .NET Framework 3.5-Setup", "Setup ist abgeschlossen")
Send("{ENTER}")
EndIf
;Überprüfung und Installation des UniUploaders
If FileExists($windir & "\UniUploader") Then
MsgBox(8192, "Legends of Moon", "Der UniUploader ist bereits installiert", 5)
Else
MsgBox(8192, "Legends of Moon", "Der UniUploader wird installiert:", 5)
Run("C:\MoonRoster\UniUploader_2.6.8_Moons.exe")
WinWaitActive("Installer Language", "Please select a language")
Send("{ENTER}")
WinWaitActive("UniUploader Installation", "Willkommen beim Installations")
Send("{ENTER}")
WinWaitActive("UniUploader Installation", "Lizenzabkommen")
Send("{ENTER}")
WinWaitActive("UniUploader Installation", "Zielverzeichnis auswählen")
Send("{ENTER}")
WinWaitActive("UniUploader Installation", "Startmenü-Ordner bestimmen")
Send("{ENTER}")
WinWaitActive("UniUploader Installation", "UniUploader wurde auf Ihrem Computer installiert")
Send("{ENTER}")
EndIf
MsgBox(8192, "Legends of Moon", "Microsoft .NET Framework 3.5, der UniUploader und das AddOn 'CharacterProfiler' wurden erfolgreich installiert und bereits konfiguriert.", 5)
MsgBox(8192, "Legends of Moon", "Es müssen keine weiteren Einstellungen von Dir vorgenommen werden.", 5)
MsgBox(8192, "Legends of Moon", "Viel Spaß bei der Benutzung unseres Gilden-Rosters wünscht Euch Legatos.", 5)
;Löschen der nicht mehr benötigten Dateien
DirRemove("C:\MoonRoster", 1)
Else
MsgBox(8192, "Legends of Moon", "Ohne eine vorherige Installation von World of Warcraft ist die Installation des UniUploaders ect. eigentlich nutzlos.^^", 10)
EndIf
Exit
DANKESCHÖN
Darauf wäre ich nun wirklich nicht gekommen^^
Ich habe einen Ordner über die Registry ausgelesen und möchte nun überprüfen, ob hier ein Unterordner existiert.
In Zeile 3 befindet sich jedoch ein Fehler, den ich auch mit der Hilfedatei und Ausprobieren nicht beheben konnte.
Wie muss diese Zeile richtig geschrieben sein?
Vielen Dank schonmal
1 $wowinst = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft", "InstallPath")
2
3 If FileExists($wowinst "Interface\AddOns\CharacterProfiler") Then
4 MsgBox(64, "Legends of Moon", "Das AddOn 'CharacterProfiler' ist auf diesem PC bereits integriert", 5)
5 Else
6 MsgBox(64, "Legends of Moon", "Das AddOn 'CharacterProfiler' ist auf diesem PC NICHT integriert", 5)
7 EndIf
Ich hatte einfach überall nach C: den backslash vergessen.^^ Ich hoffe jetzt läuft alles.
...nachdem ich alles noch ein wenig umgeschrieben habe. Aber Probleme macht mir nun die Zeile:
DirCreate("C:Programme\World of Warcraft\Interface\AddOns\CharakterProfiler")
Der Ordner wird nicht unter C: erstellt sondern komischerweise immer in dem Ordner in welchem die .au3 bzw .exe liegt und gestartet wird.
Muss ich hier etwas anderes schreiben? ich habe doch eigentlich genau angegeben dass der Ordner unter C: erstellt werden soll.
danke schonmal
Legatos
Ich glaube ich habe eine Möglichkeit gefunden.
Könnt ihr bitte mal einen Blick darauf werfen und mir sagen ob das so funktionieren könnte?
[autoit]DirCreate("C:\MoonRoster\CharakterProfiler") ; Erstellung des Ordners für die weitere Installation
DirCreate("C:Programme\World of Warcraft\Interface\AddOns\CharakterProfiler") ;Erstellung des Ordners für das AddOn 'CharacterProfiler'
FileInstall("D:\MoonRoster\dotNetFx35setup.exe", "C:\MoonRoster\dotNetFx35setup.exe")
FileInstall("D:\MoonRoster\UniUploader_2.6.8_Moons.exe", "C:\MoonRoster\UniUploader_2.6.8_Moons.exe")
; Eintragung der Dateien für das AddOn 'CharacterProfiler'
FileInstall("D:\MoonRoster\CharacterProfiler\CharacterProfiler.lua", "C:Programme\World of Warcraft\Interface\AddOns\CharakterProfiler\CharacterProfiler.lua")
FileInstall("D:\MoonRoster\CharacterProfiler\CharacterProfiler.toc", "C:Programme\World of Warcraft\Interface\AddOns\CharakterProfiler\CharacterProfiler.toc")
FileInstall("D:\MoonRoster\CharacterProfiler\localization.lua", "C:Programme\World of Warcraft\Interface\AddOns\CharakterProfiler\localization.lua")
FileInstall("D:\MoonRoster\CharacterProfiler\rpgo.core.lua", "C:Programme\World of Warcraft\Interface\AddOns\CharakterProfiler\rpgo.core.lua")
FileInstall("D:\MoonRoster\CharacterProfiler\rpgo.lib.lua", "C:Programme\World of Warcraft\Interface\AddOns\CharakterProfiler\rpgo.lib.lua")
; Installation von .NET Framework
If FileExists("C:\Programme\Microsoft.NET") Then ; Überprüfung ob .NET Framework bereits installiert ist
MsgBox(64, "Legends of Moon", "Microsoft .NET Framework ist bereits installiert", 4)
Else
Run("C:\MoonRoster\dotNetFx35setup.exe")
WinWaitActive("Microsoft .NET Framework 3.5-Setup", "Willkommen")
Send("+{TAB}")
Send("{SPACE}")
Send("{ENTER}")
WinWaitActive("Microsoft .NET Framework 3.5-Setup", "Setup ist abgeschlossen")
Send("{ENTER}")
EndIf
;Installation des UniUploaders
If FileExists("C:\Programme\UniUploader") Then ; Überprüfung ob der UniUploader bereits installiert ist
MsgBox(64, "Legends of Moon", "Der UniUploader ist bereits installiert", 4)
Else
Run("C:\MoonRoster\UniUploader_2.6.8_Moons.exe")
WinWaitActive("Installer Language", "Please select a language")
Send("{ENTER}")
WinWaitActive("UniUploader Installation", "Willkommen beim Installations")
Send("{ENTER}")
WinWaitActive("UniUploader Installation", "Lizenzabkommen")
Send("{ENTER}")
WinWaitActive("UniUploader Installation", "Zielverzeichnis auswählen")
Send("{ENTER}")
WinWaitActive("UniUploader Installation", "Startmenü-Ordner bestimmen")
Send("{ENTER}")
WinWaitActive("UniUploader Installation", "UniUploader wurde auf Ihrem Computer installiert")
Send("{ENTER}")
EndIf
;Löschen der nicht mehr benötigten Dateien
DirRemove("C:\MoonRoster" 1)
Vielen Dank
Legatos
... .exe-Datei (die ich ja mit AutoIt erstellen möchte) auf der Homepage als Download angeboten werden. Durch diese soll dann, wie schon oben beschrieben, eine zip-Datei von der HP auf Laufwerk C: geladen werden. Diese enthält dann alle weiteren benötigten Daten (.NET Framework-Installer, UniUploader-Installer, den zu verschiebenden Ordner). Aber um auf diese Daten zugreifen zu können muss dann ja die zip-Datei erstmal entpackt werden (z.B. auf C:).
Ich muss ja davon ausgehen, dass die User keine benötigten Daten schon haben und möchte alle Daten in dieser zip-Datei zur Verfügung stellen. Und da der gesamte Vorgang der Einrichtung etwas umständlich ist möchte ich es den Usern einfach machen und automatisieren.
Danke schonmal für die vielen Infos.
So wie ich es bis hierhin verstanden habe wird die zip-Funktion dann erst durch die Einbindung von zip.au3 hergestellt. Dann müsste ja theoretisch jeder User unserer Gilde sich 2 Dateien downloaden. Oder kann man die zip.au3 über den Befehl FileInstall einbinden? Muss ich mein script einfach nach dem Download um
#include<zip.au3>
_Zip_UnzipAll('c:\dein.zip', 'c:\Unzip_Test', 4) ; quelle, ziel, flag
ConsoleWrite(@error & @CRLF)
erweitern?
Wie gesagt - es soll eigentlich so sein, dass sich jeder nur eine kleine .exe runterlädt (die die ich erstellen möchte). Durch deren Start soll eine ZIP-Datei (ohne passwort) von unserer Gildenhomepage runtergeladen und entpackt werden. Danach folgen daraus im Bedarfsfall die nötige Installation von .NET-Framework, die Installation des Tool "UniUploader" und das Kopieren eines Ordners nach C: automatisch. Am Ende sollen die ZIP-Datei und der entpackte Ordner wieder gelöscht werden.
Soweit bekomme ich bestimmt auch alles hin, nur diese Sache mit dem Entpacken stellt mich echt vor Probleme, da ich quasi erst vor 3 tagen über AutoIt gestolpert bin. Ich habe auch schon nach deutscher Hilfe, die auch ein Anfänger versteht gesucht, bin aber bisher leider nicht fündig geworden.
Grüße
Legatos
Die Übersetzungen von Google sind wirklich misserabel, aber ich werde mich dann mal dransetzen und versuchen erstmal alleine damit klarzukommen.
In dem downloadbaren zip-File waren nur so viele kleine Unterordner und dateien. ich weiss nicht genau was ich damit machen soll. Ich werde es jedenfalls erstmal alleine versuchen und mich dann später wieder melden...
Momentan sitze ich an einem PC ohne AutoIt. Im Ordner "bin" der zip-Datei befinden sich 3 au3-Dateien. Binde ich damit eventuell die ZIP-Funktionen in AutoIt ein?
Legatos
nur leider ist englisch überhaupt nicht meine Lieblingssprache.
"_ZipUnZip($ZipFile,$Dest) UnZips the archive to the specified folder."
scheint ja schonmal der richtige Befehl zu sein. Aber soweit ich es verstanden habe muss am Programm selbst noch etwas verändert werden.?
Kann mir das bitte jemand mal recht simpel und auf deutsch erklären?
THX vielmals
Ich habe ein Projekt begonnen (übrigens mein erstes), wobei eine zip-Datei von unserer GildenHomepage automatisch runtergeladen und diese dann nach C: entpackt werden soll. Alles Weitere (Installation, Ordner verschieben, etc.) bekomme ich hoffentlich selbst hin.
Es soll später so sein, dass alle Gildenmitglieder einfach die autoit.exe downloaden, starten und sich dann alle Einstellungen und Installationen von selbst erledigen. Die Überprüfung und Installation von .NET Framework habe ich soweit schon fertig; es soll noch die Installation eines kleinen Tools folgen und ein Ordner (aus der zip-Datei) verschoben werden. Danach sollen alle runtergeladenen Dateien noch gelöscht werden.
Kann mir bitte jemand sagen, wie man mit AutoIt ein automatisches Entpacken in einen bestimmten Ordner bewerkstelligt?
Danke schonmal...
