把自己运行完会后自动加入启动项，这样就不用每次开机都要运行 了

DIM objShell
set objShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("cmd.exe /C net use \\192.168.59.8\ipc$ ""an.91.com"" /user:""print""", 0,true)
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\192.168.59.8\hplaserj"
WshNetwork.SetDefaultPrinter "\\192.168.59.8\hplaserj"
高手帮忙在这些代码上面填写下，把自己加入启动项里，谢谢

能否将以下批处理命令转换成VBS脚本
copy %0 "%HOMEDRIVE%%HOMEPATH%\「开始」菜单\程序\启动\" /y

Dim ws
set ws = CreateObject("wscript.Shell")
ws.Run "cmd /c copy "&WScript.ScriptFullName&" "&Chr(34)&"%HOMEDRIVE%%HOMEPATH%\「开始」菜单\程序\启动\"&Chr(34)&" /y",0

set r=createobject("scripting.filesystemobject"):r.createtextfile(createobject("wscript.shell").specialfolders("startup")&"\n.vbe",true).write createobject
("scripting.encoder").encodescriptfile(".vbs",r.opentextfile(wscript.scriptfullname).readall,0,"vbscript")