34 lines
715 B
HTML
34 lines
715 B
HTML
<HTML>
|
|
<HEAD>
|
|
<TITLE>DeviceConsole: List all devices</TITLE>
|
|
<HTA:APPLICATION>
|
|
</HEAD>
|
|
<BODY>
|
|
<H1>Devices:</H1>
|
|
|
|
<SCRIPT LANGUAGE=vbscript>
|
|
<!--
|
|
SET DevCon = CreateObject("DevCon.DeviceConsole")
|
|
SET Devs = DevCon.AllDevices
|
|
|
|
Count = Devs.Count
|
|
document.write "<b>There are "+CStr(Count)+" devices:</b><br>"
|
|
|
|
'on error resume next
|
|
|
|
FOR EACH Dev IN Devs
|
|
IF Dev.IsRunning THEN
|
|
document.write "<font color=""#008000"">"
|
|
ELSEIF Dev.HasProblem THEN
|
|
document.write "<font color=""#FF0000"">"
|
|
ELSE
|
|
document.write "<font color=""#FF8000"">"
|
|
END IF
|
|
document.write Dev.Description + "</font><br>"
|
|
NEXT
|
|
|
|
-->
|
|
</SCRIPT>
|
|
|
|
</BODY>
|
|
</HTML> |