Beiträge von Eddy_Erpel

Bernd: Stimmt da habe ich mein Hrin wohl vom NowDate aus der Vorlage zu sehr verleiten lassen :lol: Zum Glück gibt es so aufmerksame User

eddy_erpel

Hi,
danke für die Lorbeeren.
Hier noch zu deiner letzte Frage:
Global $datei = ( _NowDate() & "." & _NowTime() & " .ping.log")

eddy_erpel

Hallo,
Das Problem liegt in der Zeile 48. GuiDelete solltest du da erst ein bisschen später machen.....

eddy_erpel

Hi,
wenn ich alles richtig verstanden habe, sieht es dann etwa so aus:

;Include Dateien werden geladen  
#include <GUIConstants.au3>  
#include <file.au3>  
#include <Date.au3>    


dim $ping[4]


;Zeigt mir schmutzige Debugging-Infos an  
opt("TrayIconDebug", 1)    


;Guischriftart wird gesetzt  
$font = "Arial Black"    


;Hauptfenster wird erstellt (Genial)  
GUICreate("Ping some Ass Baby",250,270)
GUISetBkColor (0x8AB7EA)    


;Erstellt die Überschriften ("Titel",Links,Höhe,Breite)
$label1 = GUICtrlCreateLabel("Server              Status",10,25,200)
GUICtrlSetFont($label1,11,700,$font)    


;Erstell die Server-Labels
GUICtrlCreateLabel("Lxmain",11,50,70) 
GUICtrlCreateLabel("Ntmain",11,80,70)
GUICtrlCreateLabel("Notesapp",11,110,70)
GUICtrlCreateLabel("Notesmail",11,140,70)


;Erstell den begehrten Button
$pingdemall = GUICtrlCreateButton ("2", 12,180,40,40,$BS_ICON)
GUICtrlSetImage (-1, "shell32.dll",22)


;Events beim Buttondrücken
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUICtrlSetOnEvent($pingdemall, "Pingdem")    


;IP Adressen Variablen  
$ping[0] = Ping("192.168.1.1",250)  
$ping[1] = Ping("192.168.2.1",250)  
$ping[2] = Ping("192.168.2.2",250)  
$ping[3] = Ping("192.168.2.3",250) 


;Erstellt die Variablen
Global $datei = ( _NowDate() & " ping.log")
Global $pinglog = FileExists($datei)
Global $file = FileOpen($datei, 1)   


;Funktionen
Func Pingdem() 
	for $i=0 to UBound($ping)-1    ;Schlaufe zur Auswertung und Darstellung der Pings
		if $ping[$i] Then
			GUICtrlCreateIcon ("shell32.dll",9 ,115,45+(30*$i),25,25) ;Icon Online
		Else
			GUICtrlCreateIcon ("shell32.dll",10 ,115,45+(30*$i),25,25) ;Icon Offline
		EndIf
	Next


	If $pinglog = 0 then
		 _FileCreate("$datei")
	EndIf    


	;Checkt ob Datei geöffnet ist  
	If $file = -1 Then  
		  MsgBox(0, "Error", "Schließ das Logfile du Affe.")
	EndIf 


	;Schreibt den Wert in die Log
	FileWrite($file, "Gepingt am " & _Now() & @CRLF)


	;Schließt die Datei Dirty
	FileClose($file) 
EndFunc    


Func CLOSEClicked()
Exit
EndFunc


;Zeigt die erotische Gui an
GUISetState(@SW_SHOW)


;Hält die Gui am leben
While 1
    $msg = GUIGetMsg()
	if $msg = $pingdemall Then Pingdem()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
sleep (1)
Wend

eddy_erpel

Hallo
und :willkommen:. Hier findest du die Infos dazu: CPU-Usage

Gruss
eddy_erpel

Hi,
hier gibt es jede Menge dazu: ExcelCom

eddy_erpel

Ich kenne so gerade nur diesen Weg:
1. run("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2")
2. dann einfach das Häkchen beim Indexdienst wegmachen installation beenden und der Spuck ist vorbei

Dann wird es allerdings gleich bei allen Laufwerken abgeschalten.

eddy_erpel

Was ist $raum_read???? Ein Verzeichnis( C:\) oder ein FilePfad (C:\test.txt)?
Damit DirCreate funktioniert wie du es möchtest müsste es ein Verzeichnis sein (Sonst macht er ein Verzeichnis c:\test.txt\). Aber dann kann FileMove unmöglich funktionieren, da dann der Filename fehlt, oder du eine Wildcard vergessen hast ("*.txt")
Weshalt legtst du die Datei denn nicht gleich im Zeilverzeichnis an?

eddy_erpel

Hi,
der macht ja nur, was du ihm gesagt hast. Ohne GUICtrlRead gibt er die controlID zurück und nicht den enthaltenen Text. Zeile 37 müsste so lauten:

$handle=FileOpen(GUICtrlRead($raum) &".txt",1)

edit: @hessebou habe gerade gesehen, dass du es auch gesehen hast
eddy_erpel

Hi,
etwa so sollte es gehen:

$handle=FileOpen($raum &".txt",1)

Poste einmal den bisherigen Code wegen dem anderen Problem...
eddy_erpel

Hi,
wenn du die Datei config.au3 includest bist du ja trotzden nicht flexibel.

Vorschlag 1:

IniRead ( "filename", "section", "key", "default" )

Vorschlag 2:

if cmdline[0]=2 then 
  $unc=cmdline[1]
  $freigabe=cmdline[2]
else
  msgbox(16,"Error","Ungültige eingabe..."
endif

Das zweite Bsp. kannst du dann so aufrufen: "deinfile.exe \\uncpfad freigabepfad".

eddy_erpel

Hallo,
aus diesen Infos kannst du nicht sehen ob es blockiert wird oder nicht.
Versuch es doch einmal über ControlSend
eddy_erpel

Hallo,
die IP-Ermitteln ist ganz einfach (Benötigt Beta):

TCPStartup()
msgbox(0,"IP???",TCPNameToIP("TheMachineNextToYOU"))

Zu Nr2 hilft dir ev das: Animated Gif

eddy_erpel

Hallo,
ich denke Du meinst etwa so:

Run(@comspec & " /k xcopy " & $pfad1 & " " & $pfad2 & " /T")

eddy_erpel

Hallo,
Vielleicht hilft es wenn du vor den ControlClicks noch ein ControlFocus einfügst.

eddy_erpel

Hallo,
ich habe es auch einmal ausprobiert und kann mich da nur der Aussage von Bernd anschliessen. Funktioniert tadellos, sowohl mit der 3.1.1.0 als auch mit der 3.1.1.127.

eddy_erpel

Hallo,
also mein vorschlag wäre folgender:
Lade Autoit als zip. Extrahiere das au3info.exe. Dann kannst du die Installation durchspielen, alles notieren und anschliessend das Script erstellen. Habe das hier einmal gemacht:

run("c:\autoit-v3-setup.exe")
winwaitactive("AutoIt v3.1.1 Setup","Welcome to the AutoIt v3.1.1 Setup Wizard")
controlclick("AutoIt v3.1.1 Setup","&Next >",1)
winwaitactive("AutoIt v3.1.1 Setup","END-USER LICENSE AGREEMENT FOR THIS SOFTWARE")
controlclick("AutoIt v3.1.1 Setup","I &Agree",1)
winwaitactive("AutoIt v3.1.1 Setup ","Destination Folder")
ControlClick("AutoIt v3.1.1 Setup ","&Install",1)
WinWaitActive("AutoIt v3.1.1 Setup","Click Finish to close this wizard.")
ControlClick("AutoIt v3.1.1 Setup","&Finish",1)

eddy_erpel

Hallo,
habe ich vergessen zu posten, dass dafür die Beta nötig ist.
eddy_erpel

Hallo,
ich denke einmal ich habe den Fehler gefunden. Wenn ich das Script ausführe (F5) bekomme ich auch die selbe Fehlermeldung. Wenn ich es aber unter der Beta ausführe (Alt+F5) läuft es durch. Damit es auch unter der Prod-Umgebung läft müsste man das InstallDir (HKLM\Software\AutoIT v3\Autoit\InstallDir) auf den aktuellen Pfad anpassen. Oder aber die AutoIt3Wrapper-Datei anpassen (Zeile 104).
Ich benutzt SciTE 1.69.
eddy_erpel

Hi,
dann versuch es einmal so

Run("\\server\psexec.exe \\" & @ComputerName & "cmd.exe")  ;Diese Variante ist zu bevorzugen

oder so:

Run(@comspec & " /k \\server\psexec.exe \\%computername%\cmd.exe","",@SW_HIDE)

eddy_erpel