Set WSHShell = CreateObject("WScript.Shell")
msgbox "NVDA remover by Ogoniciel written in VBS. Press enter to start the uninstallation of NVDA along with clearing the system of all remnants. Remember that you have to perform the uninstallation process yourself in the window that will open. Then the script will continue the work. For the script to work correctly NVDA must be installed in the default directory Program Files X86"
 result = WSHShell.Run("""C:\Program Files (x86)\NVDA\uninstall.exe",,True)
Dim FSO, Folder
set FSO=CreateObject("Scripting.FileSystemObject")
Folder="%appdata%\nvda"
FSO.DeleteFolder(Folder)
msgbox "Done."