« アウトルック返信メールのインデント設定 | トップページ | WMV変換 »

2006/12/31

WindowsMediaVideoのプロファイルリスト作成

以下のソースをメモ帳に貼り付けて「GetWmvProfiles.wsf」で保存。
保存後ダブルクリックをするとWindowsMediaVideoのプロファイルをテキストに保存します。
--<以下ソース>--
<?XML version="1.0" encoding="Shift_JIS" standalone="yes" ?>
<package>
<job>
<script language="VBScript">
<![CDATA[
Option Explicit

 

Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Dim txtname
txtname = Replace(WScript.ScriptFullName, WScript.ScriptName, "Profiles.txt")
Dim f
Set f = fso.OpenTextFile(txtname, 2, True)

 

Dim encoder 'Encoder Object
Dim profilecoll
Dim profile
Set encoder = WScript.CreateObject("WMEncEng.WMEncoder")
Set profilecoll = encoder.ProfileCollection
For Each profile In profilecoll
f.WriteLine profile.Name
Next
Set profile = Nothing
Set profilecoll = Nothing
Set encoder = Nothing

 

f.close
Set f = Nothing
Set fso = Nothing
WScript.echo "プロファイルリストの作成がしました。"
]]>
</script>
</job>
</package>

« アウトルック返信メールのインデント設定 | トップページ | WMV変換 »

04 vba & other」カテゴリの記事

コメント

コメントを書く

コメントは記事投稿者が公開するまで表示されません。

(ウェブ上には掲載しません)

トラックバック


この記事へのトラックバック一覧です: WindowsMediaVideoのプロファイルリスト作成:

« アウトルック返信メールのインデント設定 | トップページ | WMV変換 »

2022年7月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31            

最近のトラックバック

無料ブログはココログ