こんな感じかなぁ・・・?
DVDで試してないけど、ビデオで試した結果ではうまく動いています。
http://msdn.microsoft.com/ja-jp/library/cc392567.aspx
onexit *exit
DiskDrive = "E:"
pos 0,0
axobj wmp, "{6BF52A52-394A-11d3-B153-00C04F79FAA6}", 640,400
id =Stat
wmpset = wmp("settings")
wmpset("autoStart") = 1
wmp("URL") = ""+DiskDrive+"\\VIDEO_TS\\VIDEO_TS.IFO"
//適度なウェイト
wait 50
wmpcnt = wmp("controls")
wmpcnt->"play"
//再生中かを調べる
repeat
if wmp("playState")=3:break
wait 12
loop
//再生中にフルスクリーンをしないと失敗します。
wmp("fullScreen")=1
objsel id
stop
*exit
wmp->"close"
delcom wmpset
delcom wmp
end