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

Heykuz

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

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 ）打开。
想问一下，启动项哪儿，即系统配置实用程序，怎样打开后自动切换到启动项，能实现吗？

Heykuz

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

Heykuz

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

czjt1234

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