Cherche lumieres en vbs

salut à tous, voila j'ai un script réalisé en vbs permettant d'afficher un ipconfig
le voila :

Option Explicit

Dim WshShell,obj,Command,Result,Temp,FileName,File
Set obj = WScript.CreateObject("Scripting.FileSystemObject")
Set WshShell=WScript.CreateObject("WScript.Shell")
FileName=GetTempFile("command.txt")

Result = Ping()

Function Ping()

Command = "%COMSPEC% /C ipconfig.exe > %TEMP%/command.txt"
Result = WshShell.Run(Command,0,True)
Temp = obj.GetSpecialFolder(2).Path
Set File = obj.OpenTextFile(FileName)
Ping = file.ReadAll
file.Close
obj.DeleteFile FileName,True

End Function

Function GetTempFile(File)
GetTempFile=WshShell.ExpandEnvironmentStrings("%TEMP%") & "\" & File
End Function

MsgBox(Result)

je voudrais que les infos IP apparaissent en caracteres gras, mais je perds pied.. merci de votre aide si vous connaissez le chemin de la verité