Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2708 connectés 

  FORUM HardWare.fr
  Programmation
  Divers

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°661914
GENIUS999
Posté le 03-03-2004 à 12:05:37  profilanswer
 

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

mood
Publicité
Posté le 03-03-2004 à 12:05:37  profilanswer
 

n°661917
kfman
Credo quia absurdum
Posté le 03-03-2004 à 12:16:24  profilanswer
 

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
n°661923
GENIUS999
Posté le 03-03-2004 à 12:27:16  profilanswer
 

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'"

n°661924
kfman
Credo quia absurdum
Posté le 03-03-2004 à 12:28:52  profilanswer
 

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
n°661928
GENIUS999
Posté le 03-03-2004 à 12:34:40  profilanswer
 

Voila, c'est bon.
 
Merci


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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Divers

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

 

Sujets relatifs
[VBS]Quelqu'un pour m'aider en vbs SVP (p'tit prog tout con)Thread et récupération évènements
[VC++.NET]Recupération ds un fichier ini et chaine de caractèreProbleme de récupération des variables d'une page à l'autre
que mon ordinateur surf tout seul !![VBS] WshShell - Problème d'initialisation des var. d'environment
Probleme de recuperation de valeurRecupération d'un numéro de Code a Barre dans une chaine EBCDIC
[XSLT] Récupération d'un paramètre dans l'URL[Python - Resolu - Soluce Inside] Serveur http, recuperation d'url
Plus de sujets relatifs à : [VBS] Récuperation du nom de l'ordinateur


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR