VBS实现查询服务的制造商

一个网友提问：

select * from win32_service 这个能查服务名称、状态……
但我想查这个服务的制造商，如微软、农业银行，还是未知的？？这个属性是什么，谢谢……
我发现msconfig中可以看见的，但无法提取
下面给出解答，一种间接方法：
根据服务名获取到关联的主程序，再从主程序获取制造商

Set objWMIService = GetObject（"winmgmts:{impersonationLevel=impersonate}！\.
ootcimv2"）Set Services = objWMIService.ExecQuery（"Select * from Win32_Service"）Set fso = CreateObject（"Scripting.FileSystemObject"）Set objShell = CreateObject（"Shell.Application"）Set objFolder = objShell.NameSpace（0）i = 0DoIf objFolder.GetDetailsOf（"", i） = "公司" Then "非中文系统自行修改Exit DoElsei = i+1End IfLoopFor Each objService in Servicespath = 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 & vbCrLFNextfso.CreateTextFile（"info.txt", true）.WriteLine infoMsgBox "完成"Function GetPath（strng）Dim reSet re = New RegExpre.Pattern = "^""?（.+\[^\s""]+）.*"GetPath = re.Replace（strng,"$1"）Set regEx = NothingEnd Function

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