VBS Expected Statement?

Posted on 2009-04-01
Last Modified: 2012-05-06
I'm having an issue on line 21, 2 (Wend) with an Expected Statement

Microsoft VBScript compilation error: Expected statement

This may not have anything to do with Wend but may have something to do with incorrect statement somewhere else in the script I don't know.

Does anybody see anything obvious? What the script does is remote to a server and read the log file. If the log contains the string blahblah, it will send an email notification.

Thi sscript is very helpfull to me so if anybody can help out I would greatly appreciate it and give you 500 points :)
Const ForReading = 1
strlocalPath = "c$\corestreet\authority\logs\rtc-java-0.log"
strBadString = "No CRL available for issuer ID"
'Build the date string to look for... (ie. today's date in the format
strDateLookFor = Date Part("yyyy",Date) & "." 
If Date Part("m",Date) < 10 Then strDateLookFor = strDateLookFor & "0" & Date Part("m",Date) 
	Else strDateLookFor = strDateLookFor & Date Part("m",Date)
If Date Part("d",Date) < 10 Then strDateLookFor = strDateLookFor & ".0" & 
Date Part("d",Date) _
	Else strDateLookFor = strDateLookFor & "." & Date Part("d",Date)
Set fso = CreateObject("scripting.filesystemobject")
For i = 0 To UBound(arrServers)
	Set objTxt = fso.OpenTextFile("\\" & arrServers(i) & strLocalPath,ForReading)
	While Not objTxt.AtEndOfStream
		strLine = objTxt.ReadLine
		If InStr(strLine,strDateLookFor) > 0 And InStr(strLine,strBadString) Then 
sendEmail arrServers(i),strDateLookFor,strBadString
Set fso = Nothing
Set objTxt = Nothing
Sub sendEmail(strServer,strDateLookFor,strBadString)
Set objMessage = CreateObject("CDO.Message") 
Const smtpPort = 25
Const sendUsing = 2
Const smtpServer = "yup"
objMessage.To = "yup"
objMessage.From = "yup"
objMessage.Subject = "Log Alert!"
body = "<b>A BAD entry has been found in the log file for server : " & strServer & 
body = body & "Date : " & strDateLookFor & " - " & strBadString
objMessage.HTMLBody = body
sing") = sendUsing 
erver") = smtpServer
erverport") = smtpPort 
Set objMessage = Nothing
End Sub
Open in New Window Select All

Open in new window

Question by:snyderkv
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
LVL 143

Accepted Solution

Guy Hengel [angelIII / a3] earned 250 total points
ID: 24044258
you are missing a END IF before the WEND
LVL 67

Assisted Solution

sirbounty earned 250 total points
ID: 24044457
or you can run this command altogether since you don't have an else...

If InStr(strLine,strDateLookFor) > 0 And InStr(strLine,strBadString) Then sendEmail arrServers(i),strDateLookFor,strBadString

Author Comment

ID: 24044597
Thanks a ton that worked.

My last error may be too simple to create an all new thread over so if it's obvious to you guys please point it out. I will be waiting for the next couple hours.

Microsoft VBScript compilation error: Syntax error
The line below is the last line in the script that has issues.

Open In New Window Select All
LVL 67

Expert Comment

ID: 24044609
remove line 62's not script code...

Author Comment

ID: 24044662

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When it comes to writing scripts for a Client/Server computing environment it is essential to consider some way of enabling the authentication functionality within a script. This sort of consideration mainly comes into the picture when we are dealin…
Deploying a Microsoft Access application in a Citrix environment is not difficult but takes a few steps. However, Citrix system people are often of little help, as they typically know next to nothing about Access. The script provided here will take …
This is a high-level webinar that covers the history of enterprise open source database use. It addresses both the advantages companies see in using open source database technologies, as well as the fears and reservations they might have. In this…
This is my first video review of Microsoft Bookings, I will be doing a part two with a bit more information, but wanted to get this out to you folks.

705 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question