vbs的一个小疑点。_vbScript

vbs的一个小问题。。
先说明，我是菜鸟，不要笑我。。刚学习脚本不久。，，

我最新发现一个问题。。
开机出现Document and setting\users\开始菜单\程序\启动\1.vbs，

这里里面出现vbs启动项。。。。地址是c:\1.vbs

搞不懂这个vbs是如何加进去的。。。。杀毒没有任何报警。。。

很好奇，，那位朋友告诉我下。代码如何实现的。。。

声明。。自己研究学习用。。。非恶意用途。。

------解决方案--------------------------------------------------------
代码如何实现的？
re:
实现怎么x.vbs加到启动中
------解决方案--------------------------------------------------------
C:\Documents and Settings\用户名\「开始」菜单\程序\启动
------解决方案--------------------------------------------------------
移动到启动下就是了，又不是病毒，所以不会报警，只不过开机优化能弄掉
------解决方案--------------------------------------------------------
直接移动的话杀毒软件应该会报的吧.

VBScript code

Set oFSO = CreateObject("Scripting.FileSystemObject")Set oShell = CreateObject("WScript.Shell")    sStartupPath = oShell.SpecialFolders("Startup")    oFSO.MoveFile WScript.ScriptFullName,sStartupPath & "\1.vbs"
------解决方案--------------------------------------------------------
VBScript codeSet oShell = CreateObject("WScript.Shell")With  oShell    sStartDir       = .SpecialFolders("Startup") & "\"    Set oShellLink  = .CreateShortcut(sStartDir & "abc.lnk")    With oShellLink        .TargetPath     = "c:\1.vbs"        .WindowStyle    = 1        .Description    = "vbs程序"        .Save    End With    Set oShellLink  = NothingEnd With