VBS实现查询服务的制造商
来源:本站原创|时间:2022-11-25|栏目:vb|
一个网友提问:
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
是不是非常不错的解法,小伙伴们可以学习下。
您可能感兴趣的文章
- 01-10下载文件到本地运行的vbs
- 01-10VBS中的正则表达式的用法大全 <font color=red>原创&
- 01-10VBS中SendKeys的基本应用
- 01-10VBScript教程 第十一课深入VBScript
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript语法速查及实例说明
- 01-10VBS中Select CASE的其它用法
- 01-10VBScript教程 第七课使用条件语句
- 01-10vbscript 可以按引用传递参数吗?
- 01-10VBScript教程 第二课在HTML页面中添加VBscript代码