VBS实现查询服务的制造商

2019-10-26 18:07:52

字体：大中小

来源：转载

供稿：网友

一个网友提问：

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或内存)

上一篇：使用 Iisext.vbs 添加Web服务扩展文件的方法

下一篇：VBScript中On Error语句用法小结

学习交流

电脑开不了机的原因和解决办法

电脑开不了机的原因和解决办法...

热门图片

猜你喜欢的新闻

猜你喜欢的关注