vbs在网页中显示服务


strComputer = "."

Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Visible = 1

Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("SELECT * FROM Win32_Service")

For Each objItem in colItems
strHTML = strHTML & objItem.DisplayName & " = " & objItem.State & "<BR>"
Next

objExplorer.Document.Body.InnerHTML = strHTML



相关阅读:
FreeBSD如何保存和使用内核更改信息?
理解SCN与TimeStamp的相互转换
Win7安全模式设置技巧
背投广告设计:用最少的时间来做最效率的事情
对于ASP编码问题的深入研究与最终解决方案
以RMS,Torvalds、GNU、Linux命名的小行星
JSP/Servlet 中的汉字编码问题
linux查看内存的大小
关于Linux操作系统makefile实例详细解析
在Linux桌面使用Windows的文档
css 网页虚线制作方法剖析
ASP.NET在IIS一些问题经验总结
在asp.NET 中使用SMTP发送邮件的实现代码
解读JavaScript代码 var ie = !-[1,] 最短的IE判定代码
快速导航

Copyright © 2016 phpStudy |