Chris,
I wasn't clear enough explaining that you did need to create a scheduled event to run this. The script has error logging that writes to the event logs, but if you run it interactively then you get the messages posted to the screen. That said, it is good you ran it interactively since it appears to be having a problem. Based on the errors you posted I think you need to change the array size on the "Dim servers" or "Dim services" line. In vbscript, arrays are "0" based. That means if you have a single item the array size would be "0" (like Dim servers(0)). If you have two items the array size would be "1". You are getting a subscript out of range error which is likely because the array is larger then the number of elements you have. Check the servers and services arrays to be sure you the size is correct. Also, once the script is working properly, you can take the LogIt lines out of the loop so they don't fill up your event log.
-Keith