Fake Update Script (VBS)

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