'*** v3.5 *** www.dieseyer.de ******************************** ' ' Datei: kontext-commandprompthier.vbs ' Autor: dieseyer@gmx.de ' Auf: www.dieseyer.de ' ' Erstellt Kontexteintrag: mit der rechten Maus-Taste ' auf ein Verzeichnis öffnet eine Eingabeaufforderung ' (DOS-Prompt) mit/in diesem Verzeichnis. ' '************************************************************ Set WshShell = WScript.CreateObject("WScript.Shell") Set objShell = CreateObject("WScript.Shell") Set WshSysEnv = WshShell.Environment("SYSTEM") Text = WSHShell.ExpandEnvironmentStrings("%comspec%") objShell.RegWrite "HKCR\Folder\Shell\MenuText\Command\", Text & " /k cd " & chr(34) & "%1" & chr(34) objShell.RegWrite "HKCR\Folder\Shell\MenuText\", "&Command Prompt Hier" ' MsgBox "HKCR\Folder\Shell\MenuText\Command\" & vbCRLF & Text & " /k cd " & chr(34) & "%1" & chr(34) MsgBox WScript.ScriptName & vbCRLF & vbCRLF & "abgearbeitet.", , WScript.ScriptName