http://dieseyer.de • all rights reserved • © 2011 v11.4

'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

http://dieseyer.de • all rights reserved • © 2011 v11.4