'	22:20 17/10/2009 - exibe contatos por e-mail, msn 
'	http://www.republicavirtual.com.br/blog/

' path inicial
Const HKEY_LOCAL_CURRENT_USER 	= &H80000001
' computador atualização
strComputador = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &  strComputador & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\MSNMessenger\PerPassportSettings"
oReg.EnumKey HKEY_LOCAL_CURRENT_USER, strKeyPath, arrSubKeys

For Each subkey In arrSubKeys
	if subkey <> 0 then
		pathUpdate 	= strKeyPath & "\" & subkey & "\GroupState"
		pathKey		= ".DisplayContactsBy"
		novoValor	= 1
		
		' pega o valor atual
		'oReg.GetDWORDValue HKEY_LOCAL_CURRENT_USER, pathUpdate, pathKey, retornValor
		'Wscript.Echo pathUpdate & " --> " & retornValor 
		
		' atuliza o valor
		'oReg.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, novoValor
		oReg.SetDWordValue HKEY_LOCAL_CURRENT_USER,  pathUpdate, pathKey, novoValor
		

		' exibe novo valor
		'oReg.GetDWORDValue HKEY_LOCAL_CURRENT_USER, pathUpdate, pathKey, retornValor
		'Wscript.Echo subkey
	End if
Next

WScript.Echo "MSN sendo exibido por e-mail! =) bem melhor agora"