Ping Script Problem - vbscript

	PingForever strHost, strFile

	Sub PingForever(strHost, outputfile)
		Dim Output, Shell, strCommand, ReturnCode

		Set Output = CreateObject("Scripting.FileSystemObject").OpenTextFile(outputfile, 8, True)  
		Set Shell = CreateObject("wscript.shell")  
		strCommand = "ping -n 1 -w 300 " & strHost  
		SET FLAG0 = "ON"  
		While(True)
			ReturnCode = Shell.Run(strCommand, 0, True)     
			If ReturnCode = 0 Then
				Output.WriteLine Date() & " - " & Time & " | " & strHost & " - ONLINE"  
				SET FLAG0 = "ON"  
			Else
				Output.WriteLine Date() & " - " & Time & " | " & strHost & " - OFFLINE"  
				IF FLAG0 = "ON" THEN  
				   SET FLAG0 = "OFF"  
				   Set objEmail = CreateObject("CDO.Message")  
					objEmail.From = "test@test.com"  
					objEmail.To = "test@test.com"  
					objEmail.Subject = "PC " & strHost & " nicht erreichbar"   
					objEmail.Textbody = strText
					objEmail.Configuration.Fields.Item _
						("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  
					objEmail.Configuration.Fields.Item _
						("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _  
							"smtpip"   
					objEmail.Configuration.Fields.Item _
						("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25  
					objEmail.Configuration.Fields.Update
					objEmail.Send
				END IF
				
			End If
			Wscript.Sleep 2000
		Wend
	End Sub