VBS 脚本关闭Windows Update 更新服务

'---------------------------------------
'-提升用户权限--------------------------------------
bElevate = False
if WScript.Arguments.Count > 0 Then If WScript.Arguments(WScript.Arguments.Count-1) <> "|" then bElevate = True
if bElevate Or WScript.Arguments.Count = 0 Then ElevateUAC
'******************
'关闭服务代码
'******************
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service " _
& "where Name='wuauserv'")
For Each objService In colServiceList
StartMode = UCase(objService.StartMode)
If (StartMode = "MANUAL") Or (StartMode = "AUTO") Then
objService.StopService
errReturnCode = objService.ChangeStartMode("Disabled")
if (errReturnCode=0) Then
  MsgBox "success"
End If
End If
Next



'-----------------------------------------
'Run this script under elevated privileges
'-----------------------------------------
Sub ElevateUAC
    sParms = " |"
    If WScript.Arguments.Count > 0 Then
            For i = WScript.Arguments.Count-1 To 0 Step -1
            sParms = " " & WScript.Arguments(i) & sParms
        Next
    End If
    Set oShell = CreateObject("Shell.Application")
    oShell.ShellExecute "wscript.exe", WScript.ScriptFullName & sParms, , "runas", 1
    WScript.Quit
End Sub