一个网友提问：

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

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. 
    
15. For Each objService in Services
    
16.   path = GetPath(objService.PathName)
    
17.   IF fso.GetExtensionName(path) = "" Then path = path & ".exe"
    
18.   Set objFolder = objShell.NameSpace(fso.GetParentFolderName(path))
    
19.   Set objItem = objFolder.ParseName(fso.GetFileName(path))
    
20.   comp = objFolder.GetDetailsOf(objItem, i)
    
21.   If comp = "" Then comp = "未知"
    
22.   info = info & "服务："& objService.DisplayName &" 制造商："& comp & vbCrLF
    
23. Next
    
24. fso.CreateTextFile("info.txt", true).WriteLine info
    
25. MsgBox "完成"
    
26. 
    
27. Function GetPath(strng)
    
28.   Dim re
    
29.   Set re = New RegExp
    
30.   re.Pattern = "^""?(.+\\[^\\\s""]+).*"
    
31.   GetPath = re.Replace(strng,"$1")
    
32.   Set regEx = Nothing
    
33. End Function

复制代码

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

来源：互联网
免责声明：如果侵犯了您的权益，请联系站长（1277306191@qq.com），我们会及时删除侵权内容，谢谢合作！