translated the whole deal for you, watch the comments:
 Code:
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 = = =

Not sure wether it'll work though but basically this is translated correctly