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.SubFoldersFor 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
NextWScript.Echo „Error updating files, please run script with parameter -f“
Set RootSub = Nothing
Set RootDir = Nothing
Set FSO = Nothing