Récuperer nom de machine AD

Bonjour ,

Actuellement en stage, je dois adapter/optimiser un script de déploiement pour OCS Inventory.

Dans ce script, je dois récupérer la variable d'environnement du nom du poste.
J'obtiens une erreur qui m'explique que "strcomputer" n'est pas renseigné.
Or, j'ai bien dans mon code une fonction qui permet de définir cette dernière.
En voici , un extrait :

Appel de la fonction pour définir la variable :

Code:

---

strcomputer =environ("computername")

---

Code de la fonction environ :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Function Environ(VarName)   Dim wss, env Set wss = CreateObject("WScript.Shell") Set env = wss.environment("Process") Environ = env(VarName) If Environ = "" Then Set env = wss.environment("system") Environ = env(VarName) End If   End Function

---

Une idée ?

j'ai pas de problème avec ton code as tu essayé d'utiliser seule ta fonction environ (dans un autre .vbs) en rajoutant la ligne:

Code:

---

msgbox environ("computername")

---

Oui , je viens de tester , et cela fonctionne ... .
Je ne comprend pas :s

Excusez moi de ma bétise ... .
J'ai juste oublier de déclarer "strcomputer" alors que je suis en
Option Explicit ... .
Merci quand meme !

En fait non ...
j'ai beau le déclarer, mais quand je le déploie sur le réseau, au lancement de la machine, j'ai toujours la même erreur. Alors que si je teste en local, il n'y a aucune erreur, mais rien ne se passe.
Des idées ?

j'aimerais bien voir comment on t'explique cela :

Citation:

---

J'obtiens une erreur qui m'explique que "strcomputer" n'est pas renseigné.

---

Au démarrage des postes concernés par la GPO :
http://img827.imageshack.us/img827/7821/testho.png

Simple question :
En VBS , l'appel d'une fonction doit se faire obligatoirement après son implémentation ? ou peu importe l'ordre ?

Salut
Comme l'a dit bbil :coucou:, ces lignes de

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

strcomputer =environ("computername") msgbox strcomputer     Function Environ(VarName)   Dim wss, env Set wss = CreateObject("WScript.Shell") Set env = wss.environment("Process") Environ = env(VarName) If Environ = "" Then Set env = wss.environment("system") Environ = env(VarName) End If   End Function

---

fonctionnes, sur 3 ordinateurs et OS différents, en local ou sur le réseau.

Au vue du message d'erreur, essais d'ajouter en tout debut de

Code:

---

1 2	option explicit dim strcomputer

---