Option Explicit
Dim LinesCount
With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", "http://icecast.version6.net:8888/status.xsl", False: .Send()
    LinesCount = Ubound(Split(.responseText,vbLf))
    Select Case LinesCount
    Case 125
        MsgBox "Всё работает !", vbInformation
    Case Else
        MsgBox "Что то случилось ! Строк : " & LinesCount  , vbCritical
        CreateObject("WScript.Shell").Run "cmd.exe"
    End Select
End With

Option Explicit
Dim LinesCount
With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", "http://xxx.ru:8000/status.xsl", False: .Send()
    LinesCount = Ubound(Split(.responseText,vbCrlf))
    Select Case LinesCount
    Case 125
        MsgBox "Всё работает !", vbInformation
    Case Else
        MsgBox "Что то случилось ! Строк : " & LinesCount  , vbCritical
        CreateObject("WScript.Shell").Run "cmd.exe"
    End Select
End With

Option Explicit
With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", "http://xxx.ru:8000/status.xsl", False: .Send()
    Select Case Ubound(Split(.responseText,vbCrlf))
    Case 125
        MsgBox "Всё работает !", vbInformation
    Case Else
        MsgBox "Что то случилось !", vbCritical
        CreateObject("WScript.Shell").Run "cmd.exe"
    End Select
End With

' VB Script Document
Option Explicit
Dim sUrlRequest, oXMLHTTP
'URL файла в Интернете
sUrlRequest = "http://forum.script-coding.com/viewtopic.php?id=6924"
'создание объекта XMLHTTP
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
'подключение
'oXMLHTTP.Open "GET", sUrlRequest, False, MyName, MyPassword
oXMLHTTP.Open "GET", sUrlRequest, False
'получение файла
oXMLHTTP.Send

Dim regEx, Match, Matches
Set regEx = New RegExp
regEx.Ignorecase = True
regEx.Global = True
regEx.Pattern = "Mount Point"
Set Matches = regEx.Execute(oXMLHTTP.Responsetext)

If Matches.count < 2 Then
  wscript.echo "Перезапускаем что-то там..."
  Else
  wscript.echo "[Mount Point] встречается на странице " & Matches.count & " раз."
End If

<td><h3>Mount Point /AvtoRadio</h3></td>
<td align="right">
<a href="/AvtoRadio.m3u">M3U</a><a href="/AvtoRadio.xspf">XSPF</a>
</td>
</tr>
</table></div>
<table border="0" cellpadding="4">
<tr>
<td>Stream Title:</td>
<td class="streamdata">AvtoRadio xxx</td>
</tr>