You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
86 lines
2.6 KiB
86 lines
2.6 KiB
|
|
<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 & " <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>
|
|
|
|
|
|
|
|
|