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

By | 20 September 2009

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

Leave a Reply

Your email address will not be published. Required fields are marked *