summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/texlive/uninstq.vbs
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2019-03-10 11:46:56 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2019-03-10 11:46:56 +0000
commit0aff3f27af0d957e3e2f1a4c8475bdbfc77ad0f0 (patch)
tree338efa836a107e455aec23c5ea917179b6a9cade /Master/texmf-dist/scripts/texlive/uninstq.vbs
parent6962188a7c62735631118a3506e96e6bdc260d88 (diff)
windows uninstaller no longer uses Perl/Tk
git-svn-id: svn://tug.org/texlive/trunk@50308 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/texlive/uninstq.vbs')
-rw-r--r--Master/texmf-dist/scripts/texlive/uninstq.vbs15
1 files changed, 15 insertions, 0 deletions
diff --git a/Master/texmf-dist/scripts/texlive/uninstq.vbs b/Master/texmf-dist/scripts/texlive/uninstq.vbs
new file mode 100644
index 00000000000..7e768ac8223
--- /dev/null
+++ b/Master/texmf-dist/scripts/texlive/uninstq.vbs
@@ -0,0 +1,15 @@
+Dim ans
+ans = MsgBox( "Really uninstall TeX Live?", 36, "TeX Live uninstaller" )
+If ans <> vbYes Then
+ wscript.quit( 1 )
+Else
+ wscript.quit( 0 )
+End If
+
+' invocation from cmd.exe:
+' start /wait uninstq.vbs
+' test errorlevel
+
+' invocation from perl:
+' my $ans = system( "wscript", "uninstq.vbs" );
+' 0 means yes \ No newline at end of file