Hey!
I'm not really a programmer, but a year ago I had a need of cycling the log for an Apache server (running on Win2000) we have, so I dug into trying to make my own VB script and it turned out to work very well.
Today I just upgraded the server to Win2003, and now the script won't run anymore.. !
Since it was a year ago when I made it, and I haven't messed with VB scripts since, I don't even remember why/how I made the script, and what could cause it to not work anymore.

Anyone out there who might know what could cause this script to not work anymore?!

Big thanks in advance!!

Dim strService
strService = "WebCT"
strComputer = "."
Const EVENT_SUCCESS = 0
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "WebCTscript@mydomain.com"
objEmail.To = "SawPer@mydomain.com"
Set objShell = Wscript.CreateObject("Wscript.Shell")
set objComputer = GetObject("WinNT://myDomain/" + strComputer + ",computer")
set objNTService = objComputer.GetObject("service", strService)

If objNTService.status <> 4 Then
objShell.LogEvent EVENT_SUCCESS, "VerifyWebCTService - WebCT was NOT running, check for problems! Service Status = " & objNTService.status
objEmail.Subject = "WebCT service problems!"
objEmail.Textbody = "WebCT Service was NOT running! Check for problems! Service status = " & objNTService.status
objEmail.Send
objNTService.start
objShell.LogEvent EVENT_SUCCESS, "VerifyWebCTService - WebCT was started. Service status = " & objNTService.status
wscript.quit
Else
objShell.LogEvent EVENT_SUCCESS, "VerifyWebCTService - WebCT Service was running!"

End If
The error message I get is:
Script: VBscript.vbs
Line: 10
Char: 1
Error: An invalid directory pathname was passed
Code: 80005000
Source: Active Directory