Fonction environ en vbscript / vbs

Soyez le premier à donner votre avis sur cette source.

Snippet vu 26 065 fois - Téléchargée 29 fois

Contenu du snippet

En vb on connait la fonction Environ, qu'on ne retrouve malheureusement pas tel quel dans VBS.
Voilà, en quelques lignes ma solution pour un script.

Source / Exemple :


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

A voir également

Ajouter un commentaire

Commentaires

Messages postés
21
Date d'inscription
mardi 23 octobre 2007
Statut
Membre
Dernière intervention
13 novembre 2007

c'est deja fait ;-)

je te dis ce que je fais
la j'ai deja un script qui tourne plus ou moins et qui permet de modifier des images tiré d'un mainframe pour les retranscrire en windows et l'afficher en tif...
Sauf que ce script n'interroge que sur le cd , or j'aurai besoin que ce script soit plus dynamique c'est a dire que l'on puisse selectionner nous meme à l'endroit que l'on veut un fichier précis... ( disque c, d, programes files... peu importe) sans rentrer une variable en dur comme checker dabs le c, d poste de travail, car je peux avoir des versions d'os differentes, d'ou mon interrogation sur une variable d'environnement permettant de checker tout le "pc"...

Est-ce plus clair ?

est-ce plus clair?
Messages postés
78
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
6 octobre 2008

Salut,

tu pourrais être plus explicite s'il te plait?

et mets ça dans un nouveau post, ça pourrait intéresser d'autres personnes...

:)
Messages postés
21
Date d'inscription
mardi 23 octobre 2007
Statut
Membre
Dernière intervention
13 novembre 2007

Salut à vous,

Je supra débute en vbs et je dois faire un script qui permet de checker l'ensemble des disque dur pour recuperer un fichier, tout en étant fonctionnel sur n'importe quel type de machine ( os différent, serveur) il me semble qu'il faut mettre une variable d'environnement , mais je ne sais pas trop, merci de votre aide
Messages postés
78
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
6 octobre 2008

Salut,
ça existe aussi en VBS...

Set WshShell = WScript.CreateObject("WScript.Shell")
OsName = WshShell.ExpandEnvironmentStrings("%OS%")

ça vous dit quelque chose????

Les arguments de la proriété ExpandEnvironmentStrings sont les suivantes:

AppData, Temp, Tmp, ComputerName, CommonProgramFiles, ComSpec, Number_Of_Processors, OS, Processor_Architecture, Processor_Identifier, Processor_Level, Processor_Revision, ProgramFiles, SystemDrive, SystemRoot, AllUsersProfile, UserProfile, WinDir, HomeDrive, HomePath, LogonServer, UserDomain, UserName.

Voilà voilà, pure VBS...
;-)
Messages postés
1
Date d'inscription
vendredi 31 décembre 2004
Statut
Membre
Dernière intervention
13 août 2010

Un tout grand merci, ca me simplifie la vie :D
Afficher les 8 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.