[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[技术讨论] 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 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}"
复制代码

QQ 20147578

TOP

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

TOP

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

TOP

返回列表