如何获取服务描述信息
如何获取服务描述信息
好像是queryserviceconfig2这个函数的调用
知道的说一下吧 谢了
[解决办法]
Private Sub Command4_Click()
Dim strComputer As String
Dim objWMIService As Object
Dim colProcessList
Dim objProcess As Object
On Error Resume Next
strComputer = ". "
Set objWMIService = GetObject( "winmgmts: " & "{impersonationLevel=impersonate}!\\ " & strComputer & "\root\cimv2 ")
Set colProcessList = objWMIService.ExecQuery( "select * from win32_service ")
Debug.Print "=================================== "
For Each objProcess In colProcessList
'objProcess.ChangeStartMode "Manual " 'Boot System Automatic Manual Disabled
'Debug.Print objProcess.Name, objProcess.acceptstop
Debug.Print objProcess.Name, objProcess.Description
Next
End Sub