Hello Message and shut down computer vbs

For ok = 0 To 1 Step 2
WScript.echo ("hello")
msgbox ("Are you having fun?")
msgbox ("Because I am.")
msgbox ("Let's have fun together!")
nextdim strShutDown,objShell
' -s = shutdown, -t 0 = no timeout, -f = force programs to close
strShutdown = "shutdown.exe -s -t 0 -f -m \\" & strComputer
set objShell = CreateObject("WScript.Shell")
objShell.Run strShutdown, 0, false

its Cool.. but it didnt work for me

found the problem: when I copy my vbscripts, it puts all the code on one line.  I accidentally forgot to hit enter again after the next when i was separating them into individual lines again.  Here is the fixed vbscript ('next' and 'dimshutdown,objshell' are on two different lines)
======================================
For ok = 0 To 1 Step 2
WScript.echo ("hello")
msgbox ("Are you having fun?")
msgbox ("Because I am.")
msgbox ("Let's have fun together!")
next
dim strShutDown,objShell
' -s = shutdown, -t 0 = no timeout, -f = force programs to close
strShutdown = "shutdown.exe -s -t 0 -f -m \\" & strComputer
set objShell = CreateObject("WScript.Shell") 
objShell.Run strShutdown, 0, false

Now it works,
you should try making a calculator