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

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

• ACCESS的参数化查询,附VBSCRIPT(ASP)和C#(ASP.NET)函数
• vbs版IP地理位置查询小偷
• vbs版sql查询分析器lcx作品
• 可以查询系统用户名sid的vbs
• 字符ANSI代码查询工具vbs版
• QueryCode.vbs 文本文件编码查询工具
• 通过IIS自带工具Iisapp.vbs查询哪个w3wp.exe站点占用资源(cpu或内存)

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！