Discussion :

[Ekozium]

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 :

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

strcomputer =environ("computername")

Code de la fonction environ :

Code :

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

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 ?

[SfJ5Rpw8]

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 :

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

msgbox environ("computername")

[Ekozium]

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

[Ekozium]

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

[Ekozium]

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 ?

[SfJ5Rpw8]

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

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

[Ekozium]

Au démarrage des postes concernés par la GPO :


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

[ProgElecT]

Salut
Comme l'a dit bbil , ces lignes de

Code :

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

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 :

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

1
2
option explicit
dim strcomputer