VBS实现查询服务的制造商

一个网友提问：

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

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