Add stuffs to right click

' Add stuffs to right click"
Set objShell = CreateObject("WScript.Shell")

objShell.RegWrite "HKCR\*\Shell\MenuText\Command\", _
    "cmd.exe /k cd.. " & Chr(34) & "%1%" & Chr(34) 
objShell.RegWrite "HKCR\*\Shell\MenuText\", "Browse CMD"


objShell.RegWrite "HKCR\*\Shell\MenuText2\Command\", _
    "Notepad2.exe " & Chr(34) & "%1" & Chr(34) & "%*"
objShell.RegWrite "HKCR\*\Shell\MenuText2\", "LOOK INSIDE"


objShell.RegWrite "HKCR\Folder\Shell\MenuText\Command\", _
    "cmd.exe /k cd " & Chr(34) & "%1%" & Chr(34) 
objShell.RegWrite "HKCR\Folder\Shell\MenuText\", "CMD it"


msgbox "Browse CMD -- ADDED " & vbcrlf & "LOOK INSIDE -- ADDED" & _
vbcrlf & "CMD it -- ADDED" & vbcrlf &  "Write Click by ULTIMATE NAPSTR ",,"Write Click"