Hi,

I'm in the process of making my 2 freeware play nicer with Vista.

In one of them(Info2MIS), I was writing in the registry to add "Context Menu" options in Windows Explorer. This way, a user would be able to write .MIS (metadata) about a movie in only 2 clicks. Now, that option does not work under Vista. Am I doing something wrong? I tried to "Run as Administrator" with not luck. :(

Part of the code I was using.

loShell = CreateObject("WScript.Shell")
lcExt = UPPER(tcExt)

	lcFileGroupName = loShell.RegRead('HKCR\' + lcExt + '\')
	lcCommand = lcPathEXE+' "%1" '+lcOption
	lcMenuItem =  tcText 

	DO CASE 
		CASE UPPER(tcAction) = "W" &&Write Key
			loShell.RegWrite('HKCR\' + lcFileGroupName + '\shell\' + lcMenuItem + '\command\', lcCommand)
			
		CASE UPPER(tcAction) = "D" &&Delete Key
			loShell.RegDelete('HKCR\' + lcFileGroupName + '\shell\' + lcMenuItem + '\command\')
			loShell.RegDelete('HKCR\' + lcFileGroupName + '\shell\' + lcMenuItem + '\')
	ENDCASE 

Thanks for your answers