我要评论一个网友提问：
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
是不是非常不错的解法，小伙伴们可以学习下。
发表评论