Zum Inhalt springen

Eratum

Mitglieder
 Profil anzeigen  Aktivitäten des Benutzers anzeigen

  • Gesamte Inhalte

    780

  • Benutzer seit

  • Letzter Besuch

  • Tagessiege

    6

 Inhaltstyp 

Beiträge von Eratum

    Durchschnittliche CPU Last

    in Windows

    Geschrieben

    Hallo ihr Mit--Informatiker da draussen.

    Wieder einmal stehe ich vor einem, für meine Begriffe, schwerwiegendem Porblem.

    Unter Linux Betriebssystemen existiert ein Befehl der die durchschnittliche Prozessorlast ausgibt (der letzten 5, 10 und 15 Minuten oder so ähnlich).

    Nun wurde ich damit beauftragt eben etwas zu basteln was exakt dies in Windows bewerkstelligt. Da das Tool nicht die ganze Zeit laufen soll, müsste man so zu sagen auf eine Windows interne Klasse, funktion o.ä. zurückgreifen. Meine Frage nun:

    Gibt es denn soetwas unter Windows? Wenn ja wie greife ich per Skript am besten darauf zu?

    Ich habe jetzt schon ein wenig das Netz durchforscht allerdings ohne jeglichen Erfolg.

    Mein Dank geht shconmal raus an die Leute, die sich hier meinetwegen hoffentlich ordentlich das Hirnschmalz durcheinanderwirbeln....

    Dere Eratum

    Windows Install Package Erstellen

    in Anwendungssoftware

    Geschrieben

    HalliHallo.

    oflgendes Problem zermarttert mir gerade das Hirn:

    Ich such ein gutes (mgl. Freeware, wneigstens Testversion) Tool um eine Installationsdatei für WIndows zu erstellen. Hab shcon übel rumgegooglt aber bis jetzt ohne Erfolg. Das Programm sollte in der Lage sein, selbstständig und ohne Probleme noch ein VBSkript oder eine Batch nach der Install ausführen zu können.

    Kennt jemand ein gutes Tool was mir bei der bewältigung meiner Aufgabe helfen könnte?

    Dateiinhalte suchen und ersetzen

    in Basic

    Geschrieben

    Phew...also wenn ich ehrlich sein darf hab ich aus deiner Antwort kaum etwas verstanden :confused:

    Wäre es möglich das ganze etwas Laienhafter auszudrücken, bzw. mit einem kleinen Codebeispiel zu belegen?

    Die Benamsung wollt ich denn ändern wenn ich fertig bin, jetz hatte ich das zum Testen nur mal fix so hingebastelt....

    Dennoch schonmal Danke für die Hilfe...

    Dere Eratum

    Edit:

    Kann ich ein und die selbe Datei gleichzeitig zum lesne und zum Schreiben öffnen?

    Edit2:

    Hab es inzwischen hinbekommen. Sollte es irgendwen mal interessieren:

    
dim fsx,fs,ordner,name, DateiWrite

dim filesystemobject

dim strFalsePath

strFalsePath="D:\Programme\SCC"



'-----------------Scriptordner bestimmen-------------


set fsx = CreateObject("Scripting.FilesystemObject")


scriptname = Wscript.ScriptFullName

scriptpath = fsx.getparentfoldername(scriptname)

scriptpathnew = Left(scriptpath,Len(scriptPath)-1-(Len(scriptPath)-InstrRev(scriptpath,"\")))


'----------------------------------------------------




'----------------------------------------------------


set fs = CreateObject("Scripting.FileSystemObject")

set ordner = fs.GetFolder(scriptpath)


For each datei in ordner.Files

   Dateiname = datei.name

   if Dateiname <> "rename.vbs" then

	   Set DateiRead = fs.OpenTextFile(Dateiname)

	   inhalt = DateiRead.ReadAll

	   if instr(inhalt,strFalsePath) <> 0 then

		DateiRead.close

		inhalt = Replace(inhalt,strFalsePath,scriptPathnew)

		fs.DeleteFile(Dateiname)  	

		Set DateiWrite = fs.OpenTextFile(Dateiname,8,true)

		DateiWrite.write inhalt

		DateiWrite.close

	   end if

   end if

Next



set fs=nothing

set fsx=nothing

set ordner=nothing

    Dateiinhalte suchen und ersetzen

    in Basic

    Geschrieben

    Phew...also wenn ich ehrlich sein darf hab ich aus deiner Antwort kaum etwas verstanden :confused:

    Wäre es möglich das ganze etwas Laienhafter auszudrücken, bzw. mit einem kleinen Codebeispiel zu belegen?

    Die Benamsung wollt ich denn ändern wenn ich fertig bin, jetz hatte ich das zum Testen nur mal fix so hingebastelt....

    Dennoch schonmal Danke für die Hilfe...

    Dere Eratum

    Edit:

    Kann ich ein und die selbe Datei gleichzeitig zum lesne und zum Schreiben öffnen?

    Dateiinhalte suchen und ersetzen

    in Basic

    Geschrieben

    Hallo liebe Leute...

    Wieder einmal hakt es bei mir mit der VBS Programmierung. Ich habe mir ein kleines Script gebaut, welche Die Dateiinhalte sämtlicher Dateien, des Ordners in dem das Script liegt, manipuliert. Aber irgendwie fehlt mir hier gerade voll der Denkanstoß. Es funktioniert alles wunderbar, nur eben das schreiben der neuen Daten in die Dateien, das bekomm ich nicht hin.

    Wäre net, wenn mir jemand helfen könnte.

    Dere Nico

    
dim fsx,fs,ordner,name, Dada

dim filesystemobject

dim strFalsePath

strFalsePath="D:\Daten\SCC"



'-----------------Scriptordner bestimmen-------------


set fsx = CreateObject("Scripting.FilesystemObject")


scriptname = Wscript.ScriptFullName

scriptpath = fsx.getparentfoldername(scriptname)


'----------------------------------------------------




'----------------------------------------------------


set fs = CreateObject("Scripting.FileSystemObject")

set ordner = fs.GetFolder(scriptpath)




For each datei in ordner.Files


   name = datei.name

   msgbox (name)

   Set Dada = fs.OpenTextFile(name)

   inhalt = Dada.ReadAll

'   msgbox (inhalt)

   inhalt = Replace(inhalt,"a","Ulumulu")

' [COLOR="Red"]Ich vermute, dass hier noch ein bisschen Quelltext fehlt[/COLOR]   

'   msgbox (inhalt)

   dada.close      

Next



set fs=nothing

set fsx=nothing

set ordner=nothing

    Loop endet in Dauerschleife

    in Basic

    Geschrieben

    cool, du hast ja wirklich noch weiter geschaut :-)

    Hrm...also mein Kollege meinte, dass es eigentlich keinen Einfluss haben sollte, deswegen bin ich das einfach übergangen...Hrm...Hast du probiert ob es funktioniert, wenn du den ganzen Mist ins Deutsche protierst?

    Loop endet in Dauerschleife

    in Basic

    Geschrieben

    Also ich hab die Stelle jetzt nicht gefunden. Da ich jetz noch ein paar andere Sachen zu tun habe, werde ich es auch erst einmal debei bewenden lassen. Sollte dieses Problem nun allerdings jemandem Schlaflose Nächte bereiten, weil er einfach viel ehrgeiziger ist als ich, dann kann er sich das Programm auch herunterladen und noch weiter tüfteln (positive Ergebnisse, wären dann natürlich schön zu lesen *g*) :D

    http://www.openeyet.nl/scc/download.html

    Die Install for windows ist die, die ich verwende (scc-0_10b.exe). Das problem befindet sich in der Scc2Html.vbs .

    An dieser Stelle schonmal vielen Lieben Dank für die Mithilfe an dieser Stelle. Sollte ich mich durchricngen können mich noch ein wenig mit dem problem zu befassen, werde ich hier umgehend Meldung geben...

    Wie gesagt Danke euch erstmal....

    Dere nico

    Loop endet in Dauerschleife

    in Basic

    Geschrieben

    Es handelt sich um "On Error resume Next" ... Beim durchlauf bekomme ich immernoch keine fehlermeldung ausgespuckt. Ich werd mal sehen ob noch irgendwo andere Verbergen, die rauszunehmen sind...

    Hrm, stimmt, Division durch 0 wäre logisch gewesen...

    Von welcher zeile sprichst du genau?

    Loop endet in Dauerschleife

    in Basic

    Geschrieben

    Also wenn ich den entsprechenden "On Error..." rausnehme läuft er ohne Probleme durch, hat dann allerdings nicht die beabsichtigte Tabelle dabei.

    An dieser Stelle hat "total" den "664" was natürlich einiges erklären würde, oder?

    Der Wert von Total errechnet sich aus der Addition der beiden Summanden Varcount und Fixcount, welche in folgender Schleife (gleiche Sub) berechnet werden:

    
        Do Until TextStreamIn.AtEndOfStream

                inputLine = TextStreamIn.ReadLine

                inputLevel = Split(inputLine, ":", 4, 1)

                If (UBound(inputLevel) >= 3) Then                       'skip empty lines

                        If (inputLevel(2) = currentSubClass) Then       'count number in subClass

                                subClassCount = subClassCount + 1

                        Else                                            'calculate number of entries for each subclass

                                If (currentSubClass <> "###start_sub_class###") Then

                                        count = count + 1

                                        ReDim Preserve subClass(count)

                                        ReDim Preserve subCounter(count)

                                        subClass(count) = currentSubClass

                                        subCounter(count) = subClassCount

                                End If

                                currentSubClass = inputLevel(2)

                                subClassCount = 1

                        End If

                        If (inputLevel(1) = currentSccClass) Then               'increment scc class counter

                                sccClassCount = sccClassCount + 1

                        Else                    'write all subclasses and totals to tempfile

                                If (currentSccClass <> "") Then

                                        For i = 1 To count

                                                TextStreamTemp.WriteLine (currentSccClass & _

                                                                        ":" & _

                                                                        sccClassCount & _

                                                                        ":" & _

                                                                        subClass(i) & _

                                                                        ":" & _

                                                                        subCounter(i))

                                        Next

                                End If

                                currentSccClass = inputLevel(1)

                                sccClassCount = 1

                                count = 0

                                ReDim subClass(count)

                                ReDim subCounter(count)

                        End If

                        If (UCase(inputLevel(0)) = "FIX") Then          'increment fix and var counters

                                fixCount = fixCount + 1

                        Else

                                varCount = varCount + 1

                        End If

                End If

        Loop

    Loop endet in Dauerschleife

    in Basic

    Geschrieben

    So...nachdem ich mich gestern noch diverser anderer Probleme angenommen habe, bin ich nun heut morgen dazu gekommen mich wieder dem mit der Dauershcleife zu widmen.

    Es ist tatsächlich so, dass das Programm einfach nur eine leere endlose Tabelle produziert bis der Speicher voll

    <TR>

       <TD> </TD>

       <TD>file(s)</TD>

       <TD> </TD>

       <TD> </TD>

       <TD>C \WINNT\win.ini::layout=0</TD>

</TR>

    Hrm...also ich habe keine wietere Idee was da nun zu tun wäre....Ihr vieleicht?

    Loop endet in Dauerschleife

    in Basic

    Geschrieben

    danke euch erstmal....da, wie beschrieben, dieses Problem eher sekundär ist, werde ich das zu gegebenem Zeitpunkt ausprobieren, sprich wenn der ganze Rest lauffähig ist...

    Soweit shconmal danke für die Antworten

    Dere Nico

    Loop endet in Dauerschleife

    in Basic

    Geschrieben

    Hallo ihr alle...

    Ich stehe gerade vor einem kleinen Problem. Zum auslesen und weiterleiten von Rechnerdaten, hat mein Ausbilder mir ein prog besorgt was genau dies tun sollte. Ausgegeben wird letztendlich eine HTML Datei. Da das Programm zuerst eine Art Log Datei schreibt, wird schliesslich noch ein Script zum Umwandeln in HTML benötigt. Dieses ist in Form einer .vbs auch vorhanden. Das Problem welches sich mir hier auftut ist folgendes:

    a) Das Programm verheddert sich in einer Dauerschleife

    B) Da die ganze zeit weiter in eine HTML geschrieben wird, wird diese immer größer bis der virtuelle Speicher des Rechners nimmer ausreicht

    Die folgende Passage konnten wir bisher als Fehlerquelle definieren:

    
'---Retrieve info from sorted tempfile and write results to snapshot

        Do Until TextStreamTemp.AtEndOfStream

                inputLine = TextStreamTemp.ReadLine

                inputLevel = Split(inputLine, ":", 4, 1)

                If (UBound(inputLevel) >= 3) Then               'skip empty lines


                        '---Write SCC Class totals

                        If currentSccClass <> inputLevel(0) Then

                                TextStreamOut.WriteLine ("<TR>")

                                TextStreamOut.WriteLine ("       <TD>" & inputLevel(0) & "</TD>")

                                TextStreamOut.WriteLine ("       <TD>" & " " & "</TD>")

                                TextStreamOut.WriteLine ("       <TD>" & inputLevel(1) & "</TD>")

                                TextStreamOut.WriteLine ("       <TD>" & Round((inputLevel(1) / total) * 100) & "</TD>")

                                TextStreamOut.WriteLine ("       <TD>" & " " & "</TD>")

                                TextStreamOut.WriteLine ("       <TD>" & " " & "</TD>")

                                TextStreamOut.WriteLine ("</TR>")


                                currentSccClass = inputLevel(0)

                        End If


                        '---Write SubClass totals; general has no subclass.

                        If inputLevel(2) <> "" Then

                                TextStreamOut.WriteLine ("<TR>")

                                TextStreamOut.WriteLine ("       <TD>" & " " & "</TD>")

                                TextStreamOut.WriteLine ("       <TD>" & inputLevel(2) & "</TD>")

                                TextStreamOut.WriteLine ("       <TD>" & " " & "</TD>")

                                TextStreamOut.WriteLine ("       <TD>" & " " & "</TD>")

                                TextStreamOut.WriteLine ("       <TD>" & inputLevel(3) & "</TD>")

                                TextStreamOut.WriteLine ("       <TD>" & Round((inputLevel(3) / total) * 100) & "</TD>")

                                TextStreamOut.WriteLine ("</TR>")

                        End If

                End If


	Loop

    Nun ist es an dem armen kleinen Azubi (mir) den Fehler zu beheben. Da ich das nach 2 Tagen rumprobieren und rumforschen irgendwie noch nicht auf die Reihe bekommen habe bitte ich euch um Mithilfe...

    THX...Dere

    P.s.: Gerad ekam mein Ausbilder rüber und meinte dies sei gar ni der Primäre Punkt der Aufgabenstellen *rummoser*

    Alkohol anm Steuer

    in Small Talk

    Geschrieben

    (würde nie ohne fahren Gany)

    kommentar? Mach's mit!

    Öhm, also ich bin noch nie bewusst mit Alk intus gefahren. Aber genuch Reste warn bestimmt auch shcon dabei, dass de rLappen wech wäre. Das heimtückische am Restalk is ja, dass man vl. nen Schädel hat aber sonst net merkt, das man eigentlich ncoh im Tee is...

    Dere Eratum

    Mal was für die erfahrenen Liebhaber/innen

    in Small Talk

    Geschrieben

    Ich kenne nur leider keinen Mann, der sich das auch wünscht...und alleine kann man sie ja auch nich hinschicken :D

    Also ich hab schon zwei Tanzkurse hintermir und wiederhol des grad nochmal mit meiner liebsten. Ich find das schön. Ausserdem isset imma gut irgendwas Gesellschaftstanzmäßig drauf zu haben. (Und das sagt jemand der sich sonst nur des pogos bedient)...

    höhö...hatte für meine Süße und mich nen romantischen tag in paris geplant, was war zwei Monate vorher war schluss, und nu simmer wieder zsamme :)

    Dere Eratum

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Links

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...