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