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

Advertisements

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s

%d Bloggern gefällt das: