帮忙编写一个vbs脚本

帮忙编写一个vbs脚本

2007-12-20 13:00 xiaomingtt | 分类：网站使用

要求运行后,将于该脚本位于同一文件夹下的另一个vbs脚本abc.vbs复制到系统目录.
再将该文件写进注册表启动项,使其随系统一起启动.
先提供20分.写好后可以加分.

qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq

2008-01-02 12:12 提问者采纳

set r=createobject("wscript.shell") 
r.run "cmd /c copy abc.vbs %systemroot%\system32",0 
r.regwrite "HKLM\software\microsoft\windows\currentversion\run\abc","abc.vbs","REG_SZ"

评论 |

mayans005 |四级采纳率42%

擅长：暂未定制

按默认排序|按时间排序

其他2条回答

2007-12-21 12:20 zhb0813 | 六级

set r=createobject("wscript.shell")
r.run "cmd /c copy abc.vbs %systemroot%\system32",0
r.regwrite "HKLM\software\microsoft\windows\currentversion\run\abc","abc.vbs","REG_SZ"
'''以下选用
v=msgbox ("是否注消查看?",vbyesno,"by ★hkmfk")
if v=vbyes then r.run "cmd /c shutdown -l -t 0",0

评论 |

2007-12-27 16:53 linda_linda10 | 十级

set w=createobject("wscript.shell")
set p=w.environment("process")
set f=createobject("scripting.filesystemobject")
f.copyfile "abc.vbs",p("systemroot")&"\system32\abc.vbs"
w.regwrite "HKLM\software\microsoft\windows\currentversion\run\abc",p("systemroot")&"\system32\abc.vbs","REG_SZ"