diff options
Diffstat (limited to 'Master/texmf-dist/scripts/texlive/uninstq.vbs')
-rw-r--r-- | Master/texmf-dist/scripts/texlive/uninstq.vbs | 15 |
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 |