用VBScript去新增WMS端點(Windows Media Services)

Windows Media Services是微軟在Server提供當成串流伺服器的
當然它的串流只支援微軟的wma、wmv格式
由於我需要在安裝檔裏去新增WMS的端點
所以在網路上搜尋了一下
但是都找不到什麼資料
只是用找到的資料
零零碎碎試出自己想要的功能
當然也參考了微軟網站上的Library

以下為範例，只說明列出端點和新增端點供大家參考
Set objWMSServer = CreateObject("WMSServer.Server")
Set objWMSPubPoints = objWMSServer.PublishingPoints
For i = 0 To objWMSServer.PublishingPoints.Count - 1
   Set objTempWMSPubPoint = objWMSPubPoints.Item(i)
   '此Type值為1是點播、2是廣播
   '先列出有哪些端點
   If (objTempWMSPubPoint.Type >= 1) And (objTempWMSPubPoint.Type <= 2) And (objTempWMSPubPoint <> "/") Then
      Wscript.Echo objTempWMSPubPoint.Type
   Else
      ' Invalid Publishing Point
   End If
   Set objTempWMSPubPoint = Nothing
Next
'新增端點VOD
strName = "VOD"
Set NewPubPoint = objWMSPubPoints.Add(strName, 1, "C:\VOD")
Set NewPubPoint = Nothing
Set objWMSPubPoints = Nothing
Set objWMSServer = Nothing

如果要移除的話
strName = "VOD"
objWMSPubPoints.Remove(strName)