AddAutoRunProgram.vbs
假设该程序在c:/myfile文件夹中,文件名为autorun.exe
Dim AutoRunProgram
Set AutoRunProgram=WScript.CreateObject("WScript.Shell")
RegPath="HKLM/Software/Microsoft/ Windows/CurrentVersion/Run/"
Type_Name="REG_SZ"
Key_Name="AutoRun"
Key_Data="C:/Myfile/autorun.exe"
该自启动程序的全路径文件名
AutoRunProgram.Write RegPath&Key_Name,Key_Data,Type_Name
在启动组中添加自启动程序autorun.exe
MsgBox("Success!")