"Fossies" - the Fresh Open Source Software Archive

Member "install-tl-20231204/texmf-dist/scripts/texlive/uninstq.vbs" (13 Mar 2019, 408 Bytes) of package /linux/misc/install-tl-unx.tar.gz:

As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Visual Basic source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. 
    1 Dim ans
    2 ans = MsgBox( "Really uninstall TeX Live?" & vbcrlf & vbcrlf & _
    3   "Please make sure that no TeX Live programs are still running!", _
    4   36, "TeX Live uninstaller" )
    5 If ans <> vbYes Then
    6   wscript.quit( 1 )
    7 Else
    8   wscript.quit( 0 )
    9 End If
   10 
   11 ' invocation from cmd.exe:
   12 '   start /wait uninstq.vbs
   13 ' test errorlevel
   14 
   15 ' invocation from perl:
   16 '   my $ans = system( "wscript", "uninstq.vbs" );
   17 ' 0 means yes