Set WshShell = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject")

When executed, the prank triggers a sequence designed to look like a total system failure: