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