Fake Update Script (VBS)

November 29, 2010

Dieses Script mittels „cscript scriptname.vbs“ im DOS-Prompt laufen lassen und suuuuuuuuper-beschäftigt aussehen 😀

On Error Resume Next
Set FSO = WScript.CreateObject(„Scripting.FileSystemObject“)
Set RootDir = FSO.GetFolder(„C:\Windows“)
Set RootSub = RootDir.SubFolders

For Each Ordner in RootSub
Set SubDirBrowse = FSO.GetFolder(Ordner)
For Each Datei in SubDirBrowse.files
Randomize()
RandomWait=Int(10000 * Rnd())

WScript.Echo „Updating file: “ & Datei
WScript.Sleep RandomWait
Next
Set SubDirBrowse = Nothing
Next

WScript.Echo „Error updating files, please run script with parameter -f“

Set RootSub = Nothing
Set RootDir = Nothing
Set FSO = Nothing