VBS获取服务的信息

最新推荐文章于 2026-05-16 07:18:15 发布
原创 最新推荐文章于 2026-05-16 07:18:15 发布 · 1.6k 阅读 · 1 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
标签
#服务信息


Set WMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
Set ListOfServices = WMIService.ExecQuery("Select * from Win32_Service Where name ='" & name & "'") 

For Each obj In ListOfServices 
MsgBox  obj.DisplayName
Exit For 
Next 

有关服务的详细属性，请参考MSDN中有关Win32_Service的部分

删除各种不需要的服务
11-08
强制删除各种不需要的服务 win7+可以使用，亲测可伊用
VBS命令：关于以管理员身份运行程序的VBS命令
热门推荐
zw05011的博客
01-29 2万+
1、VBS命令：以管理员权限运行VBS脚本 直接将其添加到VBS文件开头 Set WshShell = WScript.CreateObject("WScript.Shell") If WScript.Arguments.Length = 0 Then Set ObjShell = CreateObject("Shell.Application") ObjShell.ShellExecute "wscript.exe" _ , """" & WScript.ScriptFullN
WMI问题全解（Windows管理规范）<转>
weixin_30267697的博客
01-14 1220
问题 1：WMI 是什么，它能帮我做什么？ 问题 2： WMI 适用于那些平台？ 问题 3：如果 WMI 向外界暴露特定的功能，我如何才能知道？ 问题 4：如果 WMI 没有提供我想要的功能，我应该怎么办？ 问题 5：在哪里可以找到使用 WMI 的示例脚本？ 问题 6： 为什么我的脚本可以在某个版本的 Windows 上运行，但在另外一个版本的 Windows 上却不能运...
GLSL核心函数实战：从step到smoothstep的图形创作
最新发布
weixin_30896511的博客
05-16 625
本文深入探讨GLSL核心函数step和smoothstep在图形创作中的实战应用。通过具体代码示例，展示如何利用step实现阈值控制、结合mod生成周期性图案，以及使用smoothstep创建平滑过渡效果，为Shader编程和图形设计提供实用技巧。
vbs 打开网页
ZXL工作室
05-05 3896
On Error Resume Next Set WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set A = WMI.ExecQuery("Select * From Win32_DesktopMonitor") For Each B in A     W = B.ScreenWid
脚本
简单的快乐
10-15 842
脚本故事 发布者 The Scripting Guys谈谈脚本的输出您是否有过这样的经历，写了一个脚本，当您从命令行运行它时却只看到模糊的一行行数据快速向上翻滚，带走了您创建这个脚本所要获得的所有信息。怎样解决这个问题？你可能会把时间浪费在配置命令行窗口的属性上，加大它的缓冲区；在理论上，这可以使你往上滚动窗口，并查看信息。（为什么说是在“理论上”？因为有些信息可能还是无法显示
WMI脚本：计算机管理脚本范例
BG8JQT的博客
03-11 728
更改计算机帐号属性 更改计算机帐号属性，演示如何通过脚本来更改 Active Directory 中的计算机帐号的位置属性。 脚本代码： Set objComputer = GetObject("LDAP://CN=.,CN=Computers,DC=fabrikam,DC=com") objComputer.Put "location", "Building 37, Floor 2, R...
通过VBS 获取系统所有服务信息
软件自动化测试专栏
08-24 1639
<br />通过访问WMI 可以获取系统的所有后台服务信息<br />以下代码获取Win32_Service信息，并显示在一个Excel窗口中：<br /> <br />Set excel = CreateObject( "Excel.Application" )<br />With excel   <br /> .Visible = True   <br /> .Workbooks.Add<br />End With<br />x = 1<br />Set wmiService = GetObject(
vbs 服务器获取输入信息,取得服务器上用户组列表脚本之VBS版
weixin_39551188的博客
08-12 501
‘groups.vbs‘时间:2001.2.5‘版本:1.0‘作者:沧海笑一声‘其它:此脚本原作者写于2000年初,沧海用过后觉得不是很好用.‘它原来的显示方式是wsh的方法,往往要多屏显示,而且不能保存结果‘我将之改成IE显示的方法,用起来方便些.:)On Error Resume Next‘dim wshelldim ie,docset ie = createobject("internete...
vbs 获取跨服务器文件,vbs读取文件内的信息将非有效数据移动到指定路径
weixin_34566429的博客
08-06 355
vbs读取文件内的信息将非有效数据移动到指定路径之前我们介绍了，通过读取文件内的信息将相同的数据拷贝到指定目录，执行后我们可以利用有效的信息，但是时间长的话服务器上的可用空间也会越来越多，所以再次就想通过vbs脚本来判断数据是否有用，来提高服务器的可用空间。思路是这样的，通过从domino目录下导出有效的数据，然后通过本地的数据盘进行比对，将无效的数据库移动到其他盘操作，如果在不影响数据完整性的情...
使用VBS脚本获取计算机硬件信息
weixin_29363791的博客
05-02 1515
Visual Basic Scripting Edition（VBS）是一种轻量级的脚本语言，它是由微软公司开发的，通常用于自动化简单的Windows任务和创建交互式Web页面。VBS基于Visual Basic，但是更加简化，不需要编译，可以直接在Windows系统中运行。硬盘序列号（Serial Number）是一块硬盘的身份标识码，通常由制造商在硬盘生产时烧写入硬盘固件中。它在不同的应用场景下具有不同的作用，如在资产管理中用于识别和追踪硬件设备，或在安全领域用于验证硬盘的真实性。
VB获取winmgmts打开的程序个数获取系统信息代码
511遇见
06-13 2563
VB获取打开的程序个数经典源码 Private Sub Form_Load() MsgBox getInstanceCount("notepad.exe") End Sub '得到所有进程名为proName的个数 Private Function getInstanceCount(ByVal proName As String) As Integer Dim objWMIService As Object Dim colProcessList As Object Dim
vbs 一些脚本
08-26 2182
 什么是 Runomatic？你不想我们来破坏你自己找到答案时的那种惊奇感，是吧？任务1：检索计算机名老实告诉你吧，通过脚本来检索计算机名的途径数不胜数。但是因为 WMI 将要成为检索信息的主流技术，所以我们所展示的是一段返回目标计算机名称的 WMI 脚本。strComputer = "."Set objWMIService = GetObject("winmgmts://" & strCompu
Windows管理规范（WMI）教程
IT与开发人员的地盘
05-25 766
介绍 Windows管理规范（WMI）是Windows的一组扩展，可提供有关计算机系统的信息和通知。 WMI允许脚本语言（如VBScript或Windows PowerShell）在本地和远程管理Microsoft Windows计算机。 WMI已预安装在Windows 2000和更高版本的操作系统中。 可以从Windows NT，Windows 95和Windows 98下载该文件。 WM...
使用VBS获取当前计算机上开启的服务
hulunberbus
09-01 211
'获得当前系统服务Dim oArgs, strServerName, oServiceSet, oWshNetwork Set oArgs = WScript.ArgumentsIf oArgs.Count &gt; 0 Then strServerName = trim(oArgs(0))Else strServerName = "LocalHost"End IfSet oServiceSet...
利用GetObject("WinMgmts:")获取系统信息
shellching的专栏
11-27 1万+
转自：http://www.cnblogs.com/dongzhiquan/archive/2010/09/12/1994556.html  有补充 用WMI对象列出系统所有进程: ----Instance.vbs----  程序代码 Dim WMI,objs Set WMI = GetObject("WinMgmts:") Set objs = WMI.InstancesOf
批量删除网络打印机的2个方法
weixin_34049948的博客
09-05 1259
dos命令： wmic path win32_printer where network=true delete vbs脚本： Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colInstalledPrinters = objWMIServic...
由于计算机上的wmi配置_VBScript WMI教程：从多台计算机检索C驱动器上的可用空间
cunchi8090的博客
07-21 671
由于计算机上的wmi配置 介绍 (Introduction) 在我作为Experts Exchange的VBScript贡献者参与期间，我遇到的最常见问题之一是： "I have a script that runs against only one computer. How can I make it run against a list of c...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值