用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)

引用通告地址: http://www.fase.idv.tw/blog/trackback.php?tbID=75&extra=8f6a7a
標籤: VBScript
評論: 0 | 引用: 0 | 閱讀: 2711
發表評論
暱 稱(*): 密 碼:
網 址: E - mail:
驗證碼(*): 驗證碼圖片
請用滑鼠點選輸入
選 項:
頭 像:
內 容(*):