论坛风格切换
正版合作和侵权请联系 sd173@foxmail.com
 
  • 帖子
  • 日志
  • 用户
  • 版块
  • 群组
帖子
购买邀请后未收到邀请联系sdbeta@qq.com
  • 2112阅读
  • 5回复

[求助-系统问题]vbs代码  求解,关于系统服务类 [复制链接]

上一主题 下一主题
离线秋拓
 
发帖
*
今日发帖
最后登录
1970-01-01
只看楼主 倒序阅读 使用道具 楼主  发表于: 2010-10-02 03:10:52
这是一段VBS的代码,求高手看下 它到底修改了什么服务!!!




'本脚本由【jimk】制作,转载请注明出[森林网吧]
'VBS配置系统服务
'※服务名注意大小写※
'[配置格式]服务名1:启动类型1;服务名2:启动类型2
'可选启动类型[0自动启动;1手动启动;2禁止启动;]
strServiceCfg="Spooler:2;Themes:2;NVSvc:2"    '
SetServices strServiceCfg
MsgBox "配置系统服务完成!",vbInformation,"森林网吧"
'==========================================================================
Function SetServices(strCfg)
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer)
Set colServices = objWMIService.InstancesOf("Win32_Service")
For Each objService In colServices
    arrStrCfgs=Split(strCfg,";")
    For Each oneStrCfg In arrStrCfgs
        If InStr(oneStrCfg,":")>0 Then
        If objService.Name=Split(oneStrCfg,":")(0) Then
            '[可打开,调试用]
            'MsgBox "Service Name:    "&objService.Name&vbCrLf&"DisplayName:    "&objService.DisplayName&vbCrLf&"StartMode:    "&objService.StartMode
            If Split(oneStrCfg,":")(1)="0" Then
                objService.ChangeStartMode("Automatic") '自动
            ElseIf Split(oneStrCfg,":")(1)="1" Then
                objService.ChangeStartMode("Manual") '手动
            ElseIf  Split(oneStrCfg,":")(1)="2" Then
                objService.ChangeStartMode("Disabled") '禁用
            End If
        End If
        End If
    Next
Next
End Function
离线jnship
发帖
*
今日发帖
最后登录
1970-01-01
只看该作者 沙发  发表于: 2010-10-02 21:12:34
Re:vbs代码 求解,关于系统服务类
这个真看不明白
离线castty
发帖
*
今日发帖
最后登录
1970-01-01
只看该作者 板凳  发表于: 2010-10-03 12:11:40
Re:vbs代码 求解,关于系统服务类
这个不懂,高手在哪!
离线lg560852
发帖
*
今日发帖
最后登录
1970-01-01
只看该作者 地板  发表于: 2010-10-04 00:45:16
Re:vbs代码 求解,关于系统服务类
这句:

strServiceCfg="Spooler:2;Themes:2;NVSvc:2"    

禁用了“后台打印服务”、“系统主题服务”和“英伟达显卡控制面板服务”
---------------------------------
真可怕,竟然是静默处理的,搞不好系统就起不来了
离线秋拓
发帖
*
今日发帖
最后登录
1970-01-01
只看该作者 地下室  发表于: 2010-10-04 22:08:44
回 3楼(lg560852) 的帖子
奥 谢谢了,不怕!能开的起来,主管都不知道弄了多少次系统了!!

可怕么  静默处理,不懂中~~         
离线xupengxp
发帖
*
今日发帖
最后登录
1970-01-01
只看该作者 5 发表于: 2010-10-13 09:43:01
Re:vbs代码 求解,关于系统服务类
这三个服务没什么重大影响啊……