[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] [已解决]VBS如何查询服务的制造商?

本帖最后由 lqh123108 于 2015-9-21 10:24 编辑

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

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

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

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

高,实在是高手,太感谢了

TOP

本帖最后由 pcl_test 于 2016-9-22 20:52 编辑
  1. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
  2. Set Services = objWMIService.ExecQuery("Select * from Win32_Service")
  3. Set fso = CreateObject("Scripting.FileSystemObject")
  4. Set objShell = CreateObject("Shell.Application")
  5. Set objFolder = objShell.NameSpace(0)
  6. i = 0
  7. Do
  8.     If objFolder.GetDetailsOf("", i) = "公司" Then  '非中文系统自行修改
  9.         Exit Do
  10.     Else
  11.         i = i+1
  12.     End If
  13. Loop
  14. For Each objService in Services
  15.     path = GetPath(objService.PathName)
  16.     If fso.GetExtensionName(path) = "" Then path = path & ".exe"
  17.     If fso.FileExists(path) Then Set objFolder = objShell.NameSpace(fso.GetParentFolderName(path))
  18.     Set objItem = objFolder.ParseName(fso.GetFileName(path))
  19.     comp = objFolder.GetDetailsOf(objItem, i)
  20.     If comp = "" Then comp = "未知"
  21.     info = info & "服务:"& objService.DisplayName &" 制造商:"& comp & vbCrLF
  22. Next
  23. fso.CreateTextFile("info.txt", true).WriteLine info
  24. MsgBox "完成"
  25. Function GetPath(strng)
  26.     Dim re
  27.     Set re = New RegExp
  28.     re.Pattern = "^""?(.+\\[^\\\s""]+).*"
  29.     GetPath = re.Replace(strng,"$1")
  30.     Set regEx = Nothing
  31. End Function
复制代码
1

评分人数

TOP

一种间接方法:
根据服务名获取到关联的主程序,再从主程序获取制造商

TOP

返回列表