Ecrire dans un fichier texte

Bonjour,

voilà un petit code que j'ai créer qui me permet de récupérer l'adresse ip et le nom d'utilisateur.
Maintenant j'aurai voulu récupérer ses données dans un fichier texte, merci de pouvoir m'avancer un peut, ca fait pas mal de temps que je seches.

strComputer = "." 

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" _ 

& strComputer & "\root\cimv2") 

Set colItems = objWMIService.ExecQuery _

     ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

 
Set colComputer = objWMIService.ExecQuery _

    ("Select * from Win32_ComputerSystem") 

  For Each objComputer in colComputer

 msg = msg & "L'adresse ip de l'utilisateur " & objComputer.UserName 

Next

 
For Each objItem in colItems

     For Each strAddress in objItem.IPAddress

         msg = msg & " est " & strAddress

    Next

Next

 
 
 
Wscript.Echo msg