tableau posted on Tue, Dec 9 2008 6:09 PM

rated by 0 users

Hi,

I've created a custom application using the Windows Scripting Monitor to run a vbscript, but it doesn't appear to be working.  What I want to be able to do is read a text file on the remote machine and if one value is specified generate an email alert.   To do this I've created a Windows Script Monitor, set the appropriate credentials (and tested them), and then plugged in the below script.  Basically I just want APM to run the script on a regular basis.  Is this the way I should go about it and/or is there a different way the script language needs to be entered?  I've tested the script independently and it runs correctly.

Script:

Const ForReading = 1
numCount=0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\dev\Watchman\tableau-1.3\src\unittest\db\testdata\Watchman\watchman-status.txt", 1)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
 wscript.echo strLine
 if strline="1" then
  strBody= objFile.Readall
  strEmail
  
 End If
   
numCount=numCount+1
Loop
objFile.Close

Sub strEmail

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "my email address"
objEmail.To = "my email address"
objEmail.Subject = "Computer accounts deleted by script on " & Date
objEmail.Textbody = strBody
objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "our email relay"
objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

Wscript.echo "Email Sent"
End Sub