home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2004 July / PCWELT_7_2004.ISO / pcwsoft / pcwCmd.z.exe / pcwCmd.vbs
Encoding:
Text File  |  2004-05-07  |  4.0 KB  |  91 lines
  1. Schalter = "/C"
  2.  
  3. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  4. 'Der oben angegebene "Schalter" steuert, ob das Konsolenfenster nach
  5. 'dem Ablauf des Befehls ge÷ffnet bleibt, oder sich sofort wieder 
  6. 'schliesst. Voreingestellt ist "/C", um das Fenster zu schliessen. 
  7. 'Alternativ kann dieser Schalter mit "/K" ersetzt werden, um das 
  8. 'Fenster ge÷ffnet zu halten. Syntax:
  9. '  Schalter = "/C"
  10. 'oder
  11. '  Schalter = "/K"
  12. '
  13. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  14.  
  15. 'Use: Dieses Script erweitert das Kontextmenⁿ von Ordnern um den
  16. 'Befehl "Command". Ein Aufruf ÷ffnet eine Eingabebox fⁿr einen
  17. 'Konsolenbefehl. Das Script fⁿhrt dann diesen Befehl fⁿr den 
  18. 'gewΣhlten Ordner aus.
  19. 'Ein (De)-Installationsroutine ist eingebaut: Beim ersten Aufruf
  20. 'ohne Parameter installiert sich das Das Script selbst. Ein weiterer
  21. 'Aufruf ohne Parameter entfernt das Script wieder.
  22.  
  23. 'Author: Copyright (C) 2004 David G. Wolski (admi@india.com)
  24. 'for PC-WELT, IDG Magazine Verlag GmbH (http://www.pcwelt.de)
  25.  
  26. 'This program is free software; you can redistribute it and/or
  27. 'modify it under the terms of the GNU General Public License as
  28. 'published by the Free Software Foundation; either version 2 of
  29. 'the License, or (at your option) any later version.
  30.  
  31. 'This program is distributed in the hope that it will be useful,
  32. 'but WITHOUT ANY WARRANTY; without even the implied warranty of
  33. 'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  34. 'General Public License for more details.
  35.  
  36. 'Dieses Programm ist freie Software. Sie k÷nnen es unter
  37. 'den Bedingungen der GNU General Public License, wie von der
  38. 'Free Software Foundation herausgegeben, weitergeben und/oder
  39. 'modifizieren, entweder unter Version 2 der Lizenz oder (wenn
  40. 'Sie es wⁿnschen) jeder spΣteren Version.
  41.  
  42. 'Die Ver÷ffentlichung dieses Programms erfolgt in der
  43. 'Hoffnung, da▀ es Ihnen von Nutzen sein wird, aber OHNE JEDE
  44. 'GEW─HRLEISTUNG - sogar ohne die implizite GewΣhrleistung
  45. 'der MARKTREIFE oder der EIGNUNG F▄R EINEN BESTIMMTEN ZWECK.
  46. 'Details finden Sie in der GNU General Public License.
  47. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  48. set MyShell = CreateObject("Wscript.Shell")
  49. set MyFiles = CreateObject("Scripting.FileSystemObject")
  50. windir = MyShell.ExpandEnvironmentStrings("%WINDIR%")
  51.  
  52. 'Keine Parameter? Dann (de-) installiert sich das Script selbst
  53. If Wscript.Arguments.Count = 0 Then
  54.     WoBinIch=Wscript.ScriptFullName
  55.     If Not KeyExists("HKCR\directory\shell\pcwCmd\") Then
  56.         MyShell.RegWrite "HKCR\directory\shell\pcwCmd\", "Command"
  57.         MyShell.RegWrite "HKCR\directory\shell\pcwCmd\Command\", "wscript.exe " & Chr(34) & WoBinIch & Chr(34) & " " & Chr(34) & "%L" & Chr(34)
  58.         MsgBox "pcwCmd wurde erfolgreich installiert. Im Kontextmenⁿ zu jedem Ordner k÷nnen Sie jetzt mit dem neuen Menⁿpunkt " & Chr(34) & "Command" & Chr(34) & " einen Befehl fⁿr die Eingabeaufforderung eingeben, der dann auf die Dateien in diesem Ordner ausgefⁿhrt wird", 64, "PC-Welt Script"
  59.     Else
  60.         MyShell.RegDelete("HKCR\directory\shell\pcwCmd\Command\")
  61.         MyShell.RegDelete("HKCR\directory\shell\pcwCmd\")
  62.         MsgBox "pcwCmd wurde erfolgreich deinstalliert", 64, "PC-Welt Script"
  63.     End If
  64.     wscript.quit
  65. End If
  66.  
  67. ordnerpfad = wscript.arguments(0)
  68. Os = MyShell.ExpandEnvironmentStrings("%OS%")
  69. strbefehl = Inputbox("Geben Sie den Konsolenbefehl ein, den Sie in " & ordnerpfad & " ausfⁿhren m÷chten:","")
  70. If not strbefehl = "" then
  71.   If Os = "Windows_NT" Then
  72.   'Der Code fⁿr Windows 2000/XP
  73.   MyShell.Run "%COMSPEC% " & Schalter & " cd " & ordnerpfad & " | " & strbefehl, 1,  false
  74.   Else 
  75.   'Code fⁿr Windows 9X
  76.   MyShell.Run "%COMSPEC% " & Schalter & " " & ordnerpfad & "\ && cd " & ordnerpfad  & " | " & strbefehl, 1, false
  77.   End If  
  78. End If 
  79.  
  80. 'Diese Funktion ⁿberprⁿft die Registry nach vorhandenen Schlⁿsseln. Wird von der De/Installationsroutine ben÷tigt.
  81. Function KeyExists(key)
  82. on error resume next
  83. wert = MyShell.RegRead(key)
  84. if err.Number=0 then
  85.   KeyExists = true
  86. else
  87.   KeyExists = false
  88. err.Clear
  89. end if
  90. end function
  91.