'*** Création de l'environnement

Set oNet = WScript.CreateObject("WScript.Network")

 

'*** Affichage du nom de l'ordianteur

msgbox "nom du pc : " & oNet.ComputerName