Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "c:\kill_crypt_svc.bat", "/c lodctr.exe /r" , "", "runas", 0