Beiträge von sc4ry

Hi Oscar,

sehr nettes script, kann mich noch an die alte Version erinnern, da gefällt mir das auch schon viel besser =)
ne kleinigkeit vermisse ich noch, wäre es möglich noch USER und LOCALGROUPS einzubinden? also zumindest werlche user und gruppen es gibt?

PS: was mir noch auffällt, das jedes mal die tabs neu geladen werden, wenn ich dazwischen switche. ist doch (zumindest bei den meisten tabs) unnötig, da sich doch eh nix ändern kann, während das tool läuft, oder? (ausnahme wäre vllt laufwerke, wenn usb-stick/hdd drangestöpselt wird.

hey, ihr 2 ...
das sind beides sehr nette möglichkeiten, die ordner aufzulisten.
leider habe ich mich noch nicht für eine entschieden, aus dem grund, da mir noch diverse angaben fehlen (wie bei dir).
jetzt habe ich nur kein plan, wo ich das einbauen müsste (z. B. größe, zeit, usw).

kann mir wer helfen und dürfte ich eure udf für meine zwecke anpassen ?

Hi,

das hatte ich schon im Auge, wobei ich mir nicht 100%tig sicher bin, dass es Fehlerlos das macht, was ich will.
Das habe ich gebastelt, wenn noch wer was anderes hat (API-Befehl o. ä.) dann her damit =)

Do
Dim $Stats_Old[2]
$Stats_Old[0] = $Stats_New[0]
$Stats_Old[1] = $Stats_New[1]
$Stats_New = ProcessGetStats($PID)
Sleep(1000)
Until $Stats_Old[0] = $Stats_New[0] And $Stats_Old[1] = $Stats_New[1]
ProcessClose($PID)

Hallo,

ich müsste rausfinden, ob ein Process noch arbeitet, ist das möglich?
leider beendet sich der Prozess nach getaner arbeit nicht von selber ...

hey, hat jmd ne idee, wie man nen speedtest mit autoit fertigbringen könnte?
also tcp und evtl sogar ftp? das man am ende des up/down-speed angezeigt bekommt?

Hey progandy,

besten Dank, damit gehts schonmal wesentlich schneller als mit meiner billigen filewrite-variante.
das werd ich nehmen, thx =)

da hatte ich auch erst dran gedacht, dauert jedoch relativ lange und beansprucht die cpu sehr. um die cpu zu entlasten, würde es noch länger dauern

also dieses fsutil hat mir schon gefallen, in 1 sek ne 100MB-Datei zu erzeugen =)

Hi, danke für den Tip, das sah schonmal gut aus, benötigt aber immer Admin-Rechte =/
gibts noch ne Lösung, wo man nicht zwingend ein Admin sein muss?

hmm, ok, danke für den tip ... die groups liefen schonmal durch =)

Hi,

wie kann man mit AutoIt schnell und einfach eine Datei mit ca. 5 MB größe erstellen?
Will keine Datei inlcuden, weil die source-datei dann so groß ist.

Hi,

und zwar wollte ich ein kleines Info-System basteln, wo ich über die CompInfo.au3 gestolpert bin -> http://www.autoitscript.com/forum/index.php?showtopic=29404

soweit funktioniert auch alles, ausser die Abfrage von GROUPS und USERN ... ist das bei euch auch so?
Ich lass einfach das Bsp-Script durchlaufen, aber die 2 Sachen sind nach 10 Min noch immer nicht fertig

hey, dank euch. hab mir grad mal alle sachen angeguckt, sind sehr schöne sachen bei.
brauch das ganze nur als momentaufnahme als text, werd mir also das passende aus den funcs raussuchen.

aber großes danke

Hallo,

kann man irgendwie schnell/ ohne include, die cpu-auslastung/ ram/ benutzen ram abfragen?

hey,

habs mal als au3 hochgeladen. benenn das teil in csv um, dann ist es das, was ich rausbekomme.
sind nur die überrschriften, aber da ist schon ein umlaut drin.

wenn ich es in excel importiere, wähle ich "Unicode (UTF-8)" aus.

das ganze wäre natürlich die alternative und mir pers. auch recht ... ich hatte auch schon die umwandlung von csv nach xls programmiert, bis mir leider aufgefallen ist, dass am ende die zeichencodierung nicht stimmte (die umlaute werden in Hieroglyphen angezigt).

in autoit ist mir leider nicht bekannt, wie ich das problem beheben soll. was haste denn dafür anzubieten *g*

Hey,

was mir grad auffällt, vllt könnte man analog zum java-forum auch eins für VBA machen =)

mein prob ist folgendes. ich bräuchte ein makro, dass mir diverse dateien importiert und als xls abspeichert.
das ganze könnte ich natürlich easy mitm aufzeichnungs-assi machen, dass mir aber auch zu lame.

leider funzt aber irgendwas bei mir net richtig, und da ich auch nur ab und zu mal was mit vba mache, komm ich nicht dahinter, was ...

ich möchte als aus 1 ordner, dass alle dort enthaltenen csv-dateien nacheinander in ein neues dokument importiert werden (UTF-8, ;-getrennt) und dies dann in nem neu angelgten ordner als xls gespeichert wird.

folgendes habe ich schon, aber es läuft nicht:

Zitat

Sub Langzeitkranke()
'
' Langzeitkranke Makro
' Makro am 19.10.2009 von plutod aufgezeichnet
'

'
Application.DisplayAlerts = False
If Not FolderExists("Y:\18000_Syst_Tools_IOM_Rep_Auth\18100_Key_Topics\18150_Reporting\18152_Monthly_Reports\Langzeitkranke\" & Format(CDate(Day(Now) & "." & Month(Now) & "." & Year(Now)), "YYYY MM") & "\") Then MkDir "Y:\18000_Syst_Tools_IOM_Rep_Auth\18100_Key_Topics\18150_Reporting\18152_Monthly_Reports\Langzeitkranke\" & Format(CDate(Day(Now) & "." & Month(Now) & "." & Year(Now)), "YYYY MM") & "\"

Dim sFile As String, sPattern As String, sPath As String
Dim iRow As Integer
sPath = "Y:\" ' Hier gibst Du Deinen Pfand zum gewünschten Verzeichnis an
sPathNew = "Y:\" & Format(CDate(Day(Now) & "." & Month(Now) & "." & Year(Now)), "YYYY MM") & "\"
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
sPattern = "*.csv"
sFile = Dir(sPath & sPattern)

Do Until sFile = ""
iRow = iRow + 1

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;sPath & sFile" _
, Destination:=Range("A1"))
.Name = "bem"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = -535
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True

End With

ChDir sPathNew
ActiveWorkbook.SaveAs Filename:= _
sPathNew & Left(sFile, Len(sFile) - 3) & "xls" _
, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

sFile = Dir()
Loop

Application.DisplayAlerts = True

End Sub

Alles anzeigen

einige Fehler konnte ich schon beheben, aktuell hängt das Teil hier: "TEXT;sPath & sFile" _

nette idee =)

die berechnung der zeit sollte aber vllt was realistischer sein

Simulation.exe /m=0 /p=schniedelwutz
Password erfolgreich geknackt in 21.01 Sekunden!

das ganze hat vllt 2-3 sek gedauert =)

wenn ich das mit m=1 ausfähre, ist es korrekt (3,73 sek).

PS: als Idee, was auch ganz nett sein könnte:

ne eigene gui im cmd-stil (oder ein cmd fenster worüber ein anderes fenster liegt. es wird eine stelle nach der anderen berechnet und auf dieser position laufen dann alle buchstaben durch, bis der korrekt da ist, dann zeichen 2 etc (wahlweise laufen auch alle gleich und halten einfach in unterschiedlicher reihenfolge, wie beim spielautomaten).

thx pro ... genau das hab ich gesucht, einfacher gehts nicht =)

übrigens, zumindest von diesen icon-watcher ... das ausgewählte icon ist -1, -2 ist leer, -3 das rote kreuz, -4 ein quadrat mit nem kreuz drin und ab -5 dann die, die mit mitm wrapper zusätzlich integriert =)

Hiho, und zwar suche ich eine möglichkeit, wie ich mehrere Icons in mein Script packen kann ... und das ohne FileInstall.

Beim compilen kann man ja ein Icon auswählen, womit die exe dann im explorer dargestellt wird. ich bräuchte nun ein 2tes Icon, zwischen denen ich das TraySymbol switchen kann.

wenn ich mir nämlich die kompilierte exe nachher mit dem "icon selector by ordinal value" anschaue, sehe ich, dass noch 2 weitere icons in der datei enthalten sind, unter anderem das rote X, welches anzeigt, dass das script pausiert ist.

gibts da was?

Hey, dank dir für den Tip, so hat es zwar nicht ganz geklappt, aber dort gab es auch die Funktion, Größe verändern ... und damit hats geklappt.

Big THX =)