vb中利用WMI判断系统服务状态
来源:互联网 发布:tgp网络加速有用吗 编辑:程序博客网 时间:2024/05/21 22:49
程序代码
Private Sub Command1_Click()
On Error GoTo err
Dim objSWbemLocator As SWbemLocator
Dim objSWbemServices As SWbemServices
Dim objSWbemObjectSet AsSWbemObjectSet
Dim objSWbemObject As SWbemObject
Dim strComputer As String, strNameSpace AsString, strClass As String
Dim sstr As String
sstr = Text2.Text
'判断服务是否启动
strComputer = "."
strNameSpace = "root/cimv2"
strClass = "Win32_Service"
Set objSWbemLocator =CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices =objSWbemLocator.ConnectServer(strComputer, strNameSpace)
Set objSWbemObjectSet =objSWbemServices.ExecQuery("Select * FROM " & strClass &" where name='" & sstr& "'")
For Each objSWbemObject InobjSWbemObjectSet
Text1.Text = "服务状态:" + objSWbemObject.State _
+ Chr(13) + Chr(10) + "启动方式:" +objSWbemObject.StartMode
Next
Exit Sub
err:
Text1.Text = "服务名不对!"
End Sub
如果服务已经启动需要关闭把后面这样修改,如防火墙
程序代码程序代码
For Each objSWbemObject InobjSWbemObjectSet
Text1.Text = "系统防火墙状态:" +objSWbemObject.State + " 启动方式:" +objSWbemObject.StartMode + ".."
fwstatus = objSWbemObject.State
Next
If fwstatus = "Running" Then
Text1.Text = "系统防火墙开启,将被自动关闭......"
Shell "net stopsharedaccess"
End If
- vb中利用WMI判断系统服务状态
- VB 利用WMI进行服务监视
- WMI访问系统服务
- 使用WMI检查服务状态
- C# 中利用WMI服务查询显卡信息
- VB中使用WMI 一
- VB利用WMI编写的任务管理器
- VB 利用WMI进行日志监视
- VB 利用WMI进行进程监视
- VB 利用WMI进行USB监视
- VB 利用WMI进行PNP监视
- VB中使用WMI获取系统硬件和软件有关信息
- VB中使用WMI获取系统硬件和软件有关信息
- VB中使用WMI获取系统硬件和软件有关信息
- 在VB中使用WMI获取系统硬件和软件有关信息
- VB中使用WMI获取系统硬件和软件有关信息
- 使用WMI来得到系统的服务
- 利用WMI实现系统补丁检测
- HTTPS
- SQLDMO实例(SQL Server2000+VB6下测试通过)
- LCD显示负片效果
- UNBUNTU 下修改VIM支持C程序设计
- hdu 1242 Rescue
- vb中利用WMI判断系统服务状态
- VB中使用WMI 一
- VB中使用WMI 二(不用引用microsoftwmi scripting的方法)
- Java 中的静态代码块
- eclipse 快捷键
- android学习之ListView的用法简介
- CSS中加号、星号及其他符号的作用
- 青蛙的烦恼
- Android开发系列八:怎么混合显示图片和文本