http://dieseyer.de • all rights reserved • © 2011 v11.4

'*** 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

http://dieseyer.de • all rights reserved • © 2011 v11.4