Const VIDEO_PLAYER = "C:\Program Files\Windows Media Player\wmplayer.exe"
Const POS_LEFT = 100
Const POS_TOP = 100

Set util = CreateObject("UltraMon.Utility")
If util.Run(VIDEO_PLAYER & " """ & WScript.Arguments(0) & """") = True Then
	util.Sleep 1000 'wait 1 second, required for Windows Media Player
	
	Set wnd = CreateObject("UltraMon.Window")
	If wnd.GetAppMainWindow(util.ProcessId, 5000) = True Then
		wnd.Left = POS_LEFT
		wnd.Top = POS_TOP
		wnd.ApplyChanges 0
	End If
End If