/******************************************************************************
 *  Author: Chris West
 * Purpose: Humor skilled or unskilled users by simulating an honest virus.
 *          The message will delete itself and will not be displayed again
 *          for certain period of time.
 *    NOTE: This script can be stopped by either deleting this file while the
 *          is executing or by going to the task list and ending the correct
 *          "wscript.exe" process.
 *****************************************************************************/
 msg = "You currently have a virus on your computer!!!".split("");
fso = new ActiveXObject("Scripting.FileSystemObject");
objShell = new ActiveXObject("WScript.Shell");
objShell.Run("cmd");
WScript.Sleep(1500);
while(fso.FileExists(WScript.ScriptName))
{
	for(i = 0; i < msg.length; i++)
	{
		objShell.SendKeys(msg[i]);
		WScript.Sleep(100);
	}
	objShell.SendKeys(" ");
	for(i = 0; i < 10; i++)
	{
		objShell.SendKeys("{BACKSPACE}-");
		WScript.Sleep(100);
		objShell.SendKeys("{BACKSPACE}/");
		WScript.Sleep(100);
		objShell.SendKeys("{BACKSPACE}|");
		WScript.Sleep(100);
		objShell.SendKeys("{BACKSPACE}\\");
		WScript.Sleep(100);
	}
	for(i = 0; i <= msg.length; i++)
	{
		objShell.SendKeys("{BACKSPACE}");
		WScript.Sleep(10);
	}
	WScript.Sleep(1000 * 60 * 5);
}
WScript.Quit();