VB -> VB Script

[Mile]

Как с помощью Vb Script заставить работать вот это:
(и возможно ли такое вообще?)

Dim WithEvents Stream As WMEncStreamEdit
Sub Main()
' Create a WMEncStreamEdit object.
Set Stream = New WMEncStreamEdit

' Specify the streams to add. In this example, we're using the audio
' stream from the first audience in the file, and the video stream
' from the second audience.
Stream.AddStream "C:\Input1.wmv", WMENC_AUDIO, 0, 0, 1033, 0, 0
Stream.AddStream "C:\Input2.wmv", WMENC_VIDEO, 1, 0, 1033, 0, 0

' Specify the output file.
Stream.OutputFile = "C:\Output.wmv"

' Validate the current settings. In practice, you should add a process
' that handles errors.
Stream.Validate

' Start editing the stream.
Stream.Start

' Use a loop to wait for the event notifying you when the stream edit
' process stops and display a message.
Dim bDone As Boolean
bDone = False
Do Until bDone = True
DoEvents
Loop

MsgBox "Done!"

End Sub

' This procedure is called when there is a change in the stream edit process.
Private Sub Stream_OnStateChange(ByVal EnumState As WMEncoderLib.WMENC_BASICEDIT_STATE)
If EnumState = WMENC_BASICEDIT_STOPPED Then bDone = True
End Sub

(взято из http://msdn.microsoft.com/library/defau ... treams.asp)

[#HammeR#]

Что это вообще такое?

[Mile]

спасибо за проявленный интерес, но тема уже неактуальна
это некий скрипт для работы с мультимедийными потоками в вин медиа плеере