批处理之家 - Powered by Discuz! Board

标题: [技术讨论] vbs:安全策略、服务、管理、启动项、添加删除、注册表、组策略 [打印本页]

作者: Heykuz 时间: 2012-11-18 13:08 标题: vbs:安全策略、服务、管理、启动项、添加删除、注册表、组策略

###################################  启动安全策略  ###########################

Set objws=WScript.CreateObject("wscript.shell")
objws.Run """secpol.msc"""

##############################################################################

###################################  启动服务  ###############################

Set objws=WScript.CreateObject("wscript.shell")
objws.Run """services.msc"""

##############################################################################

###################################  启动管理  ###############################

Set objws=WScript.CreateObject("wscript.shell")
objws.Run """compmgmt.msc"""

##############################################################################

###################################  启动项  #################################

Set objws=WScript.CreateObject("wscript.shell")
objws.Run """msconfig"""

##############################################################################

###################################  添加删除  ###############################

Set objShell = CreateObject("Wscript.Shell")
strPath = "c:\windows\system32\control appwiz.cpl,1"
objShell.Run strPath

##############################################################################

###################################  注册表  #################################

Set objws=WScript.CreateObject("wscript.shell")
objws.Run """Regedit"""

##############################################################################

###################################  组策略  #################################

Set objws=WScript.CreateObject("wscript.shell")
objws.Run """gpedit.msc"""

##############################################################################

这些系统程序都是经常要打开的，一直以来都想做成快捷方式。今天终于行了。
本来想用bat的，但bat有黑窗口，还是vbs吧。做成exe，发送后就成快捷方式了。

注意的一点是，添加删除哪儿，需要调用控制面板（control ）打开。
想问一下，启动项哪儿，即系统配置实用程序，怎样打开后自动切换到启动项，能实现吗？

作者: czjt1234 时间: 2012-11-19 07:37

本帖最后由 czjt1234 于 2012-11-19 08:07 编辑

Set objws=WScript.CreateObject("wscript.shell")
objws.Run "msconfig"
Wscript.Sleep 200
objws.SendKeys "+{TAB}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}"
复制代码

作者: Heykuz 时间: 2012-11-19 15:04

真强大，测试成功。感谢楼上，这种tab用法比较实在。平时也可以用着，比那个启动QQ的TAB+ENTER的来的强。

作者: Heykuz 时间: 2012-11-19 15:16

原来是右箭头。唉，二楼思维丰富，不是个纯BAT人。

欢迎光临批处理之家 (http://bathome.net./)