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
是不是非常不错的解法,小伙伴们可以学习下。
相关推荐
-
ACCESS的参数化查询,附VBSCRIPT(ASP)和C#(ASP.NET)函数第1/2页
最近因项目需要用ACCESS做数据库开发WEB项目 看论坛上还许多人问及ACCESS被注入的安全问题 许多人解决的方法仍然是用Replace替换特殊字符,然而这样做也并没有起到太大做用 今天我就把我用ACCESS参数化查询的一些方法和经验和大家分享 希望对大家有所启发,有写的不对的地方希望高手们多多指教 ASP.NET 用OleDbCommand的new OleDbParameter创建参数货查询 ASP用Command的CreateParameter 方法创建参数化查询 (SQL储存过程查询也
-
vbs版IP地理位置查询小偷
msg="请输入你要查询的IP或域名:" IP=Inputbox(msg,"IP地理位置查询小偷") If IP = "" Then IP = "127.0.0.1" url = "http://www.ip.cn/?q="& IP &"" Body = getHTTPPage(url) Set Re = New RegExp Re.Pattern = "(查
-
通过IIS自带工具Iisapp.vbs查询哪个w3wp.exe站点占用资源(cpu或内存)
经过查找发现是因为w3wp.exe占用了100%的cpu导致80端口占用巨大,其它的操作都无法进行. 在任务管理器中看到的是w3wp.exe占用资源过多,那么就需要查看w3wp.exe的pid值. 下面是寻找出错网站的过程:要找到这个网站,必须把有问题的进程跟该网站的应用程序池联系起来.首先设置任务管理器的查看方式,加入PID的显示: 然后再命令行运行iisapp -a,可以看到PID跟应用程序池的对应关系: 再去iis中看该应用程序池对应的网站,有问题的网站就找到了,剩下的就是这个网站代码中的
-
QueryCode.vbs 文本文件编码查询工具
只要下载此文件后便可以查询了. 下面是详细代码 复制代码 代码如下: 'QueryCode.vbs BY: fastslz '支持批量查询,可以放在SendTo扩展应用 set files=WScript.Arguments if files.Count=0 Then MsgBox "请将要查询的文件拖动到这个文件里! ", vbInformation, "文件编码查询工具 BY: fastslz" end if for i=0 To files.Count-1 f
-
vbs版sql查询分析器lcx作品
花了一点时间把以前的海阳顶端2006的sql模块改成vbs版了,和它的功能是一模一样的,不过用起来可能没有asp版的舒服,不过能用,可以用在dos下了,渗透内网时估计你用得着. if (lcase(right(wscript.fullname,11))="wscript.exe") then echo "Execute it under the cmd.exe Plz! Thx." echo "code by lcx" wscript.quit
-
字符ANSI代码查询工具vbs版
复制代码 代码如下: x=InputBox("请输入字符","提示","Test") If Len(x)<>0 then For i=1 To Len(x) WScript.echo "字符 [" & Mid(x,i,1) & "] ANSI代码为: " & Asc(Mid(x,i,1)) Next Else MsgBox "请输入英文字符",64,&
-
可以查询系统用户名sid的vbs
复制代码 代码如下: set path=wscript.createobject("wscript.shell") usera=path.ExpandEnvironmentStrings("%username%") name=inputbox("请输入你要查询的用户名","sid查询--by不追不悔",usera) strComputer = "." Set wbemServices = Getobject
-
VBS实现查询服务的制造商
一个网友提问: select * from win32_service 这个能查服务名称.状态-- 但我想查这个服务的制造商,如微软.农业银行,还是未知的??这个属性是什么,谢谢-- 我发现msconfig中可以看见的,但无法提取 下面给出解答,一种间接方法: 根据服务名获取到关联的主程序,再从主程序获取制造商 Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"
-
Java 使用 Graphql 搭建查询服务详解
背景 随着React的开源,facebook相继开源了很多相关的项目,这些项目在他们内部已经使用了多年,其中引起我注意的就是本次讨论的是graphql,目前官方只有nodejs版,由于很多公司的后台技术栈都是Java,所以便有了graphql的java版实现,在github上可以找到,废话不多说,直接看代码吧,具体介绍还是去看官网吧,不然就跑题了. GraphQLSchema Schema相当于一个数据库,它有很多GraphQLFieldDefinition组成,Field相当于数据库表/视图,
-
ynamic LINQ创建高级查询服务
目录 前言: 一.创建高级查询服务 二.使用DynamicLINQ创建高级查询服务 1.定义查询参数 2.实现查询方法 3.实现扩展方法 4.效果 前言: 在业务开发中,一个常用的功能就是“高级查询”,就是客户可以根据自己的需要设置查询条件查找数据,类似下图: 通常,我们需要为每个“高级查询”定制Dto类,用于传输条件,并要根据条件组合成查询语句执行数据库查询操作,费时费力. 现在,使用AutoFilterer.Generators可以轻松实现上述功能. 一.创建高级查询服务 举
-
使用 Iisext.vbs 列出 Web 服务扩展文件的方法
应用到: Windows Server 2003, Windows Server 2003 R2, Windows Server 2003 with SP1 可使用命令行脚本 iisext.vbs(存储在 systemroot\system32 中),列出位于 WebSvcExtRestrictionList Metabase Property中的 Web 服务扩展.该命令可在运行带有 IIS 6.0 的 Windows Server 2003 家族的成员的本地计算机或远程计算机上执行.Web
-
用vbs实现禁用服务
问: 您好,脚本专家!如何禁用服务? -- DS 答: 您好,DS.您知道吗,脚本专家似乎无意中发现了一个好主意.在上期专栏中,我们向大家介绍了如何禁用 LMHosts 文件.今天,我们将向大家介绍如何禁用服务.如果我们这样继续下去的话,不久,我们便可将如何禁用计算机上的一切介绍给大家.请想象一下:不再有网络问题,不再有客户服务中心呼叫,不再有用户覆盖了不应覆盖的文件.我们所要做的就是禁用一切,从而所有这些问题都将消失!这可以是我们通往幸福时光的入场券. 不可否认,禁用计算机上的一切可能导致贵组
-
使用 iisext.vbs 禁用 Web 服务扩展的方法
应用到: Windows Server 2003, Windows Server 2003 R2, Windows Server 2003 with SP1 可以使用命令行脚本 iisext.vbs(存储于 systemroot\system32 中),通过禁用所有具有特定 Web 服务扩展 ID 的文件来禁用 Web 服务扩展.该命令可在运行带有 IIS 6.0 的 Windows Server 2003 家族的成员的本地或远程计算机上执行. Iisext.vbs 执行可用于 IIS 管理器的
-
使用 Iisext.vbs 启用Web服务扩展的方法
应用到: Windows Server 2003, Windows Server 2003 R2, Windows Server 2003 with SP1 可以使用命令行脚本 iisext.vbs(存储于 systemroot\system32 中)启用 Web 服务扩展.Web 服务扩展在 WebSvcExtRestrictionList Metabase Property中必须至少有一个文件与之关联.该命令可在运行带有 IIS 6.0 的 Windows Server 2003 家族的成员
-
使用 Iisext.vbs 添加Web服务扩展文件的方法
应用到: Windows Server 2003, Windows Server 2003 R2, Windows Server 2003 with SP1 可以使用命令行脚本 iisext.vbs(存储在 systemroot\system32 中)将单个文件添加到 WebSvcExtRestrictionList Metabase Property中.该命令可在运行带有 IIS 6.0 的 Windows Server 2003 家族的成员的本地计算机或远程计算机上执行.Web 服务扩展文件
-
使用 Iisext.vbs 删除 Web 服务扩展文件的方法
应用到: Windows Server 2003, Windows Server 2003 R2, Windows Server 2003 with SP1 可使用命令行脚本 iisext.vbs(存储在 systemroot\system32 中)从 WebSvcExtRestrictionList Metabase Property中删除单个文件.该命令可在运行带有 IIS 6.0 的 Windows Server 2003 家族的成员的本地计算机或远程计算机上执行.Web 服务扩展文件可以
-
使用 Iisext.vbs 启用Web服务扩展文件的方法
应用到: Windows Server 2003, Windows Server 2003 R2, Windows Server 2003 with SP1 可使用命令行脚本 iisext.vbs(存储在 systemroot\system32 中)启用配置数据库 WebSvcExtRestrictionList Metabase Property 属性中的单个文件.该命令可在运行带有 IIS 6.0 的 Windows Server 2003 家族的成员的本地计算机或远程计算机上执行.Web
随机推荐
- mysql优化利器之explain使用介绍
- JSONP跨域请求
- javascript密码验证
- 预防网页挂马的方法总结
- ReactiveCocoa代码实践之-更多思考
- 实例解析jQuery工具函数
- 批处理 数码雨代码解释
- Javascript 表单之间的数据传递代码
- 重装系统并必须注意的几个小技巧
- 用Java产生100个1-150间不重复数字
- java随机验证码生成实现实例代码
- 利用ES6实现单例模式及其应用详解
- Vue2.0系列之过滤器的使用
- 易语言文本替换命令使用讲解
- Python使用Pandas对csv文件进行数据处理的方法
- nodejs文件夹深层复制功能
- python dataframe常见操作方法:实现取行、列、切片、统计特征值
- MacOS系统下Unity启动黑屏的解决方法
- MySQL存储引擎InnoDB的配置与使用的讲解
- ASP.NET Cookie是怎么生成的(推荐)