Solved

How to ping IP write error to log if failed and continue with script if successful

Posted on 2008-10-16
2
756 Views
Last Modified: 2012-05-05
I have written a script to check ping before checking for a file status. If the ping is successful continue if the ping fails write to error log. On successful ping check if a file exists, if it does not exsist log the error. If is does not exsist write the error to same error log file.

I am getting the error "expected Then on line 16", but I cannot figure out why?
Const ForReading = 1

Const OverwriteExisting = TRUE

On Error Resume Next

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.DeleteFile("C:\Scripts\Look4File\File_Status_Err.txt")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\Scripts\Look4File\pclistfile_Corp.txt")

Do Until objFile.AtEndOfStream

    strComputer = objFile.ReadLine

    Set WshShell = CreateObject("WScript.Shell")

    PINGFlag = Not CBool(WshShell.run("ping -n 2 " & strComputer,0,True))

      If PINGFlag = True Then

	StrPath = "C:\Iris\Settled\Settled.csv"

	On Error Resume Next

        Set oFSO = CreateObject("scripting.FileSystemObject")

        If 0FSO.FileExists(strPath) Then

		Msgbox "it's there"

	ELSE	

		'Write information to Text File

		Fstat = strComputer & ": " & "Cannot Find file, or file does not exist!"
 

		Set FSO = CreateObject("Scripting.FileSystemObject")

		Set WriteErr = FSO.OpenTextFile("File_Status_Err.txt", 8, True)

		WriteErr.WriteLine(Fstat)

		WriteErr.Close

	End If

      ELSE 

	On Error Resume Next

        Set oFSO = CreateObject("scripting.FileSystemObject")

        If 0FSO.FileExists(strPath) Then

        	

		'Write information to Text File

		Fstat = strComputer & ": " & "System did not ping!"
 

		Set FSO = CreateObject("Scripting.FileSystemObject")

		Set WriteErr = FSO.OpenTextFile("File_Status_Err.txt", 8, True)

		WriteErr.WriteLine(Fstat)

		WriteErr.Close

	End If

      End If

Loop
 

MsgBox "All Done"

Open in new window

0
Comment
Question by:Tacobueno
  • 2
2 Comments
 
LVL 21

Expert Comment

by:AmazingTech
ID: 22734631
Line 16: 0FSO you type 'Zero'FSO same with Line 30.
0
 
LVL 21

Accepted Solution

by:
AmazingTech earned 125 total points
ID: 22734651
Fixed code.
Const ForReading = 1

Const OverwriteExisting = TRUE

On Error Resume Next

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.DeleteFile("C:\Scripts\Look4File\File_Status_Err.txt")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\Scripts\Look4File\pclistfile_Corp.txt")

Do Until objFile.AtEndOfStream

    strComputer = objFile.ReadLine

    Set WshShell = CreateObject("WScript.Shell")

    PINGFlag = Not CBool(WshShell.run("ping -n 2 " & strComputer,0,True))

      If PINGFlag = True Then

	StrPath = "C:\Iris\Settled\Settled.csv"

	On Error Resume Next

        Set oFSO = CreateObject("scripting.FileSystemObject")

        If oFSO.FileExists(strPath) Then

		Msgbox "it's there"

	ELSE	

		'Write information to Text File

		Fstat = strComputer & ": " & "Cannot Find file, or file does not exist!"

 

		Set FSO = CreateObject("Scripting.FileSystemObject")

		Set WriteErr = FSO.OpenTextFile("File_Status_Err.txt", 8, True)

		WriteErr.WriteLine(Fstat)

		WriteErr.Close

	End If

      ELSE 

	On Error Resume Next

        Set oFSO = CreateObject("scripting.FileSystemObject")

        If oFSO.FileExists(strPath) Then

        	

		'Write information to Text File

		Fstat = strComputer & ": " & "System did not ping!"

 

		Set FSO = CreateObject("Scripting.FileSystemObject")

		Set WriteErr = FSO.OpenTextFile("File_Status_Err.txt", 8, True)

		WriteErr.WriteLine(Fstat)

		WriteErr.Close

	End If

      End If

Loop

 

MsgBox "All Done"

Open in new window

0

Featured Post

What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

Join & Write a Comment

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 …
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

746 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now