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

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

TacobuenoAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

AmazingTechCommented:
Line 16: 0FSO you type 'Zero'FSO same with Line 30.
0
AmazingTechCommented:
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

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.