• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    VBS实现的系统服务备份优化代码
    复制代码 代码如下:

    Option Explicit
    '○○○○○○○○○○○○○○○○○○○○○○○○○○○○○开始
    Const blnVBSShowCaption=True
    '生成的服务备份中是否添加说明
    Const blnVBSShowDescription=True
    '●●●●●●●●●●●●●●●●●●●●●●●●●●●●●结束
    '文件读写标识常量
    Const Forwriteing = 8
    '读取出来的自动模式类型
    Const cstrAutoForRead="Auto"
    '用于设定的自动模式类型
    Const cstrAutoForWrite="Automatic"
    '变更历史状态
    Const cstrStateNotFound="Not Found"
    Const cstrStateNotSetted="Not Setted"
    Const cstrStateNotChanged="Not Changed"
    Const cstrStateChanged="Changed"
    '服务变更类型
    Class clsServiceChange
        '服务名称
        Public Name
        '服务显示名称
        Public Caption
        '服务描述
        Public Description
        '服务初始启动模式
        Public StartModeFrom
        '服务之后启动模式
        Public StartModeTo
        '服务启动变更标识
        Private Sub Class_Initialize()
            Name=""
            Caption=""
            Description=""
            StartModeFrom=""
            StartModeTo=""
        End Sub
        Public Property get State
            If StartModeFrom="" Then
                State="Not Found"
                Exit Property
            End If
            If StartModeTo="" Then
                State="Not Setted"
                Exit Property
            End If
            If StartModeFrom=StartModeTo Then
                State="Not Changed"
            Else
                State="Changed"
            End If
        End Property
    End Class
    '文件系统
    dim objFileSystem
    '备份的VBS文件
    Dim objVBSFile
    'WshShell 对象
    dim objWShell
    'windows 系统管理模块
    Dim objWinManagment
    '系统服务集
    Dim objServices
    '所操作的电脑标识
    Dim strComputer
    '备份文件路径
    Dim strVBSFilePath
    '备份文件名
    Dim strVBSFileName
    '信息
    Dim strMessage
    '数组索引
    Dim intIndex
    'Log暂存
    Dim astrLog()
    '服务变更历史
    Dim aobjServiceChange()
    Redim aobjServiceChange(0)
    Redim astrLog(0)
    '添加多条变更原则
    '○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○
    '自己修改位置(开始)
    '○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○
    AddRuler "Alerter"    ,"Disabled"
    AddRuler "ALG"    ,"Manual"
    AddRuler "AppMgmt"    ,"Manual"
    AddRuler "aspnet_state"    ,"Disabled"
    AddRuler "Ati HotKey Poller"    ,"Disabled"
    AddRuler "AudioAddRuler"    ,"Auto"
    AddRuler "BITS"    ,"Manual"
    AddRuler "Browser"    ,"Disabled"
    AddRuler "CiSvc"    ,"Disabled"
    AddRuler "ClipSrv"    ,"Disabled"
    AddRuler "ClipAddRuler"    ,"Disabled"
    AddRuler "COMSysApp"    ,"Disabled"
    AddRuler "CryptSvc"    ,"Auto"
    AddRuler "DcomLaunch"    ,"Auto"
    AddRuler "DF5Serv"    ,"Auto"
    AddRuler "Dhcp"    ,"Auto"
    AddRuler "dmadmin"    ,"Manual"
    AddRuler "dmserver"    ,"Manual"
    AddRuler "Dnscache"    ,"Disabled"
    AddRuler "ERSvc"    ,"Disabled"
    AddRuler "Eventlog"    ,"Auto"
    AddRuler "EventSystem"    ,"Auto"
    AddRuler "FastUserSwitchingCompatibility"    ,"Disabled"
    AddRuler "helpsvc"    ,"Manual"
    AddRuler "HidServ"    ,"Disabled"
    AddRuler "HTTPFilter"    ,"Manual"
    AddRuler "ImapiService"    ,"Disabled"
    AddRuler "lanmanserver"    ,"Manual"
    AddRuler "lanmanworkstation"    ,"Auto"
    AddRuler "LmHosts"    ,"Disabled"
    AddRuler "MDM"    ,"Disabled"
    AddRuler "Messenger"    ,"Disabled"
    AddRuler "mnmAddRulerc"    ,"Manual"
    AddRuler "mnmsrvc" , "Disabled"
    AddRuler "MSDTC"    ,"Disabled"
    AddRuler "MSIServer"    ,"Manual"
    AddRuler "NetDDE"    ,"Disabled"
    AddRuler "NetDDEdsdm"    ,"Disabled"
    AddRuler "Netlogon"    ,"Manual"
    AddRuler "Netman"    ,"Auto"
    AddRuler "Nla"    ,"Disabled"
    AddRuler "NtLmSsp"    ,"Manual"
    AddRuler "NtmsSvc"    ,"Disabled"
    AddRuler "NVSvc"    ,"Disabled"
    AddRuler "OO Defrag"    ,"Manual"
    AddRuler "ose"    ,"Manual"
    AddRuler "PlugPlay"    ,"Auto"
    AddRuler "PolicyAgent"    ,"Disabled"
    AddRuler "ProtectedStorage"    ,"Auto"
    AddRuler "RasAuto"    ,"Disabled"
    AddRuler "RasMan"    ,"Disabled"
    AddRuler "RDSessMgr"    ,"Disabled"
    AddRuler "RemoteAccess"    ,"Disabled"
    AddRuler "RemoteRegistry"    ,"Disabled"
    AddRuler "RpcLocator"    ,"Manual"
    AddRuler "RpcSs"    ,"Auto"
    AddRuler "RSVP"    ,"Disabled"
    AddRuler "SamSs"    ,"Auto"
    AddRuler "SCardSvr"    ,"Disabled"
    AddRuler "Schedule"    ,"Disabled"
    AddRuler "seclogon"    ,"Auto"
    AddRuler "SENS"    ,"Disabled"
    AddRuler "SharedAccess"    ,"Disabled"
    AddRuler "ShellHWDetection"    ,"Manual"
    AddRuler "sicentnetsync"    ,"Auto"
    AddRuler "Spooler"    ,"Manual"
    AddRuler "srservice"    ,"Disabled"
    AddRuler "SSDPAddRuler"    ,"Disabled"
    AddRuler "SSDPSRV"    ,"Disabled"
    AddRuler "stisvc"    ,"Manual"
    AddRuler "SwPrv"    ,"Disabled"
    AddRuler "SysmonLog"    ,"Manual"
    AddRuler "TapiAddRuler"    ,"Manual"
    AddRuler "TermService"    ,"Disabled"
    AddRuler "Themes"    ,"Auto"
    AddRuler "TlntSvr"    ,"Disabled"
    AddRuler "TrkWks"    ,"Disabled"
    AddRuler "TapiSrv"    ,"Disabled"
    AddRuler "UMWdf"    ,"Auto"
    AddRuler "upnphost"    ,"Disabled"
    AddRuler "UPS"    ,"Disabled"
    AddRuler "usnjsvc"    ,"Manual"
    AddRuler "VSS"    ,"Disabled"
    AddRuler "VMAuthdService"    ,"Manual"
    AddRuler "VMnetDHCP"    ,"Manual"
    AddRuler "VMware NAT Service"    ,"Manual"
    AddRuler "W32Time"    ,"Disabled"
    AddRuler "WebClient"    ,"Disabled"
    AddRuler "winmgmt"    ,"Auto"
    AddRuler "WinVNC4"    ,"Manual"
    AddRuler "WmdmPmSN"    ,"Disabled"
    AddRuler "Wmi"    ,"Manual"
    AddRuler "WmiApAddRuler"    ,"Manual"
    AddRuler "wscsvc"    ,"Manual"
    AddRuler "wuauserv"    ,"Disabled"
    AddRuler "WZCSVC"    ,"Auto"
    AddRuler "xmlprov"    ,"Manual"
    '●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
    '自己修改位置(结束)
    '●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
    '设定电脑为本机
    strComputer = "."
    Set objWShell = CreateObject("Wscript.Shell")
    '备份至我的文档
    strVBSFilePath = objWShell.SpecialFolders("MyDocuments") "\ServiceBack\"
    '以当前时间作为备份文件名
    strVBSFileName = "Service" Year(Date) "-" Month(Date) "-" Day(Date) "-" Hour(Time) "-" Minute(Time) ".vbs"
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    '备份文件路径存在性验证和添加文件夹
    If Not objFileSystem.FolderExists(strVBSFilePath) Then
        objFileSystem.CreateFolder(strVBSFilePath)
    End If
    '备份文件存在性验证
    If objFileSystem.FileExists(strVBSFilePath strVBSFileName) Then
        '文件存在的情况下
        Msgbox "The File Has been in existence.",16,"Warning!"
    Else
        '本机管理模块对象初始化
        Set objWinManagment = GetObject("Winmgmts:\\" strComputer "\Root\Cimv2")
        '本机服务集取得
        Set objServices =objWinManagment.ExecQuery("Select * From Win32_Service")
        '文件对象创建
        Set objVBSFile = objFileSystem.CreateTextFile(strVBSFilePath  strVBSFileName ,ForWriteing)
        objVBSFile.WriteLine vbcrlf
        objVBSFile.WriteLine "'Runable Backup:"
        objVBSFile.WriteLine "'============================="
        objVBSFile.WriteLine "Const cstrAutoForRead=""Auto"""
        objVBSFile.WriteLine "Const cstrAutoForWrite=""Automatic"""
        objVBSFile.WriteLine "intChangeCount=0"
        objVBSFile.WriteLine "intChangeSuccessCount=0"
        objVBSFile.WriteLine "strComputer = ""."""
        objVBSFile.WriteLine "Const Forwriteing = 8"
        objVBSFile.WriteLine "If Msgbox(""Are You Sure You Want To Restore Your Service ?"",VBYesNo+vbInformation,""Restore Service"")=vbYes Then"
        objVBSFile.WriteLine "    Set objWinManagment = GetObject(""Winmgmts:\\"" strComputer ""\Root\Cimv2"")"
        objVBSFile.WriteLine "    Set objServices =objWinManagment.ExecQuery(""Select * From Win32_Service"")"
        strMessage = GOT()
        objVBSFile.WriteLine "    Set objWinManagment = Nothing"
        objVBSFile.WriteLine "    Set objServices =Nothing"
        objVBSFile.WriteLine "End If"
        objVBSFile.WriteLine "Function SRV(SRN,SRM)"
        objVBSFile.WriteLine "    For Each S In objServices"
        objVBSFile.WriteLine "        If s.Name = Srn And S.StartMode>SRM Then"
        objVBSFile.WriteLine "           intChangeCount=intChangeCount+1 "
        objVBSFile.WriteLine "           If SRM=cstrAutoForRead Then "
        objVBSFile.WriteLine "               strStartModeTemp=cstrAutoForWrite "
        objVBSFile.WriteLine "           Else "
        objVBSFile.WriteLine "               strStartModeTemp=SRM "
        objVBSFile.WriteLine "           End If "
        objVBSFile.WriteLine "           If S.ChangeStartMode(strStartModeTemp)=0 Then "
        objVBSFile.WriteLine "               intChangeSuccessCount=intChangeSuccessCount+1 "
        objVBSFile.WriteLine "           End If "
        objVBSFile.WriteLine "        End if"
        objVBSFile.WriteLine "    Next"
        objVBSFile.WriteLine "End Function"
        If Msgbox ("Backup services Completed" Chr(13) strVBSFilePath  strVBSFileName Chr(13) "'(" strMessage ")" "Begin optimization?",VBYesNo+vbInformation,"Complete" ) = vbYes Then
            '执行服务设置
            strMessage=SRV
            Msgbox "Optimization completed!restart Your computer?" Chr(13) "'(" strMessage ")",vbOKOnly+vbInformation,"OK"
    '        If Msgbox("Optimization completed!restart Your computer?" Chr(13) "'(" strMessage ")",VBYesNo+vbInformation,"OK") = vbYes Then
    '          objWShell.Run "Shutdown.exe -r -t 5"
    '        End if  
        End if
        'Log输出
        Call OutputLog
        '备份文件关闭
        objVBSFile.Close
    End if
    '对象释放
    For intIndex=0 To Ubound(aobjServiceChange)
        Set aobjServiceChange(intIndex)= Nothing
    Next
    Erase aobjServiceChange   
    Erase astrLog
    Set objFileSystem=Nothing
    Set objVBSFile=Nothing
    Set objWShell=Nothing
    Set objWinManagment=Nothing
    Set objServices=Nothing
    Wscript.quit
    ''''''''''''''''''''''''''''''''''
    '记录Log信息
    ''''''''''''''''''''''''''''''''''
    Function WriteLog(strTemp)
        '检测当前数组值是否被初始化并初始化为空值
        If Isempty(astrLog(Ubound(astrLog))) Then
            astrLog(Ubound(astrLog))=""
        End If
        astrLog(Ubound(astrLog))=astrLog(Ubound(astrLog)) strTemp
    End Function
    ''''''''''''''''''''''''''''''''''
    '按行记录Log信息
    ''''''''''''''''''''''''''''''''''
    Function WriteLineLog(strTemp)
        '检测当前数组值是否被初始化并初始化为空值
        If Isempty(astrLog(Ubound(astrLog))) Then
            astrLog(Ubound(astrLog))=""
        End If
        astrLog(Ubound(astrLog))=astrLog(Ubound(astrLog)) strTemp
        Redim Preserve astrLog(Ubound(astrLog)+1)
        astrLog(Ubound(astrLog))=""
    End Function
    ''''''''''''''''''''''''''''''''''
    '输出Log信息
    ''''''''''''''''''''''''''''''''''
    Function OutputLog()
        '数组计数器
        Dim intIndex
        'Log输出出错计数
        Dim intLogOutputError
        intLogOutputError=0
        For intIndex=0 To Ubound(astrLog)
            On Error Resume Next
                objVBSFile.WriteLine "'" astrLog(intIndex)
                If Err.Number>0 Then
                    intLogOutputError=intLogOutputError+1
                    objVBSFile.WriteLine "'???????????????Illegal Code????????????????"
                End If
            On Error Goto 0
        Next
        If intLogOutputError>0 Then
            objVBSFile.WriteLine "'???????????????Log Output Error(" intLogOutputError ")????????????????"
        End If
    End Function
    ''''''''''''''''''''''''''''''
    '添加变更原则
    '''''''''''''''''''''''''''''''''
    Function AddRuler(SRN,SRM)
        Dim intIndex
        '遍历所有已经存在服务以防止重复
        For intIndex=0 To Ubound(aobjServiceChange)-1
            If aobjServiceChange(intIndex).Name=SRN Then
                WriteLineLog "???????????????" SRN "'s Ruler duplicated ????????????????"
                Exit Function
            End If
        Next
        Set aobjServiceChange(Ubound(aobjServiceChange))=New clsServiceChange
        '记录服务名称
        aobjServiceChange(Ubound(aobjServiceChange)).Name=SRN
        '记录服务要变更成的启动模式
        aobjServiceChange(Ubound(aobjServiceChange)).StartModeTo=SRM
        Redim Preserve aobjServiceChange(Ubound(aobjServiceChange)+1)
    End Function
    ''''''''''''''''''''''''''''''
    '服务状态取得备份
    ''''''''''''''''''''''''''''''
    Function GOT()
        '系统服务
        Dim objService
        '服务名
        Dim strServiceName
        '服务显示名
        Dim strServiceCaption
        '服务启动模式
        Dim strServiceMode
        '服务描述
        Dim strServiceDescription
        '变更计数
        Dim intChangeCount
        '有效规则计数
        Dim intRuleredCount
        '规则计数
        Dim intRuler
        '数组索引
        Dim intIndex
        '与规则匹配上标识
        Dim blnMatch
        intChangeCount=0
        intRuleredCount=0
        intRuler=Ubound(aobjServiceChange)-1
        WriteLineLog vbcrlf
        WriteLineLog "Optimize Needed:"
        WriteLineLog "============================="
        For Each objService in objServices
            blnMatch=False
            strServiceName = objService.Name
            strServiceCaption=objService.Caption
            strServiceMode = objService.StartMode
            strServiceDescription=objService.Description
            If IsNull(strServiceDescription) Then
                strServiceDescription=""
            End If
            strServiceDescription=Replace(strServiceDescription,vbcrlf,"")
            '是否在备份代码中显示说明
            If blnVBSShowCaption Then
                objVBSFile.Write "'"
                '避免出现乱码的情况出错
                On Error Resume Next
                    objVBSFile.Write "(" strServiceCaption ") "
                    '是否在备份代码中显示说明
                    If blnShowDescription Then
                        objVBSFile.Write " [" strServiceDescription "]"
                    End If
                    objVBSFile.Writeline ""
                    Err.clear
                On Error Goto 0
            End If
            objVBSFile.WriteLine "    SRV """ strServiceName """,""" strServiceMode """"
            '变更检测(用于Log输出)
            For intIndex=0 To Ubound(aobjServiceChange)-1
                '验证是否名称相同
                If strServiceName=aobjServiceChange(intIndex).Name Then
                    '修改是否匹配上的标识
                    blnMatch=True
                    '记录匹配上的数目
                    intRuleredCount=intRuleredCount+1
                    '记录服务起始启动方式
                    aobjServiceChange(intIndex).StartModeFrom=strServiceMode
                    '记录服务显示名称
                    aobjServiceChange(intIndex).Caption=strServiceCaption
                    '记录服务描述
                    aobjServiceChange(intIndex).Description=strServiceDescription
                    '验证是否需要变更
                    If strServiceMode>aobjServiceChange(intIndex).StartModeTo Then
                        '需要变更计数
                        intChangeCount=intChangeCount+1
                        WriteLineLog strServiceName vbTab "(" strServiceCaption ")"  "[" strServiceDescription "]"
                        WriteLineLog strServiceMode vbTab "--->" vbTab aobjServiceChange(intIndex).StartModeTo
                    End If
                    '查找到服务之后退出循环
                    Exit For
                End If
            Next
            '在规则中未规定的服务添加
            If blnMatch=False then
                Set aobjServiceChange(Ubound(aobjServiceChange))=New clsServiceChange
                '记录服务名称
                aobjServiceChange(Ubound(aobjServiceChange)).Name=objService.Name
                '记录服务别名
                aobjServiceChange(Ubound(aobjServiceChange)).Caption=objService.Caption
                '记录服务描述
                aobjServiceChange(Ubound(aobjServiceChange)).Description=objService.Description
                '记录服务初始的启动模式
                aobjServiceChange(Ubound(aobjServiceChange)).StartModeFrom=objService.StartMode
                Redim Preserve aobjServiceChange(Ubound(aobjServiceChange)+1)
            End If
        Next
        objVBSFile.WriteLine "    Msgbox ""Service Reset Completed"" ""("" intChangeSuccessCount ""/"" intChangeCount "")"" "
        GOT="Service:" objServices.Count  ",Ruler:" intRuler ",Rulered:" intRuleredCount ",NotRulered:" objServices.Count-intRuleredCount ",ChangeNeed:" intChangeCount ""
        WriteLineLog "***********************************************************************************"
        WriteLineLog GOT
        WriteLineLog "***********************************************************************************"
        '输出未做规定的
        WriteLineLog vbcrlf
        WriteLineLog "-----------------------------"
        WriteLineLog "Not Rulered:"
        WriteLineLog "-----------------------------"
        '遍历变更历史
        For intIndex=0 To Ubound(aobjServiceChange)-1
            '服务变更状态检测
            If aobjServiceChange(intIndex).State=cstrStateNotSetted Then
                '未设定的服务信息输出
                WriteLineLog """" aobjServiceChange(intIndex).Name  """" vbTab ",""" aobjServiceChange(intIndex).StartModeFrom """" vbTab "(" aobjServiceChange(intIndex).Caption ")" "[" aobjServiceChange(intIndex).Description "]"
            End If
        Next
        '清空对象
        Set objService=Nothing
    End Function
    ''''''''''''''''''''''''''''''''''''''''''''
    '服务设定函数
    ''''''''''''''''''''''''''''''''''''''''''''
    Function SRV()
        '系统服务
        Dim objService
        '数组计数
        Dim intIndex
        '服务描述
        Dim strServiceDescription
        '要设定的服务启动方式暂存
        Dim strStartModeTemp
        '服务启动方式修改成功计数
        Dim intChangeSuccessCount
        '服务启动方式修改不成功计数
        Dim intChangeNotSuccessCount
        intChangeSuccessCount=0
        intChangeNotSuccessCount=0
        WriteLineLog vbcrlf
        WriteLineLog "============================="
        WriteLineLog "Optimize Record:"
        WriteLineLog "============================="
        '修改失败的Log标题
        WriteLineLog "-----------------------------"
        WriteLineLog "Change False:"
        WriteLineLog "-----------------------------"
        '遍历服务集
        For Each objService In objServices
            For intIndex=0 To Ubound(aobjServiceChange)-1
                If objService.Name=aobjServiceChange(intIndex).Name Then
                    '启动方式判断
                    If aobjServiceChange(intIndex).State=cstrStateChanged Then
                        '修改启动方式
                        If aobjServiceChange(intIndex).StartModeTo=cstrAutoForRead Then
                            '要设定启动类型为自启动时
                            strStartModeTemp=cstrAutoForWrite
                        Else
                            '设定服务类型不是自启动时
                            strStartModeTemp=aobjServiceChange(intIndex).StartModeTo
                        End If
                        '修改服务启动方式
                        If objService.ChangeStartMode(strStartModeTemp)=0 Then
                            '修改成功计数
                            intChangeSuccessCount=intChangeSuccessCount+1
                        Else
                            '修改不成功计数
                            intChangeNotSuccessCount=intChangeNotSuccessCount+1
                            '记录未修改成功的服务
                            WriteLineLog objService.Name "(" objService.Caption ")" "[" objService.Description "]"
                            '记录该服务所应该做的变更
                            WriteLineLog objService.StartMode vbTab "--->" vbTab aobjServiceChange(intIndex).StartModeTo
                        End If
                    End If
                    '查找到服务之后退出循环
                    Exit For
                End If
            Next
        Next
        SRV="Successed:" intChangeSuccessCount ",NotSuccessed:" intChangeNotSuccessCount
        WriteLineLog "***********************************************************************************"
        WriteLineLog SRV
        WriteLineLog "***********************************************************************************"
        '清空对象
        Set objService=Nothing
    End Function
    上一篇:vbs打开ie两种方法 在VBScript中启动IE浏览器的实现代码
    下一篇:使用VBS访问外部文本文件一些方法和脚本实例代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    VBS实现的系统服务备份优化代码 VBS,实现,的,系统,服务,备份,