Reading an Environment Var created with a vbs

[ainner]

I'd like to be able to read an env var created in a .vbs with EnvGet without having to reboot.

Anyone know why I can read it right away in a .vbs and not with EnvGet

Thx!

$oShell = ObjCreate("WScript.Shell")

$wshSystemEnv = $oShell.Environment("SYSTEM")

$wshSystemEnv( "David" ) = "Bowie"

$var = EnvGet("David")

MsgBox(4096, "Path variable is:", $var)

MsgBox(4096, "Test", $wshSystemEnv("David"), 10)

Edited March 26, 2013 by ainner

[water]

The example you provided crashes with

"The requested action with this object has failed.:
$wshSystemEnv( "David" ) = "Bowie"^ ERROR"

Does the Env variable still exist after the VB script has ended?

[ainner]

Strange my example work just fine except that the first msgbox is empty.

[FireFox]

It crashes for me too. I can't get the right syntax to assign the value.

Edit: Not possible as it's a string and not an object.

Edited March 26, 2013 by FireFox

[water]

I'm running WIndows 7 64 bit.

[Melba23]

ainner,

Does this work for you?

#include <Constants.au3>

$sOutput = ""
$sEnvVar = "David"
$sEnvValue = "Not Found"

; Read the system emnvironment
Local $iPID = Run(@ComSpec & " /C SET", "", @SW_HIDE, $STDOUT_CHILD)
While 1
    $sOutput &= StdoutRead($iPID)
    If @error Then
        ExitLoop
    EndIf
WEnd
; Find the env var
$aEnv = StringSplit($sOutput, @CRLF, 1)
For $i = 1 To $aEnv[0]
    $aSplit = StringSplit($aEnv[$i], "=")
    If $aSplit[1] = $sEnvVar Then
        $sEnvValue = $aSplit[2]
        ExitLoop
    EndIf
Next
MsgBox(0, "Env Var", $sEnvVar & " = " & $sEnvValue)

Any use?

M23

[FireFox]

@Melba23

Play the game and try it with the WScript Shell

[Melba23]

FireFox,

Remind me who sets the rules around here?

M23

[FireFox]

D'oh ! Too easy

[Melba23]

ainner,

Please ignore us - we like to have a bit of fun now and again.

Does the script I posted allow you to read the environment variable you need?

M23