VBS实现查询服务的制造商

日期:2016/5/5 17:16:00 来源:本网整理 阅读:0
s">

VBS实现查询服务的制造商

投稿:hebedich 字体:[增加 减小] 类型:转载 时间:2015-09-25 我要评论

本文给大家分享的是一个使用VBS实现查询服务的制造商的代码,思路非常的巧妙,方法很简单,这里推荐给大家。
dy("art_up")
">

一个网友提问:

select * from win32_service 这个能查服务名称、状态……

但我想查这个服务的制造商,如微软、农业银行,还是未知的??这个属性是什么,谢谢……

我发现msconfig中可以看见的,但无法提取

下面给出解答,一种间接方法:

根据服务名获取到关联的主程序,再从主程序获取制造商

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set Services = objWMIService.ExecQuery("Select * from Win32_Service")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(0)
i = 0
Do
  If objFolder.GetDetailsOf("", i) = "公司" Then '非中文系统自行修改
    Exit Do
  Else
    i = i+1
  End If
Loop

For Each objService in Services
  path = GetPath(objService.PathName)
  IF fso.GetExtensionName(path) = "" Then path = path & ".exe"
  Set objFolder = objShell.NameSpace(fso.GetParentFolderName(path))
  Set objItem = objFolder.ParseName(fso.GetFileName(path))
  comp = objFolder.GetDetailsOf(objItem, i)
  If comp = "" Then comp = "未知"
  info = info & "服务:"& objService.DisplayName &" 制造商:"& comp & vbCrLF
Next
fso.CreateTextFile("info.txt", true).WriteLine info
MsgBox "完成"

Function GetPath(strng)
  Dim re
  Set re = New RegExp
  re.Pattern = "^""?(.+\\[^\\\s""]+).*"
  GetPath = re.Replace(strng,"$1")
  Set regEx = Nothing
End Function

是不是非常不错的解法,小伙伴们可以学习下。

  • 本文相关:
  • VBS实现截图功能
  • VBS中Run和Exec的区别
  • VBS获取GZIP压缩的HTTP内容的实现代码
  • VBS实现将当前时间转换成UTC时间
  • VBS显示当前标准时间
  • VBScript中On Error语句用法小结
  • VBScript获取CPU使用率的方法
  • VBS脚本写的Windows硬件检测工具分享
  • 使用vbs获得外网ip并发送到邮箱里
  • vbs实现只复制比目标文件更新的文件
  • 免责声明 - 关于我们 - 联系我们 - 广告联系 - 友情链接 - 帮助中心 - 频道导航
    Copyright © 2015 www.zgxue.com All Rights Reserved