Desktop VBS Prank Script for a Laugh

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
strDesktop = objShell.SpecialFolders("Desktop")

For i = 1 to 150
objFSO.CreateFolder strDesktop & "\Folder" & i
Next