Fonction environ en vbscript / vbs

Soyez le premier à donner votre avis sur cette source.

Snippet vu 26 419 fois - Téléchargée 31 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
cs_tomyboy Messages postés 21 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 13 novembre 2007
30 oct. 2007 à 13:34
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?
Hitch16 Messages postés 78 Date d'inscription vendredi 4 février 2005 Statut Membre Dernière intervention 6 octobre 2008
30 oct. 2007 à 12:53
Salut,

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

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

:)
cs_tomyboy Messages postés 21 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 13 novembre 2007
30 oct. 2007 à 10:47
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
Hitch16 Messages postés 78 Date d'inscription vendredi 4 février 2005 Statut Membre Dernière intervention 6 octobre 2008
7 août 2006 à 16:24
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...
;-)
roucky49 Messages postés 1 Date d'inscription vendredi 31 décembre 2004 Statut Membre Dernière intervention 13 août 2010
11 avril 2006 à 12:01
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.