管理和优化服务的vbs

Dim SS, S

Dim szMsg, szTtl

Dim l



Set SS = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("Select * From Win32_Service")

szMsg = "执行了下列操作：" & vbCrLf

szTtl = "管理服务程序"

l = Len(szMsg)



For Each S In SS

Select Case UCase(Trim(S.Name))

Case "DFS":

Call StopManual()

Case "ERSVC":

Call StopManual()

Case "HELPSVC":

Call StopManual()

Case "MDM":

Call StopManual()

Case "MESSENGER":

Call StopDisable()

Case "SPOOLER":

Call PrintSpooler()

Case "REMOTEREGISTRY":

Call StopDisable()

Case "SCHEDULE":

Call StopManual()

Case "THEMES":

Call Themes()

Case "AUDIOSRV":

Call WindowsAudio()

Case "W32TIME":

Call StopManual()

End Select

Next



Set SS = Nothing

Set S = Nothing



If Len(szMsg) = l Then szMsg = "您的服务设置和本程序预期的一样！"

MsgBox szMsg, 4160, szTtl



'Distributed File System

'Error Reporting Service

'Help and Support

'Machine Debug Manager

'Task Scheduler

'Windows Time

Sub StopManual()

Dim bFlg



bFlg = False



If StrComp(S.StartMode, "Manual", 1) Then

S.ChangeStartMode("Manual")

bFlg = True

End If

If StrComp(S.State, "Stopped", 1) Then

S.StopService

bFlg = True

End If



If bFlg Then szMsg = szMsg & vbCrLf & "停止" & S.Caption & "服务，并将其启动类型设为手动。"

End Sub



'Messenger

'Remote Registry

Sub StopDisable()

Dim bFlg



bFlg = False



If StrComp(S.StartMode, "Disabled", 1) Then

S.ChangeStartMode("Disabled")

bFlg = True

End If

If StrComp(S.State, "Stopped", 1) Then

S.StopService

bFlg = True

End If



If bFlg Then szMsg = szMsg & vbCrLf & "停止并禁用了" & S.Caption & "服务。"

End Sub



'Print Spooler

Sub PrintSpooler()

If StrComp(S.State, "Stopped", 1) or StrComp(S.StartMode, "Manual", 1) Then

If MsgBox("您是否有打印机？", 4132, szTtl) = 7 Then

S.ChangeStartMode("Manual")

S.StopService

szMsg = szMsg & vbCrLf & "停止并禁用了" & S.Caption & "服务。"

End If

End If

End Sub



'Themes

Sub Themes()

If StrComp(S.State, "Stopped", 1) or StrComp(S.StartMode, "Manual", 1) Then

If MsgBox("您是否要使用 XP 主题风格？", 4132, szTtl) = 7 Then

S.ChangeStartMode("Manual")

S.StopService

szMsg = szMsg & vbCrLf & "停止并禁用了" & S.Caption & "服务。"

End If

End If

End Sub



'Windows Audio

Sub WindowsAudio()

If StrComp(S.State, "Running", 1) or StrComp(S.StartMode, "Auto", 1) Then

S.ChangeStartMode("Automatic")

S.StartService

szMsg = szMsg & vbCrLf & "自动启用了" & S.Name & "服务。"

End If

End Sub