Problème caractère et accent mal interprété

Vous voulez par exemple récupérer le message ’net helpmsg’ ou toute autre commande exécuté depuis le shell Windows. Si vous avez des problèmes d’interprétation des caractères essayé cela , ca peut régler votre problème.

Set objShell=CreateObject("WScript.Shell")
Set CONV=CreateObject("OlePrn.OleCvt")
Set oExec1=objShell.Exec("cmd /c chcp")
mess1=oExec1.StdOut.ReadAll
page_code=Split(mess1," :")(1)
Set oExec1 = objShell.Exec("net helpmsg "& id)
SansAccentst=CONV.ToUnicode(oExec1.StdOut.ReadAll,page_code)

Merci à Jean-JMST-Belgium pour cette astuce