Leaked source code of windows server 2003
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.
|
|
<PUBLIC:COMPONENT tagName="devinfo"><PUBLIC:PROPERTY NAME="Instance" /><PUBLIC:DEFAULTS viewLinkContent="true" /> <PUBLIC:ATTACH EVENT="oncontentready" ONEVENT="Init()" /><SCRIPT LANGUAGE="VBScript"> Dim devcon Dim Inst Sub UpdateInstance() dev_instance.innerText = Inst.instanceId If Inst.IsDisabled Then dev_status.innerHtml = "<font color=""#FF0000""><b>Disabled</b></font>" ElseIf inst.HasPrivateProblem Then dev_status.innerHtml = "<font color=""#FF0000""><b>Driver reports problem</b></font>" ElseIf inst.HasProblem Then dev_status.innerHtml = "<font color=""#FF0000""><b>Problem " & CStr(Inst.ProblemCode) & "</b></font>" ElseIf inst.IsRunning Then dev_status.innerHtml = "Running" Else dev_status.innerHtml = "Stopped" End If
End Sub
Sub Init() set DevCon = CreateObject("DevCon.DeviceConsole") set Inst = DevCon.DevicesByInstanceIds(Instance)(1) UpdateInstance End Sub
</SCRIPT><BODY><table border="0"> <tr> <td width="70"></td> <td width="100"><i>Instance ID:</i></td> <td><span id="dev_instance"></span></td> </tr> <tr> <td width="60"></td> <td width="100"><i>Status:</i></td> <td><span id="dev_status"></span></td> </tr></table></BODY></PUBLIC:COMPONENT>
|
