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.
34 lines
715 B
34 lines
715 B
<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>
|