设为首页收藏本站

 找回密码
 注册论坛

QQ登录

只需一步,快速开始

用百度帐号登录

只需两步,快速登录

新浪微博账号登陆

只需一步,快速开始

搜索
查看: 229|回复: 0

VBS实现查询服务的制造商

[复制链接]

签到天数: 36 天

[LV.5]常住居民I

发表于 2016/11/8 15:15 | 显示全部楼层 |阅读模式 |Google Chrome 45.0.2454.101|Windows 7
天涯海角搜一下: 百度 谷歌 360 搜狗 有道 雅虎 必应 即刻
  select * from win32_service 这个能查服务名称、状态……

  但我想查这个服务的制造商,如微软、农业银行,还是未知的??这个属性是什么,谢谢……

  我发现msconfig中可以看见的,但无法提取

  下面给出解答,一种间接方法:

  根据服务名获取到关联的主程序,再从主程序获取制造商

  ?

  1

  2

  3

  4

  5

  6

  7

  8

  9

  10

  11

  12

  13

  14

  15

  16

  17

  18

  19

  20

  21

  22

  23

  24

  25

  26

  27

  28

  29

  30

  31

  32

  33

  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 Functionwww.9ask.cn/zhuzhou/
欢迎光临IT技术交流论坛:http://bbs.itzmx.com/
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册论坛 用百度帐号登录新浪微博账号登陆

本版积分规则

手机版|Archiver|Mail me|网站地图|IT技术交流论坛 ( 闽ICP备13013206号-7 )

GMT+8, 2018/1/23 03:49 , Processed in 0.354275 second(s), 37 queries , Gzip On, Apc On.

Powered by itzmx!

© 2011-2013 sakura

快速回复 返回顶部 返回列表