龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

vbs在网页中显示服务

时间:2014-07-15 02:02来源:网络整理 作者:网络 点击: 次
分享到：
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

精彩图集
灵活实用的VBS入门教程基础篇
灵活实用的
Vbs COM之打开/保存文件脚本代码
Vbs COM之打开
当某IP 连接我机器的3389端口 报警的脚本
当某IP 连接

热门标签

video标 android模拟 上传文件限制 文有乱码 自动清理 php php中让脚本 单字母函数 getline()函数 gzcompress函数 小爬虫 入侵测试 toLo php php复制文 地图经纬度 循环改变 缩放 文字 列索引 OCI8安 图片库 抓取 一段简 Gif图片 fso 导致ASP.N getopt_long SendKeys参考文档 Table mysql导出数据 编 创建文件夹 GraphicsMagi strnatcmp vmstat 实现机制 立体声 导出函数 自增ID gzip压缩 域控制器 IIS6 判断质数 强制文件下载 站点地 php php无限分类 Login swing 代码重构 bt种子 跨服务 自定义函数 转换大写 运行程序 xml 统计日志 回帖脱衣服 框架设计 日志记录 动态移动 升级 异步

赞助商链接