windows-server-2003/admin/pchealth/helpctr/service/saf/channels/test/status_test.htm


<html>
<head>
<style TYPE="text/css">
a:hover { color:#3030c0; }
</style>

<link HREF="PCHealth.css" REL="STYLESHEET" TYPE="text/css">
</head>

<body bgcolor="#eee5e0" text="black" link="black" vlink="black" alink="gray">
<basefont face="Verdana" size="2">
<P>
<span class="Description">You may check the status of the following incidents.</span>
<br>
<br>
<b><font size="4">Check Status</P></font></B>
<ul>
<script language=VBScript>
    Dim sHTML, VendorID, ProductID
    Dim x
    'set x = Window.External.Channels
    set x = CreateObject("SAF.SAFReg.1")
	Stop
    x.MoveFirst
    do while not x.EOF
        On Error Resume Next
        Err.Number = 0
        VendorID = x.VendorID
        ProductID = x.ProductID
        'set y = Window.External.CreateObject_Channel(VendorID, ProductID)
        set xAPI = CreateObject("SAF.SAFAPI")
        set y = xAPI.GetChannel(VendorID, ProductID)
        set z = y.Incidents(2)
        If Err.Number Then
            MsgBox "Init failed: " & Err.Description
        End If
        if Err.Number = 0 Then
            set z = y.Incidents(2)
            if z Then
                if z.Count Then
                    ' sort
                    Dim i
                    Dim oTemp
                    Redim oTemp(z.Count)
                    i = 0
                    For Each oItem in z
                        set oTemp(i) = oItem
                        i = i+1
                    Next
                    ' sort here
                    For i=0 to z.Count-2
                        For j=i+1 to z.Count-1
                            if oTemp(i).CreationTime < oTemp(j).CreationTime Then
                                Dim ooT
                                set ooT = oTemp(i)
                                set oTemp(i) = oTemp(j)
                                set oTemp(j) = ooT
                            End If
                        Next
                    Next
                    ' output
                    For i=0 to z.Count-1
                        sHTML = "<li>" & oTemp(i).CreationTime & "&nbsp;<b><A href=""" _
                                    & oTemp(i).URL & """>" & oTemp(i).DisplayString & "</a></b><br>"
                        document.write sHTML
                        set oTemp(i) = Nothing
                    Next
                End If
            end if
            set z = Nothing
        else
            MsgBox Err.Description
        End if
        set y = Nothing
        x.MoveNext
    loop
    set x = Nothing
</script>
</ul>
View information concerning <A href="status_h.htm"><b>resolved incidents</b></a>. 
</body>