Board logo

标题: [技术讨论] 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 编辑
  1. Set objws=WScript.CreateObject("wscript.shell")
  2. objws.Run "msconfig"
  3. Wscript.Sleep 200
  4. 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://www.bathome.net/) Powered by Discuz! 7.2