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
是不是非常不错的解法,小伙伴们可以学习下。
相关推荐
-
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,&
-
通过IIS自带工具Iisapp.vbs查询哪个w3wp.exe站点占用资源(cpu或内存)
经过查找发现是因为w3wp.exe占用了100%的cpu导致80端口占用巨大,其它的操作都无法进行. 在任务管理器中看到的是w3wp.exe占用资源过多,那么就需要查看w3wp.exe的pid值. 下面是寻找出错网站的过程:要找到这个网站,必须把有问题的进程跟该网站的应用程序池联系起来.首先设置任务管理器的查看方式,加入PID的显示: 然后再命令行运行iisapp -a,可以看到PID跟应用程序池的对应关系: 再去iis中看该应用程序池对应的网站,有问题的网站就找到了,剩下的就是这个网站代码中的
-
可以查询系统用户名sid的vbs
复制代码 代码如下: set path=wscript.createobject("wscript.shell") usera=path.ExpandEnvironmentStrings("%username%") name=inputbox("请输入你要查询的用户名","sid查询--by不追不悔",usera) strComputer = "." Set wbemServices = Getobject
-
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 = "(查
-
ACCESS的参数化查询,附VBSCRIPT(ASP)和C#(ASP.NET)函数第1/2页
最近因项目需要用ACCESS做数据库开发WEB项目 看论坛上还许多人问及ACCESS被注入的安全问题 许多人解决的方法仍然是用Replace替换特殊字符,然而这样做也并没有起到太大做用 今天我就把我用ACCESS参数化查询的一些方法和经验和大家分享 希望对大家有所启发,有写的不对的地方希望高手们多多指教 ASP.NET 用OleDbCommand的new OleDbParameter创建参数货查询 ASP用Command的CreateParameter 方法创建参数化查询 (SQL储存过程查询也
-
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
随机推荐
- iOS实现“摇一摇”与“扫一扫”功能示例代码
- JSON中key动态设置及JSON.parse和JSON.stringify()的区别
- echart简介_动力节点Java学院整理
- 校内网,大学生校内网的定义
- centos系统升级python 2.7.3
- iOS实现毫秒倒计时的方法详解
- SpringBoot mail中文附件乱码的解决方法
- ASP.NET实现的简单易用文件上传类
- javascript中数组的冒泡排序使用示例
- CodeIgniter配置之SESSION用法实例分析
- 深入多线程之:深入生产者、消费者队列分析
- 教你如何搭建一个安全的Linux服务器教程
- java简单冒泡排序实例解析
- 十分钟搞定多图片/文件服务器
- 路由器端QQ封堵方案
- Spring boot集成Kafka+Storm的示例代码
- Vue.js递归组件构建树形菜单
- Python运维自动化之nginx配置文件对比操作示例
- python merge、concat合并数据集的实例讲解
- vue 引用自定义ttf、otf、在线字体的方法