VBS备份服务+服务优化

首先生成当前服务的备份VBS，然后再进行服务的优化....

dim ObjFso,Wsh
StrComputer = "."
Const Forwriteing = 8
TemporaryFolder = 2
WindowsFolder = 0
DT = date()
HTT = "QQ:53077777"
TheFile = "Service-"&DT&".vbs"
Set Wsh = CreateObject("Wscript.Shell")
Set ObjFso = CreateObject("Scripting.FileSystemObject")
If ObjFso.FileExists(TheFile) Then
    Msgbox "The File Has been in existence.",16,"Warning!":T =1
Else
    Set ObjFile = ObjFso.CreateTextFile(TheFile,ForWriteing)
    ObjFile.WriteLine "Dim ObjFso,Wsh":B=Chr("-20001")
    ObjFile.WriteLine "StrComputer = ""."""
    ObjFile.WriteLine "Const Forwriteing = 8":W = GOT():N=Chr("-15161"):D=Chr("-19004")
           ObjFile.WriteLine "Function SRV(SRN,SRM)"
           ObjFile.WriteLine "Set ObjWmiService = GetObject(""Winmgmts:\\""& StrComputer &""\Root\Cimv2"")":k=Chr("-16445"):S=Chr("-13577")
           ObjFile.WriteLine "Set ObjServices =ObjWmiService.ExecQuery(""Select * From Win32_Service"")"
           ObjFile.WriteLine "    For Each S In ObjServices":h=Chr("-17709")
           ObjFile.WriteLine "        If s.Name = Srn Then"
           ObjFile.WriteLine "           S.ChangeStartMode SRM "
           ObjFile.WriteLine "        End if"
           ObjFile.WriteLine "    Next"
           ObjFile.WriteLine "End Function":HBS=H+B+D+N+K+S
           ObjFile.Close
End if
If T = 1 Then
   Wscript.Quit   
Else
   Judge = Msgbox ("Complete backup services，'Service(date).vbs'"&Chr(13)&"Whether to begin optimization?",VBYesNo+64,"Complete--" & Htt)
       If Judge = 6 Then
           Call SRV("Alerter","Disabled")
           Call SRV("ALG","Disabled")
           Call SRV("AppMgmt","Manual")
           Call SRV("Ati HotKey Poller","Disabled")
           Call SRV("AudioSrv","Auto")
           Call SRV("BITS","Manual")
           Call SRV("Browser","Disabled")
           Call SRV("CiSvc","Disabled")
           Call SRV("ClipSrv","Disabled")
           Call SRV("COMSysApp","Manual")
           Call SRV("CryptSvc","Auto")
           Call SRV("DcomLaunch","Auto")
           Call SRV("DF5Serv","Auto")
           Call SRV("Dhcp","Auto")
           Call SRV("dmadmin","Manual")
           Call SRV("dmserver","Manual")
           Call SRV("Dnscache","Auto")
           Call SRV("ERSvc","Disabled")
           Call SRV("Eventlog","Auto")
           Call SRV("EventSystem","Auto")
           Call SRV("FastUserSwitchingCompatibility","Manual")
           Call SRV("helpsvc","Disabled")
           Call SRV("HidServ","Disabled")
           Call SRV("HTTPFilter","Manual")
           Call SRV("ImapiService","Disabled")
           Call SRV("lanmanserver","Disabled")
           Call SRV("lanmanworkstation","Auto")
           Call SRV("LmHosts","Auto")
           Call SRV("Messenger","Disabled")
           Call SRV("mnmsrvc","Manual")
           Call SRV("MSDTC","Manual")
           Call SRV("MSIServer","Manual")
           Call SRV("NetDDE","Disabled")
           Call SRV("NetDDEdsdm","Disabled")
           Call SRV("Netlogon","Manual")
           Call SRV("Netman","Auto")
           Call SRV("Nla","Disabled")
           Call SRV("NtLmSsp","Manual")
           Call SRV("NtmsSvc","Manual")
           Call SRV("NVSvc","Disabled")
           Call SRV("ose","Manual")
           Call SRV("PlugPlay","Auto")
           Call SRV("PolicyAgent","Disabled")
           Call SRV("ProtectedStorage","Auto")
           Call SRV("RasAuto","Manual")
           Call SRV("RasMan","Manual")
           Call SRV("RDSessMgr","Manual")
           Call SRV("RemoteAccess","Disabled")
           Call SRV("RemoteRegistry","Disabled")
           Call SRV("RpcLocator","Manual")
           Call SRV("RpcSs","Auto")
           Call SRV("RSVP","Manual")
           Call SRV("SamSs","Auto")
           Call SRV("SCardSvr","Manual")
           Call SRV("Schedule","Auto")
           Call SRV("seclogon","Auto")
           Call SRV("SENS","Auto")
           Call SRV("SharedAccess","Disabled")
           Call SRV("ShellHWDetection","Auto")
           Call SRV("sicentnetsync","Auto")
           Call SRV("Spooler","Disabled")
           Call SRV("srservice","Disabled")
           Call SRV("SSDPSRV","Disabled")
           Call SRV("stisvc","Auto")
           Call SRV("SwPrv","Manual")
           Call SRV("SysmonLog","Manual")
           Call SRV("TapiSrv","Manual")
           Call SRV("TermService","Disabled")
           Call SRV("Themes","Auto")
           Call SRV("TlntSvr","Disabled")
           Call SRV("TrkWks","Auto")
           Call SRV("UMWdf","Auto")
           Call SRV("upnphost","Disabled")
           Call SRV("UPS","Manual")
           Call SRV("usnjsvc","Manual")
           Call SRV("VSS","Manual")
           Call SRV("W32Time","Disabled")
           Call SRV("WebClient","Disabled")
           Call SRV("winmgmt","Auto")
           Call SRV("WinVNC4","Manual")
           Call SRV("WmdmPmSN","Manual")
           Call SRV("Wmi","Manual")
           Call SRV("WmiApSrv","Manual")
           Call SRV("wscsvc","Disabled")
           Call SRV("wuauserv","Disabled")
           Call SRV("WZCSVC","Disabled")
           Call SRV("xmlprov","Manual")
           RC = Msgbox("Optimization completed!restart Your computer?",VBYesNo+64,"OK--"& HBS)
           If Rc = 6 Then
              Wsh.Run "Shutdown.exe -r -t 5"
           Else
              Wscript.quit
           End if   
       Else
         Wscript.Quit
       End if
End if
Function GOT()
    Set ObjWMIService = GetObject(_
             "Winmgmts:\\"& StrComputer &"\Root\Cimv2")
              Set ObjServices = ObjWmiService.ExecQuery(_
                               "Select * From Win32_Service")
           For Each ObjService in ObjServices
               ServiceName = ObjService.Name
               ServiceMode = ObjService.StartMode
               ObjFile.WriteLine "Call SRV("""& ServiceName &""","""& ServiceMode &""")"
           Next
End Function
Function SRV(SRN,SRM)
Set ObjWmiService = GetObject("Winmgmts:\\"& StrComputer &"\Root\Cimv2")
Set ObjServices =ObjWmiService.ExecQuery("Select * From Win32_Service")
    For Each S In ObjServices
        If s.Name = Srn Then
           S.ChangeStartMode SRM
        End if
    Next
End Function