26 lines
580 B
HTML
26 lines
580 B
HTML
<HTML XMLNS:devmgr>
|
|
<?IMPORT namespace="devmgr" implementation="devcls.htc" >
|
|
<HEAD>
|
|
<TITLE>DeviceConsole: List all devices</TITLE>
|
|
<HTA:APPLICATION>
|
|
</HEAD>
|
|
<BODY bgcolor = "#00ffff">
|
|
<H1>Devices:</H1>
|
|
|
|
<SCRIPT LANGUAGE=vbscript>
|
|
<!--
|
|
DIM DevCon
|
|
DIM DevClasses
|
|
DIM DevCls
|
|
SET DevCon = CreateObject("DevCon.DeviceConsole")
|
|
SET DevClasses = DevCon.SetupClasses
|
|
|
|
FOR EACH DevCls IN DevClasses
|
|
document.write "<devmgr:devcls guid=""" & DevCls.Guid & """>" & DevCls.Description & "</devmgr:devcls><br>"
|
|
NEXT
|
|
|
|
-->
|
|
</SCRIPT>
|
|
|
|
</BODY>
|
|
</HTML> |