标题: [问题求助] [已解决]VBS如何查询服务的制造商? [打印本页]
作者: lqh123108 时间: 2015-9-7 12:40 标题: [已解决]VBS如何查询服务的制造商?
本帖最后由 lqh123108 于 2015-9-21 10:24 编辑
select * from win32_service 这个能查服务名称、状态……
但我想查这个服务的制造商,如微软、农业银行,还是未知的??这个属性是什么,谢谢……
我发现msconfig中可以看见的,但无法提取
作者: pcl_test 时间: 2015-9-7 14:13
一种间接方法:
根据服务名获取到关联的主程序,再从主程序获取制造商
作者: pcl_test 时间: 2015-9-8 21:40
本帖最后由 pcl_test 于 2016-9-22 20:52 编辑
- 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"
- If fso.FileExists(path) Then 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
复制代码
作者: lqh123108 时间: 2015-9-21 10:24
高,实在是高手,太感谢了
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |