繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbs在网页中显示服务
- VBScript
- VBS教程：VBScript 基础-VBScript 运算符
- VBS教程：VBScript 基础-VBScript 常数
- VBS教程：VBScript 基础-VBScript 变量
- VBS教程：VBScript 基础-VBScript 数据类型
- Wscript.Shell 对象详细介绍！！特好的东西
- 利用vbscript脚本修改文件内容，此适用于自动化的操作中
- 批量替换快捷方式目的路径的VBS脚本
- VBS常用脚本 好东西
- Vbscript写注册表的方法
- [vbs]每一行的最后一个字符转换成_
- bytes2BSTR
- vbs/js脚本编程教学（1）
- vbs/js脚本编程教学（2）
- 脚本编程3 关于文件的读写
- 脚本编程 4 驱动器
- 利用WSH里的MapNetworkDrive方法脚本蠕虫的传播方式
- VBS脚本病毒原理分析与防范
- ipclear.vbs源代码
- whoami.vbs源代码
- RCLS.vbs使用帮助
VBScript 中的 vbs在网页中显示服务
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 349 ::
收藏到网摘: n/a
无
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
评论 (0) All
