 |
Data Output
|
 |
| |
Tutorials / Hta Tutorials / Data Output
<P><FONT face="Courier New"><HTML><BR><HEAD><BR><TITLE>HTA</TITLE><BR><HTA:Application<BR>ApplicationName = Processes<BR>BorderStyle = Raised<BR>ShowInTaskBar = No<BR>MaximizeButton = Yes<BR>MinimizeButton = Yes<BR>WindowState = Normal<BR>> <BR></HEAD><BR><SCRIPT language="VBScript"><BR>Sub Click_Me<BR>On Error Resume Next<BR>strHTML = "<table border=1 cellpadding=2 width=50%>"<BR>strHTML = strHTML & "<TR>"<BR>strHTML = strHTML & "<TD><B><CENTER>Service</CENTER></B></TD>"<BR>strHTML = strHTML & "<TD><B><CENTER>Status</CENTER></B></TD>"<BR>strHTML = strHTML & "</TR>"</FONT></P>
<P><BR><FONT face="Courier New">strComputer = "."<BR>Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\CIMV2")<BR>Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service", "WQL", _<BR>wbemFlagReturnImmediately + wbemFlagForwardOnly)<BR>For Each objItem In colItems<BR>If objItem.State = "Running" Then<BR>strHTML = strHTML & "<TR>"<BR>strHTML = strHTML & "<TD>" & objItem.DisplayName & "</TD>"<BR>strHTML = strHTML & "<TD>" & objItem.State & "</TD>"<BR>End If<BR>Next<BR>strHTML = strHTML & "</table>"<BR>Output.InnerHTML = strHTML<BR>End Sub<BR></SCRIPT><BR><BODY><BR><input id="runbutton" type="button" value="Click Me" name="run_button" onClick="Click_Me"><BR><span id="Output"></span><BR></BODY><BR></HTML><BR></FONT></P>
Please note that a disclaimer applies to any code on this page.
|
|
|
 |
|
 |
|
|
