summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/texlive/uninstq.vbs
blob: 382f4be3731a6934e1859c697e7b994190eb79c2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim ans
ans = MsgBox( "Really uninstall TeX Live?" & vbcrlf & vbcrlf & _
  "Please make sure that no TeX Live programs are still running!", _
  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