File: uninstq.vbs

package info (click to toggle)
texlive-base 2022.20230122-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 943,248 kB
  • sloc: perl: 43,776; sh: 5,749; makefile: 3,870; javascript: 3,034; ruby: 2,266; tcl: 2,130; xml: 1,874; python: 1,025; awk: 606; cpp: 549; lisp: 447; ansic: 103; sed: 8
file content (17 lines) | stat: -rw-r--r-- 408 bytes parent folder | download | duplicates (6) 
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