home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 May / PCWorld_2001-05_cd.bin / Software / Vyzkuste / tiptrik / tiptrik.exe / Starter.vbs < prev    next >
Text File  |  2001-03-04  |  1KB  |  43 lines
  1. Set myShell = Wscript.CreateObject("Wscript.Shell")
  2. Set myFiles = WScript.CreateObject ("Scripting.FileSystemObject")
  3. set w = myShell.Environment("PROCESS")
  4. liste=w("WINDIR") + "\proglist.lst"
  5.  
  6. if myFiles.FileExists(liste) then
  7.     SET dat=MyFiles.Getfile(liste)
  8.     datum=dat.datelastmodified
  9.     If datediff("d", datum, now) > 15 Then
  10.         myShell.Run ("command.com /c dir /l /s /a /-p /b c:\*.exe > %windir%\proglist.lst"),0,true
  11.     End if
  12. else
  13.     myShell.Run ("command.com /c dir /l /s /a /-p /b c:\*.exe > %windir%\proglist.lst"),0,true
  14. end if
  15.  
  16. suche=lcase(inputbox("Jak² program chcete spustit?"))
  17. suche=ltrim(suche)
  18. suche=rtrim(suche)
  19.  
  20. Set datei = myFiles.OpenTextFile(liste)
  21.  
  22. Do until datei.AtEndOfStream
  23.     zeile=datei.readline
  24.     if instr(zeile,suche) then
  25.         zeile = replace(zeile, chr(132),chr(228))
  26.         zeile = replace(zeile, chr(148),chr(246))
  27.         zeile = replace(zeile, chr(129),chr(252))
  28.         zeile = replace(zeile, chr(142),chr(196))
  29.         zeile = replace(zeile, chr(153),chr(214))
  30.         zeile = replace(zeile, chr(154),chr(220))
  31.         zeile = replace(zeile, chr(225),chr(223))
  32.         q=MyShell.Popup(ucase(zeile) & " spustit",  , "SpuÜt∞nφ programu", 3)
  33.         if q = 2 then wscript.quit
  34.         If q = 6 then 
  35.             n=myshell.run(chr(34) & zeile & chr(34))
  36.             wscript.quit
  37.           End if
  38.     end if
  39. Loop
  40.  
  41.  
  42.  
  43.