由于我不完全确定我的主要问题的答案(.net 框架类库中的成员能够获取此信息)我开发了这种注册表方法,它至少比弄乱 WMI 快得多,也可以确定服务是否自动启动延迟。
首先是一个自定义枚举来扩展实际的ServiceStartMode
枚举:
''' <summary>
''' Indicates the start mode of a service.
''' </summary>
Public Enum SvcStartMode As Integer
''' <summary>
''' Indicates that the service has not a start mode defined.
''' Since a service should have a start mode defined, this means an error occured retrieving the start mode.
''' </summary>
Undefinied = 0
''' <summary>
''' Indicates that the service is to be started (or was started) by the operating system, at system start-up.
''' The service is started after other auto-start services are started plus a short delay.
''' </summary>
AutomaticDelayed = 1
''' <summary>
''' Indicates that the service is to be started (or was started) by the operating system, at system start-up.
''' If an automatically started service depends on a manually started service,
''' the manually started service is also started automatically at system startup.
''' </summary>
Automatic = 2 'ServiceStartMode.Automatic
''' <summary>
''' Indicates that the service is started only manually,
''' by a user (using the Service Control Manager) or by an application.
''' </summary>
Manual = 3 'ServiceStartMode.Manual
''' <summary>
''' Indicates that the service is disabled, so that it cannot be started by a user or application.
''' </summary>
Disabled = 4 ' ServiceStartMode.Disabled
End Enum
其次,这个功能:
''' <summary>
''' Gets the start mode of a service.
''' </summary>
''' <param name="svcName">The service name.</param>
''' <returns>The service's start mode.</returns>
''' <exception cref="ArgumentException">
''' Any service found with the specified name.
''' </exception>
''' <exception cref="Exception">
''' Registry value "Start" not found for service.
''' </exception>
''' <exception cref="Exception">
''' Registry value "DelayedAutoStart" not found for service.
''' </exception>
Public Shared Function GetStartMode(ByVal svcName As String) As SvcStartMode
Dim reg As RegistryKey = Nothing
Dim startModeValue As Integer = 0
Dim delayedAutoStartValue As Integer = 0
Try
reg = Registry.LocalMachine.
OpenSubKey("SYSTEM\CurrentControlSet\Services\" & svcName,
writable:=False)
If reg Is Nothing Then
Throw New ArgumentException("Any service found with the specified name.",
paramName:="svcName")
Else
startModeValue = Convert.ToInt32(reg.GetValue("Start",
defaultValue:=-1))
delayedAutoStartValue = Convert.ToInt32(reg.GetValue("DelayedAutoStart",
defaultValue:=0))
If startModeValue = -1 Then
Throw New Exception(String.Format(
"Registry value ""Start"" not found for service '{0}'.",
svcName))
Return SvcStartMode.Undefinied
Else
Return DirectCast(
[Enum].Parse(GetType(SvcStartMode),
(startModeValue - delayedAutoStartValue).ToString),
SvcStartMode)
End If
End If
Catch ex As Exception
Throw
Finally
If reg IsNot Nothing Then
reg.Dispose()
End If
End Try
End Function