環境変数を取得する@VBS
VBSで環境変数を取得する方法。
WScript.Echo ExpandEnvironment("%ProgramFiles%")
を
WScript.Echo ExpandEnvironment("%UserName%")
などに変更する事により環境変数を取得します。VBSでファイルをProgramFilesなんかにコピーするときに便利です。
Option ExplicitWScript.Echo ExpandEnvironment("%ProgramFiles%")
Function ExpandEnvironment(Environment)
On Error Resume NextDim objWshShell ' WshShell オブジェクト
Dim strEnvironmentSet objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
ExpandEnvironment = objWshShell.ExpandEnvironmentStrings(Environment)
Else
WScript.Echo "エラー: " & Err.Description
End IfSet objWshShell = Nothing
End Function
Popularity: 3%
トラックバック URI : http://pnpk.net/cms/archives/324/trackback/
【関連記事】
