Archives de catégorie : Développement

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 à… Lire la suite »

Comme faire pour interrompre une fonction ou un Sub en vbs Il faut tout simplement appeler l’instruction suivant : exit function ou exit Sub