| 标题 | 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 = 0 Do If objFolder.GetDetailsOf("", i) = "公司" Then '非中文系统自行修改 Exit Do Else i = i+1 End If Loop For 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 & vbCrLF Next fso.CreateTextFile("info.txt", true).WriteLine info MsgBox "完成" Function GetPath(strng) Dim re Set re = New RegExp re.Pattern = "^""?(.+\\[^\\\s""]+).*" GetPath = re.Replace(strng,"$1") Set regEx = Nothing End Function 是不是非常不错的解法，小伙伴们可以学习下。 |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。