一键关闭win10系统自动更新vbs

该脚本的原理是,在注册表的"usosvc"主键下,增加一个名称为"WOW64"的DWORD值,数据为0000014c;

该值会阻止usosvc服务的启动;需要恢复的时候删除此值即可;

相对于彻底删除服务的方法,此方法改动小,风险小,但只支持64位Win10(32位的已验证不管用);

' 管理Win10自动更新v3.vbs.

Const usosvc_reg = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\usosvc"
Set fso = createobject("scripting.filesystemobject")
Set shell = createobject("wscript.shell")
curdir = fso.getparentfoldername(wscript.scriptfullname)

If wscript.arguments.count = 0 Then
    Set sh = createobject("shell.application")
    sh.shellexecute wscript.fullname,"""" & wscript.scriptfullname & """ -admin",,"runas"
ElseIf wscript.arguments.count = 1 And wscript.arguments(0) = "-admin" Then
    run
Else
    msgbox "脚本启动参数错误!"
End If

Sub Run()
    Do
        ret = inputbox("1. 禁止Win10自动更新;" & vbcrlf & _
                        "2. 恢复Win10自动更新;" & vbcrlf & _
                        vbcrlf & _
                        "请输入序号:","管理Win10自动更新v3","1")
        Select Case ret
        Case "1"
            retnum = shell.run("sc.exe stop usosvc",0,True)
            shell.regwrite usosvc_reg & "\WOW64",&H14c,"REG_DWORD"
            msgbox "已禁止Win10自动更新!",vbexclamation
            Exit Do
        Case "2"
            shell.regdelete usosvc_reg & "\WOW64"
            retnum = shell.run("sc.exe start usosvc",0,True)
            msgbox "已恢复Win10自动更新!",vbexclamation
            Exit Do
        Case ""
            Exit Do
        Case Else
            msgbox "输入错误!请重新输入!",vbcritical
        End Select
    Loop
End Sub