VBS: Connaître le nom de machine

'Retourne le nom de machine dans un fichier nom_machine.txt
Dim fso, tf
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set tf = fso.CreateTextFile(".\nom_machine.txt", True)
 
Public Function Computer_Name()
  Set WshNetwork = WScript.CreateObject("WScript.Network")
  Computer_Name = WshNetwork.ComputerName
End Function
 
    tf.WriteLine("Nom de la machine: " & Computer_Name)
tf.Close

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *