Discussion :

[Invité]

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

[papyxy]

Bonsoir
je te propose ce qui suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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