Y a t-il moyen de récupérer le nom de l'ordinateur pour l'inscrire dans un invite de script

Code : Sélectionner tout - Visualiser dans une fenêtre à part
strAnswer = window.prompt("Please enter the Location to save.", "\\127.0.0.1\partage\computer_name.xls")
de façon à ce que computer_name soit le nom de l'ordinateur sur lequel le script fonctionne...

Sachant que j'ai cette option un peu plus haut dans le script...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Window_Onload
 
    StrComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colSettings = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
    For Each ObjComp in colsettings
    strTEXT = strTEXT & ObjComp.Name
    Next
 
    Computer.Value = strTEXT 
 
    End Sub
merci