使用vbs脚本添加程序到自启动项的代码

因编辑器过滤了一些字符，比如&，所以下面的脚本可能会运行错误。。看官添加&&这个字符就可以了。
vbs脚本的功能呢是很多的，不过有时候我们只需要其中的某些功能，今天我突然想研究下怎么用vbs脚本实现添加程序到自启动项......

首先来一段吧...

'========================================================================== 
' 
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1 
' 
' NAME: add2run01.vbs 
' 
' AUTHOR: shile 
' DATE : 2008-12-13 
' 
' COMMENT: vbs实现添加程序到自启动项 
' 
'========================================================================== 
On Error Resume Next '出错继续执行下个命令 
dim ws 
Set ws=CreateObject("Wscript.Shell") 
ws.RegWrite "HKLMSoftwareMicrosoftWindowsCurrentVersionRuncmd","cmd.exe" 

竟然被360安全卫士拦截了，不过点击同意就可以了。在autoruns里面刷新后还是不能显示这个启动项，看来这软件不太完美.
功能太弱了，我想增强一下....
首先，弹个窗口询问询问添加什么程序到启动项，并且询问下启动项的键值。

'========================================================================== 
' 
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1 
' 
' NAME: add2run02.vbs 
' 
' AUTHOR: shile 
' DATE : 2008-12-13 
' 
' COMMENT: vbs实现添加程序到自启动项 
' 
'========================================================================== 
On Error Resume Next '出错继续执行下个命令 
Dim ws 
Set ws=CreateObject("Wscript.Shell") 
Dim runKey,runPath 
runKey = InputBox("输入自启动项键值名称","请输入") 
runPath = InputBox("输入相应的程序路径","请输入") 

'ws.RegWrite "HKLMSoftwareMicrosoftWindowsCurrentVersionRuncmd","cmd.exe" 
ws.RegWrite "HKLMSoftwareMicrosoftWindowsCurrentVersionRun"&runKey,runPath 
'提示下 
MsgBox "添加"&runKey"<"&runPath">成功",vbYes,"恭喜!" 

本来要用vbOK的，但是发现还是两个按钮，还是vbYes好！
功能还是不太强的，如果能判断是否存在已经有的项，是否替换确认，那么就比较完善了！
继续下去...

'========================================================================== 
' 
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1 
' 
' NAME: add2run03.vbs 
' 
' AUTHOR: shile 
' DATE : 2008-12-13 
' 
' COMMENT: vbs实现添加程序到自启动项 
' 
'========================================================================== 
On Error Resume Next '出错继续执行下个命令 
dim ws 
Set ws=CreateObject("Wscript.Shell") 
Dim runKey,runPath 
runKey = InputBox("输入自启动项键值名称","请输入") 
runPath = InputBox("输入相应的程序路径","请输入") 
Dim temp,ret 
temp = ws.RegRead("HKLMSoftwareMicrosoftWindowsCurrentVersionRun"&runKey) 
'MsgBox temp 
If temp <> Empty Then 
ret = MsgBox( "键值"&runKey"已经存在,其值为"&temp",是否替换为新的值"&runPath, vbOKCancel, "提示!") 
If ret = vbOK Then 
ws.RegWrite "HKLMSoftwareMicrosoftWindowsCurrentVersionRun"&runKey,runPath 
MsgBox "修改"&runKey"值为"&runPath"成功",vbYes,"恭喜!" 
End If 
Else 
ws.RegWrite "HKLMSoftwareMicrosoftWindowsCurrentVersionRun"&runKey,runPath 
MsgBox "添加"&runKey"<"&runPath">成功",vbYes,"恭喜!" 
End If 

当然了，启动项在注册表有很多地方，就不一一说明了......

vbscript实现的根据不同时间段显示不同的欢迎语
本例中，VBScript代码调用Document对象的Write方法来传递字符串。所有操作都在客户端完成：无需指定服务器端操作、无PERL痕迹、稳定、清晰！SCRIPTLANGUAGE="

VBS监控CPU的使用率(如占用率一直维持在80%超过30秒则运行某程序)
按照楼主的要求重新修改了下，代码如下：'----------------------------------------OnErrorResumeNextdimiCpuUsePercentage'记录CPU使用率dimiSecond'记录使用率等于100所持续

VBS数组函数学习实例分析
下面来具体讲解下几个数组函数的使用方式：Array函数返回包含数组的Variant。Array(arglist)arglist参数是赋给包含在Variant中的数组元素的值的列表（用逗号