VBSで環境変数を取得する方法。
WScript.Echo ExpandEnvironment("%ProgramFiles%")
を
WScript.Echo ExpandEnvironment("%UserName%")
などに変更する事により環境変数を取得します。VBSでファイルをProgramFilesなんかにコピーするときに便利です。
Option Explicit WScript.Echo ExpandEnvironment("%ProgramFiles%") Function ExpandEnvironment(Environment) On Error Resume Next Dim objWshShell ' WshShell オブジェクト Dim strEnvironment Set objWshShell = WScript.CreateObject("WScript.Shell") If Err.Number = 0 Then ExpandEnvironment = objWshShell.ExpandEnvironmentStrings(Environment) Else WScript.Echo "エラー: " & Err.Description End If Set objWshShell = Nothing End Function