[環境変数を設定する]

ユーザーの環境変数として TESTENV を設定します。
設定した環境変数は『システムのプロパティ』の『詳細』タブにある『環境変数』で確認できます。

【ソースコード】

[tips0116.vbs]
Option Explicit
On Error Resume Next

Dim objWshShell     ' WshShell オブジェクト
Dim objUsrEnv       ' 環境変数情報
Dim strEnvName      ' 環境変数名
Dim strEnvValue     ' 環境変数値

Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
    Set objUsrEnv = objWshShell.Environment("User")
    If Err.Number = 0 Then
        strEnvName = "TESTENV"
        strEnvValue = "テスト値"
        objUsrEnv.Item(strEnvName) = strEnvValue
        WScript.Echo "環境変数 " & strEnvName & " を設定しました。"
    Else
        WScript.Echo "エラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objUsrEnv = Nothing
Set objWshShell = Nothing

【実行結果】

C:\> cscript //NoLogo tips0116.vbs
環境変数 TESTENV を設定しました。