Récupérer le nom ordinateur pour un invite de script

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

Code:

---

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:

---

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

Bonsoir
je te propose ce qui suit :

Code:

---

1 2	Set wshNetwork = CreateObject("Wscript.Network") MsgBox wshNetwork.ComputerName

---

J'ai essayé mais sans résultat a prime abord...

Je ne sais pas comment faire en sorte que ce soit repris dans l'invite du script?

Si j'inscrit

Code:

---

1 2 3 4

Sub RunScript Set wshNetwork = CreateObject("Wscript.Network") MsgBox wshNetwork.ComputerName strAnswer = window.prompt("Please enter the Location to save.", "\\127.0.0.1\partage\ & ComputerName .xls")

---

Le MsgBox m'affiche bien le nom de l'ordi mais pas dans le windows.prompt ou il m'écrit \\127.0.0.1\partage\ & ComputerName .xls

Salut

Code:

---

strAnswer = window.prompt("Please enter the Location to save.", "\\127.0.0.1\partage\" & wshNetwork.ComputerName & ".xls")

---

Oh un grand merci il me semblait que j'étais pas loin tout de même :P

Code:

---

1 2 3 4

Sub RunScript Set wshNetwork = CreateObject("Wscript.Network") strAnswer = window.prompt("Please enter the Location to save.", "\\127.0.0.1\partage\" & wshNetwork.ComputerName & ".xls")

---

Merci a vous jeune Jedi