'v4.3******************************************************** ' File: 100prozent.vbs ' Autor: dieseyer@gmx.de ' dieseyer.de ' ' "Erzeugt" 100% CPU-Last, bis es die Datei "ende.txt" ' gibt - das Skript sollte sich nicht auf einem Netz- ' laufwerk befinden. '************************************************************ Option Explicit Dim fso, i, n Set fso = WScript.CreateObject("Scripting.FileSystemObject") MsgBox "Sobald es in dem Verzeichnis, in dem sich dieses Skript befindet," &vbCRLF & "die Datei ""ende.txt"" gibt, hört das Skript auf.", , WScript.ScriptName i = 0 Do i = i + 1 if i = 256*256*2 then n=1 ' : MsgBox i if i > 256*256*2+256*4 then n=0 : i = 0 ' : MsgBox i WScript.Sleep n If fso.FileExists( "ende.txt" ) then Exit Do Loop MsgBox "Das waren wohl 100% CPU-Auslastung, oder?!", , WScript.ScriptName