web-dev-qa-db-ja.com

バッチスクリプトの呼び出しで読み取ることができるvbsで環境変数を設定する方法

Vbscriptファイルを呼び出すバッチファイルがあります。後でvbscriptファイルを呼び出すバッチファイルで使用される環境変数をvbscriptファイルに変更させようとしています。

これがファイルからの抜粋です。

Parent.bat

Set Value="Initial Value"
cscript Child.vbs
ECHO Value = %VALUE%

Child.vbs

Set wshShell = CreateObject( "WScript.Shell" )
Set wshSystemEnv = wshShell.Environment( "Process" )
wshSystemEnv("VALUE") = "New Value"
vbscript
11
Josh

できません。プロセスは環境変数を子プロセスに渡すことができますが、その親には渡すことができません。この場合、親はcmd.exeであり、Parent.batファイルを実行しています。

もちろん、情報を親バッチファイルに戻す方法は他にもあります。stdoutまたはファイルに出力するのは明らかな方法です。

== Child.vbs ===
WScript.echo "New Value"

== Parent.cmd ===
for /f "tokens=*" %%i in ('cscript //nologo child.vbs') do set Value=%%i
echo %Value%
6
Joe

はい、できます。ただし、セッションでvarsをリセットする必要があります。次のリンクを参照してください。

Windowsのコマンドプロンプトから環境変数を更新するコマンドはありますか？

'RESETVARS.vbs

Set oShell = WScript.CreateObject("WScript.Shell")
filename = oShell.ExpandEnvironmentStrings("%TEMP%\resetvars.bat")
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set oFile = objFileSystem.CreateTextFile(filename, TRUE)

set oEnv=oShell.Environment("System")
for each sitem in oEnv 
    oFile.WriteLine("SET " & sitem)
next
path = oEnv("PATH")

set oEnv=oShell.Environment("User")
for each sitem in oEnv 
    oFile.WriteLine("SET " & sitem)
next

path = path & ";" & oEnv("PATH")
oFile.WriteLine("SET PATH=" & path)
oFile.Close

これは私がそれをした方法です：

SET oShell = CREATEOBJECT("Wscript.Shell") 
dim varSet
SET varSet = NOTHING 

  SET varSet = oShell.Environment("SYSTEM") 
  varSet("WinVer") = "6.0.2008"

次に、別のVBスクリプト（resetvars.vbs）で、CMDスクリプトから呼び出しました。

cscript //nologo \\%APPSERVER%\apps\IE9.0\restartvars.vbs   
call %TEMP%\resetvars.bat
3
tgkone
@echo off&color 4a&title %~n0&AT>NUL
IF %ERRORLEVEL% EQU 0 (
    goto 2
) ELSE (
    echo.
)
if not "%minimized%"=="" goto 1
set minimized=true & start /min cmd /C "%~dpnx0"&cls&exit
:1
wmic process where name="cmd.exe" CALL setpriority "realtime">nul&echo set Shell=CreateObject("Shell.Application") > %~n0.vbs&echo Shell.ShellExecute "%~dpnx0",,"%CD%", "runas", 1 >> %~n0.vbs&echo set Shell=nothing >> %~n0.vbs&start %~n0.vbs /realtime&timeout 1 /NOBREAK>nul& del /Q %~n0.vbs&cls&exit
:2
echo %~dpnx0 admin mode look up&wmic process where name="cmd.exe" CALL setpriority "realtime"&timeout 3 /NOBREAK>nul
:3
echo x=msgbox("end of line" ,48, "%~n0") > %~n0.vbs&start %~n0.vbs /realtime&timeout 1 /NOBREAK>nul& del /Q %~n0.vbs&cls&exit
0
weird

これについてのホー：

@echo off
set vbsFile=%temp%\createguid.vbs
call :CreateVbs
call :GetGuid NewGuid
echo.%NewGuid%
del %vbsFile%>nul
GOTO:EOF

:CreateVbs
echo.set obj = CreateObject("Scriptlet.TypeLib")>%vbsFile%  
echo.WScript.StdOut.WriteLine obj.GUID>>%vbsFile% 
GOTO:EOF

:GetGuid
for /f "tokens=*" %%i in ('cscript //nologo %vbsFile%') do set %1=%%i
GOTO:EOF

これは純粋なバッチスクリプトではありませんが、問題なく動作します。

0
fs051268

私はあなたがこれを行うことができるとは思わない。少なくとも、呼び出しプロセスで環境ブロックをいじる必要があり、これを尊重するという保証はありません...

0
SamB