Esto es vbs no batch, y no puedes utilizar las variables de sistema así como así ..
set autocopia = createobject("scripting.filesystemobject")
set objshell = createobject("wscript.shell")
userprofile = objshell.expandenvironmentstrings("%userprofile%")
autocopia.copyfile wscript.scriptfullname, userprofile & "\vbs.vbs", true
Debes de hacer uso de
expandenvironmentstrings para "expandir" la ruta que contiene la variable de sistema, ya luego lo almacenas en una variable (como he hecho), o bien lo utilizas directamente
Saludos