[VBS] Récuperation du nom de l'ordinateur

Récuperation du nom de l'ordinateur [VBS] - Divers - Programmation

Marsh Posté le 03-03-2004 à 12:05:37    

Comment est il possible de recupérer en VBS (script WSH) le nom de l'ordinateur via la variable d'environnement COMPUTERNAME?
 
Merci!

Reply

Marsh Posté le 03-03-2004 à 12:05:37   

Reply

Marsh Posté le 03-03-2004 à 12:16:24    

Euh ouais, y'a 3 manières en fait:
 

Citation :

Set WshShell = CreateObject("WScript.Shell" )
Set env = WshShell.Environment("PROCESS" )
computername = env("COMPUTERNAME" )


 
ou
 

Citation :

Set WshShell = CreateObject("WScript.Shell" )
computername = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%" )


 
ou
 

Citation :

Set WshNet = CreateObject("Wscript.Network" )
computername = WshNet.ComputerName


Message édité par kfman le 03-03-2004 à 12:19:27
Reply

Marsh Posté le 03-03-2004 à 12:27:16    

Merci, voila se que j'ai :
 

Citation :

Option Explicit
Set WshNet = CreateObject("Wscript.Network" )
computername = WshNet.ComputerName
WScript.Echo "Nom de l'ordinateur : " & computerName


 
Mais j'ai une erreur dans l'execution de mon fichier vbs, je tourne sous windows 2000.
 
Erreur : "Variable non definie : 'Wshnet'"

Reply

Marsh Posté le 03-03-2004 à 12:28:52    

Genius999 a écrit :

Merci, voila se que j'ai :
 

Citation :

Option Explicit
Set WshNet = CreateObject("Wscript.Network" )
computername = WshNet.ComputerName
WScript.Echo "Nom de l'ordinateur : " & computerName


 
Mais j'ai une erreur dans l'execution de mon fichier vbs, je tourne sous windows 2000.
 
Erreur : "Variable non definie : 'Wshnet'"


 
Tu utilise Option Explicit (très bonne habitude d'ailleurs) donc tu dois t'astreindre à déclarer les noms de variables.
 

Citation :

Option Explicit
 
Dim WshNet, computername
 
Set WshNet = CreateObject("Wscript.Network" )
computername = WshNet.ComputerName
WScript.Echo "Nom de l'ordinateur : " & computerName


Message édité par kfman le 03-03-2004 à 12:29:56
Reply

Marsh Posté le 03-03-2004 à 12:34:40    

Voila, c'est bon.
 
Merci


Message édité par GENIUS999 le 03-03-2004 à 12:36:05
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed