'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