= = = START SOURCE = = = 
' Declare variables.
  Dim Encoder As WMEncoder
  Dim SrcGrpColl As IWMEncSourceGroupCollection
  Dim SrcGrp As IWMEncSourceGroup2
  Dim SrcAud As IWMEncAudioSource
  Dim SrcVid As IWMEncVideoSource
  Dim ProColl As IWMEncProfileCollection
  Dim Pro As IWMEncProfile
  Dim PushDist As IWMEncPushDistribution
  Dim strServerName As String
  Dim strPubPoint As String
  Dim strPubTemplate As String
  Dim MyNSCFile As String
  Dim MyNSCURL As String
  Dim MyASXFile As String

Private Sub Main()
' Create a WMEncoder object.
  Set Encoder = New WMEncoder

' Retrieve the source group collection and add sources. 
' Use the default devices for the audio and video sources.
  Set SrcGrpColl = Encoder.SourceGroupCollection
  Set SrcGrp = SrcGrpColl.Add("SG_1")
  Set SrcAud = SrcGrp.AddSource(WMENC_AUDIO)
  Set SrcVid = SrcGrp.AddSource(WMENC_VIDEO)
  SrcAud.SetInput ("device://default_audio_device")
  SrcVid.SetInput ("device://default_video_device")

' Retrieve the profile collection. This example uses the 3rd profile.
  Set ProColl = Encoder.ProfileCollection
  Set Pro = ProColl.Item(2)
  SrcGrp.Profile = Pro

' Set up the push broadcast.
  Set PushDist = Encoder.Broadcast

' Specify the push distribution variables, including the Windows Media
' server name, publishing point, and announcement files. 
' Provide real values for the following placeholders.
  strServerName = "MyWMServer:70"
  strPubPoint = "MyPubPoint"
  strPubTemplate = "AnotherPubPoint"
  MyNSCFile = "\\servername\share\MyPubPoint.nsc"
  MyNSCURL = "\\servername\share\MyPubPoint.nsc"
  MyASXFile = "\\MyComputer\MyPubPoint.asx"

' Remove the publishing point when the broadcast is over.
  PushDist.AutoRemovePublishingPoint = True

' Set the push distribution variables.
  PushDist.ServerName = strServerName
  PushDist.PublishingPoint = strPubPoint
  PushDist.Template = strPubTemplate
  Encoder.PrepareToEncode True

' Generate the announcement file. 
  PushDist.GenerateMulticastInfoFile (MyNSCFile)
  PushDist.GenerateAnnouncementFile MyNSCURL, MyASXFile

' Start encoding.
  Encoder.Start
  MsgBox "Click OK to stop broadcasting."

End Sub

= = = END SOURCE = = = 

$Encoder = CreateObject("WMEnc.WMEncoder")
"Error: " @error ": " @SERROR ?
$pBroadccast=$Encoder.broadcast
"Error: " @error ": " @SERROR ?

Break On
Dim $Encoder
$Encoder = CreateObject("WMEnc.WMEncoderapp")

$Encoder = CreateObject("WMEnc.WMEncoder")
"Error: " @error ": " @SERROR ?

$Encoder = CreateObject("WMEnc.WMEncoderapp")

Main()

;= = = START SOURCE = = = 
; Declare variables.
  Dim $Encoder
  Dim $SrcGrpColl
  Dim $SrcGrp
  Dim $SrcAud
  Dim $SrcVid
  Dim $ProColl
  Dim $Pro
  Dim $PushDist
  Dim $strServerName
  Dim $strPubPoint
  Dim $strPubTemplate
  Dim $MyNSCFile
  Dim $MyNSCURL
  Dim $MyASXFile

Function Main()
; Create a WMEncoder object.
  $Encoder = CreateObject("WMEncEng.WMEncoder")

; Retrieve the source group collection and add sources. 
; Use the default devices for the audio and video sources.
  $SrcGrpColl = $Encoder.SourceGroupCollection
  $SrcGrp = $SrcGrpColl.Add("SG_1")
  $SrcAud = $SrcGrp.AddSource(WMENC_AUDIO)
  $SrcVid = $SrcGrp.AddSource(WMENC_VIDEO)
  $SrcAud.SetInput("device://default_audio_device")
  $SrcVid.SetInput("device://default_video_device")

;You have to figure out what value WMEX_AUDIO and WMENC_VIDEO are and changes those


; Retrieve the profile collection. This example uses the 3rd profile.
  $ProColl = $Encoder.ProfileCollection
  $Pro = $ProColl.Item(2)
  $SrcGrp.Profile = $Pro

; Set up the push broadcast.
  $PushDist = $Encoder.Broadcast

; Specify the push distribution variables, including the Windows Media
; server name, publishing point, and announcement files. 
; Provide real values for the following placeholders.
  $strServerName = "MyWMServer:70"
  $strPubPoint = "MyPubPoint"
  $strPubTemplate = "AnotherPubPoint"
  $MyNSCFile = "\\servername\share\MyPubPoint.nsc"
  $MyNSCURL = "\\servername\share\MyPubPoint.nsc"
  $MyASXFile = "\\MyComputer\MyPubPoint.asx"

; Remove the publishing point when the broadcast is over.
  $PushDist.AutoRemovePublishingPoint = 1

; Set the push distribution variables.
  $PushDist.ServerName = $strServerName
  $PushDist.PublishingPoint = $strPubPoint
  $PushDist.Template = $strPubTemplate
  $Encoder.PrepareToEncode(1)

; Generate the announcement file. 
  $PushDist.GenerateMulticastInfoFile($MyNSCFile)
  $PushDist.GenerateAnnouncementFile($MyNSCURL, $MyASXFile)

; Start encoding.
  $Encoder.Start
  $=MessageBox("Click OK to stop broadcasting.","")
EndFunction

;= = = END SOURCE = = =