環境変数を取得する@VBS

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

関連する記事

• 試用期間が終了したため、バーチャル マシン ” ” は起動されませんでした。 (0)
• 自宅用ファイルサーバについての考察 (0)
• 特殊フォルダのパスを取得する@VBS (0)
• 無償版Photoshop@Webアプリケーション (0)
• 文字が含まれているか調べる@VBScript (0)