home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2000 March / PCWELT_3_2000.ISO / software / tricks / shell.exe / Shell.vbs < prev   
Encoding:
Text File  |  1999-12-03  |  4.7 KB  |  204 lines
  1. Set Myshell = CreateObject("WScript.Shell")
  2. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  3. Set Env = MyShell.Environment
  4. windir=Env("WINDIR")
  5. a = WScript.ScriptFullName:b = WScript.ScriptName:c = instr(a,b)-1
  6. pfad = left(a,c)
  7. verz = pfad & "folder.lst"
  8. progs = pfad & "progs.lst"
  9.  
  10. DO
  11.  
  12. start=ucase(inputbox("Befehl eingeben: ","PCW-Shell",,1200,1))
  13.  
  14. IF left(start,1)=":" then
  15.     start=mid(start,2)
  16.     newlist = "wscript.exe " & pfad & "Listen.vbs"
  17.     If MyFiles.FileExists(verz) then
  18.     else
  19.         MyShell.Run (newlist),,TRUE
  20.     End if
  21.  
  22.     SET dat = MyFiles.OpenTextFile(verz)
  23.  
  24.     DO
  25.       zeile = dat.ReadLine
  26.       i=instr(ucase(zeile),start)
  27.       If i > 0 then
  28.         q=MyShell.Popup(ucase(zeile) & " ÷ffnen?", 6, "Folder-Start: ", 3)
  29.         If q = 6 or q = -1 then 
  30.               MyShell.Run "explorer.exe /n," & chr(34) & zeile & chr(34),1
  31.           End if
  32.       End if
  33.     LOOP While dat.AtEndOfStream <> True and q <> 2 and q <> 6
  34.  
  35.     If i = 0 then wscript.echo "Nix (mehr) zu tun..."
  36.  
  37.     SET dat=MyFiles.Getfile (verz)
  38.     datum=dat.datelastmodified
  39.     If datediff("d", datum, now) > 15 Then
  40.         MyShell.Run newlist
  41.     End if
  42.     q=0
  43.  
  44. ELSE
  45.  
  46. SELECT CASE start
  47.  
  48. case "ALIAS"
  49.     ThisScript = WScript.ScriptFullName
  50.    Set Script = MyFiles.OpenTextFile(ThisScript, 1)
  51.    Do
  52.      x=script.Readline
  53.    i = instr(x, chr(39)) 
  54.     if i > 0 then 
  55.         liste=liste + mid(x,i+1) + chr(13)
  56.     end if
  57.     Loop Until Script.AtEndOfStream = True
  58.    i=MyShell.Popup("Definierte Eingabekⁿrzel:" & chr(13) & chr(13) & Liste ,, "Alias-Liste ", 0)
  59.     'ALIAS => Diese Liste aufrufen
  60.  
  61. case ""
  62.    wscript.quit
  63.  
  64. REM Ab hier bitte den eigenen Bedⁿrfnissen anpassen...
  65. REM ...insbesondere die als "Beispiel" gekennzeichneten Aufrufe
  66.  
  67. case "97"
  68.   MyShell.Run("C:\Apps\Office97\Office\WINWORD.EXE")
  69.   '97 => Textverarbeitung Word 97 aufrufen (Beispiel)
  70.  
  71. case "A"
  72.   MyShell.Run("explorer.exe /n, D:\Aktuell")
  73.   'A =>   Ordner ÷ffnen (Beispiel)
  74.  
  75. case "ALEX"
  76.   MyShell.Run("explorer.exe /n, \\formel1\cd\")
  77.   'ALEX => Freigabe auf Netzrechner (Beispiel)
  78.  
  79. case "BOX"
  80.   MyShell.Run("explorer.exe /n, \\mailboxer\praxis\ha\")
  81.   'BOX =>   Home-Verzeichnis auf NT-Server (Beispiel)
  82.  
  83. case "C:"
  84.     MyShell.Run("explorer.exe /n, c:\")
  85.     'C: =>  Root auf C:\
  86.  
  87. case "CD"
  88.   MyShell.Run("explorer.exe /n, f:\")
  89.   'CD =>   Daten-CD anzeigen (Beispiel)
  90.  
  91. case "D"
  92.   MyShell.Run("command.com /k doskey")
  93.   'D =>  DOS starten
  94.  
  95. case "DOS"
  96.   MyShell.Run("command.com /k doskey")
  97.   'DOS =>  DOS starten
  98.  
  99. case "D:"
  100.   MyShell.Run("explorer.exe /n, d:\")
  101.   'D: =>  Root auf D:\
  102.  
  103. case "DAT"
  104.   MyShell.Run("explorer.exe /n, c:\eigene~1")
  105.   'DAT =>  Ordner "Eigene Dateien" ÷ffnen
  106.  
  107. case "DATE"
  108.   MyShell.Run("NET.EXE time /set /yes \\fsa"),0
  109.   'DATE =>  Datum aktualisieren via Netz-Server (Beispiel)
  110.  
  111. case "E"
  112.   MyShell.Run("edit.com")
  113.   'ED => DOS-Editor
  114.  
  115. case "ED"
  116.   MyShell.Run("edit.com")
  117.   'ED => DOS-Editor
  118.  
  119. case "M"
  120.   MyShell.Run("explorer.exe /n, d:\data\musik")
  121.   'M =>  Musik-Ordner aufrufen (Beispiel)
  122.  
  123. case "N"
  124.   MyShell.Run("notepad.exe")
  125.   'N =>  Notepad aufrufen
  126.  
  127. case "P"
  128.   MyShell.Run("C:\Tools\PSP\Psp.exe")
  129.   'P =>  Paintshop aufrufen (Beispiel)
  130.  
  131. case "PSP"
  132.   MyShell.Run("C:\Tools\PSP\Psp.exe")
  133.   'PSP =>  Paintshop aufrufen (Beispiel)
  134.  
  135. case "PCW"
  136.     MyShell.Run("http://www.pcwelt.de")
  137.     'PCW =>  PC-Welt Internet-Seite
  138.  
  139. case "PROD"
  140.   MyShell.Run("explorer.exe /n,\\fsa\prod\pcwelt\")
  141.   'PROD =>  Netzressource oeffnen (Beispiel)
  142.  
  143. case "R"
  144.   MyShell.Run("regedit.exe")
  145.   'R =>  Registriereditor REGEDIT.EXE aufrufen
  146.  
  147. case "REG"
  148.   MyShell.Run("regedit.exe")
  149.   'REG =>  Registriereditor REGEDIT.EXE aufrufen
  150.  
  151. case "S"
  152.   MyShell.Run("control.exe")
  153.   'S =>  Systemsteuerung aufrufen
  154.  
  155. case "SYS"
  156.     bef="explorer.exe /n," & windir & "\System"
  157.     MyShell.Run(bef)
  158.    'SYS =>  Windows-Systemordner ÷ffnen
  159.  
  160. case "W"
  161.   bef="explorer.exe /n," & windir
  162.     MyShell.Run(bef)
  163.    'W =>  Windows-Ordner ÷ffnen
  164.  
  165. case "WORD"
  166.   MyShell.Run("C:\Apps\Office97\Office\WINWORD.EXE")
  167.   'WORD => Textverarbeitung Word 97 aufrufen (Beispiel)
  168.  
  169. Case Else
  170.     newprogs = "wscript.exe " & pfad & "listen.vbs"
  171.     If MyFiles.FileExists(progs) then
  172.     Else
  173.         MyShell.Run(newprogs),,TRUE
  174.     End If
  175.  
  176.     SET dat = MyFiles.OpenTextFile(progs)
  177.  
  178.     DO
  179.       zeile = dat.ReadLine
  180.       i=instr(ucase(zeile),start)
  181.       If i > 0 then
  182.         q=MyShell.Popup(ucase(zeile) & " starten?", 6, "Programm-Start: ", 3)
  183.         If q = 6 or q = -1 then 
  184.               MyShell.Run(zeile)
  185.           End if
  186.       End if
  187.     Loop While dat.AtEndOfStream <> True and q <> 2 and q <> 6
  188.  
  189.     If i = 0 then 
  190.         q = MyShell.Popup("Nix (mehr) zu tun...", 1, "", 0)
  191.     End if
  192.  
  193.     SET dat=MyFiles.Getfile (progs)
  194.     datum=dat.datelastmodified
  195.     If datediff("d", datum, now) > 15 then
  196.         MyShell.Run newprogs
  197.     End if
  198.     q=0
  199.  
  200. END SELECT
  201. END IF
  202.  
  203. LOOP
  204.