这段CMD命令，怎么通过VBA调用执行

请教，这段CMD命令，怎么通过VBA调用执行

@echo off
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %s0 ::","","runas",1)(window.close)&&exit
cd /d "%dp0"
sfc /scannow

这段命令是以管理员身份运行CMD并执行sfc命令下的 /scannow参数。按理说肯定可以写入到VBA里，但是到VBA里，只能执行sfc命令，无法添加/scannow这个参数。请指点。

我用的一个小工具上的获取管理员权限的批处理

>NUL 2>&1 REG.exe query "HKU\S-1-5-19" || (
    ECHO SET UAC = CreateObject^("Shell.Application"^) > "%TEMP%\Getadmin.vbs"
    ECHO UAC.ShellExecute "%~f0", "%1", "", "runas", 1 >> "%TEMP%\Getadmin.vbs"
    "%TEMP%\Getadmin.vbs"
    DEL /f /q "%TEMP%\Getadmin.vbs" 2>NUL
    Exit /b
)