VBS怎么实现查询服务的制造商

这篇文章主要讲解了“VBS怎么实现查询服务的制造商”，文中的讲解内容简单清晰，易于学习与理解，下面请大家跟着小编的思路慢慢深入，一起来研究和学习“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 = 0Do  If objFolder.GetDetailsOf("", i) = "公司" Then '非中文系统自行修改    Exit Do  Else    i = i+1  End IfLoopFor 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 & vbCrLFNextfso.CreateTextFile("info.txt", true).WriteLine infoMsgBox "完成"Function GetPath(strng)  Dim re  Set re = New RegExp  re.Pattern = "^""?(.+\\[^\\\s""]+).*"  GetPath = re.Replace(strng,"$1")  Set regEx = NothingEnd Function

感谢各位的阅读，以上就是“VBS怎么实现查询服务的制造商”的内容了，经过本文的学习后，相信大家对VBS怎么实现查询服务的制造商这一问题有了更深刻的体会，具体使用情况还需要大家实践验证。这里是编程网，小编将为大家推送更多相关知识点的文章，欢迎关注！