<?xml version="1.0" ?>਍ഀ
<html>਍ഀ
<head>਍ഀ
<title>Media Server クライアント接続モニタ</title>਍ഀ
<style>਍ഀ
	thead {background-color:black; color:white; }਍ഀ
</style>਍ഀ
</head>਍ഀ
਍ഀ
<body style="font-size:12px;">਍ഀ
ユニキャストクライアントの接続状況をモニタします。<br>਍ഀ
クライアントには、Media Server と Internet Explorer 5.01 以਍䱎씰腟枉夰Ȱ㰰戀爀㸀ഀ
਍㰀䠀刀㸀ഀ
਍ഀ
਍㰀℀ⴀⴀ 唀渀椀挀愀猀琀 䄀搀洀椀渀 䌀漀渀琀爀漀氀 ⴀⴀ㸀ഀ
਍㰀伀䈀䨀䔀䌀吀 䤀䐀㴀∀漀戀樀䄀搀洀椀渀∀ 圀䤀䐀吀䠀㴀㄀ 䠀䔀䤀䜀䠀吀㴀㄀ഀ
਍ऀ䌀䰀䄀匀匀䤀䐀㴀∀䌀䰀匀䤀䐀㨀䄀㔀䌀䈀䔀䔀㐀㌀ⴀ㘀䌀㈀䌀ⴀ㄀㄀䌀䘀ⴀ䈀䌀䘀䐀ⴀ　　䄀䄀　　䌀㄀㐀㠀　㘀∀㸀ഀ
਍㰀⼀伀䈀䨀䔀䌀吀㸀ഀ
਍ഀ
਍㰀℀ⴀⴀ 윀ﰰ뼰‰ⴀⴀ㸀ഀ
਍㰀砀洀氀 椀搀㴀∀搀猀䌀氀椀攀渀琀猀∀㸀ഀ
਍㰀䌀氀椀攀渀琀猀㸀ഀ
਍ऀ㰀䌀氀椀攀渀琀㸀ഀ
਍ऀऀ㰀䌀氀椀攀渀琀䤀䐀㸀　㰀⼀䌀氀椀攀渀琀䤀䐀㸀ഀ
਍ऀऀ㰀䤀倀䄀搀搀爀攀猀猀㸀　⸀　⸀　⸀　㰀⼀䤀倀䄀搀搀爀攀猀猀㸀ഀ
਍ऀ㰀⼀䌀氀椀攀渀琀㸀ഀ
਍㰀⼀䌀氀椀攀渀琀猀㸀ഀ
਍㰀⼀砀洀氀㸀ഀ
਍㰀琀愀戀氀攀 戀漀爀搀攀爀㴀　㸀ഀ
਍㰀琀爀㸀ഀ
਍ऀ㰀琀搀㸀딀ﰰ퀰ര吊</td><td><input id="txtServerName" type="text" value="">਍ഀ
	<input id="btnConnect" type="button" value="接続"></td>਍ഀ
</tr>਍ഀ
<tr><td>状況</td><td><input id="txtStatus" type="text" value=""></td></tr>਍ഀ
</table>਍ഀ
<HR>਍ഀ
<table datasrc="#dsClients" border=1>਍ഀ
<thead>਍ഀ
	<tr>਍ഀ
		<td><span>ClientID</span></td>਍ഀ
		<td><span>IPAddress</span></td>਍ഀ
	</tr>਍ഀ
</thead>਍ഀ
	<tr>਍ഀ
		<td><span datafld="ClientID"></span></td>਍ഀ
		<td><span datafld="IPAddress"></span></td>਍ഀ
	</tr>਍ഀ
</table>਍ഀ
਍ഀ
<textarea id="txtTrace" cols="50" rows="10">਍ഀ
</textarea>਍ഀ
਍ഀ
<HR>਍ഀ
਍ഀ
<script language="vbscript">਍ഀ
'---- AffectEnum Values ----਍ഀ
Const adAffectCurrent = 1਍ഀ
Const adAffectGroup = 2਍ഀ
Const adAffectAll = 3਍ഀ
Const adAffectAllChapters = 4਍ഀ
਍ഀ
'---- FilterGroupEnum Values ----਍ഀ
Const adFilterNone = 0਍ഀ
Const adFilterPendingRecords = 1਍ഀ
Const adFilterAffectedRecords = 2਍ഀ
Const adFilterFetchedRecords = 3਍ഀ
Const adFilterPredicate = 4਍ഀ
Const adFilterConflictingRecords = 5਍ഀ
਍ഀ
Sub Window_OnLoad()਍ഀ
	ClientsClear਍ഀ
	Trace "OnLoad"਍ഀ
End Sub਍ഀ
਍ഀ
Sub btnConnect_OnClick()਍ഀ
਍ഀ
	'-- On Error Resume Next਍ഀ
	ClientsClear਍ഀ
	txtStatus.Value = "接続処理中..."਍ഀ
	objAdmin.Connect txtServerName.Value਍ഀ
	If Err = 0 Then਍ഀ
		txtStatus.Value = "接続中"਍ഀ
		ClientsUpdate਍ഀ
		Trace "接続成功"਍ഀ
	Else਍ഀ
		txtStatus.Value = "切断中:" & Err.Description਍ഀ
		ClientsUpdate਍ഀ
		Trace "接続失敗"਍ഀ
	End If਍ഀ
	਍ഀ
End Sub਍ഀ
਍ഀ
Sub objAdmin_OnClientConnect(DateTime, status, clientid, ipaddress, port)਍ഀ
	Trace "OnClientConnect:" & ClientID & " " & ipaddress਍ഀ
	ClientsClear਍ഀ
    ClientsUpdate਍ഀ
End Sub਍ഀ
਍ഀ
Sub objAdmin_OnClientDisconnect(DateTime, status, clientid, ipaddress, port)਍ഀ
	Trace "OnClientDisconnect:" & ClientID & " " & ipaddress਍ഀ
	ClientsClear਍ഀ
    ClientsUpdate਍ഀ
End Sub਍ഀ
਍ഀ
Sub objAdmin_OnClientPlay(DateTime, Status, ClientID, Filename)਍ഀ
	Trace "OnPlay: " & ClientID & " " & Filename਍ഀ
End Sub਍ഀ
਍ഀ
Sub objAdmin_OnClientStop(DateTime, Status, ClientID, Filename)਍ഀ
	Trace "OnStop: " & ClientID & " " & Filename਍ഀ
End Sub਍ഀ
਍ഀ
Sub ClientsClear()਍ഀ
	Set rstClients = dsClients.Recordset਍ഀ
	For n = 1 To rstClients.RecordCount਍ഀ
		rstClients.Delete਍ഀ
	Next਍ഀ
End Sub਍ഀ
਍ഀ
Sub ClientsUpdate()਍ഀ
	'-- On Error Resume Next਍ഀ
	If objAdmin.ClientEvents Then਍ഀ
		Set rstClients = dsClients.Recordset਍ഀ
		aryFields = Array("ClientID", "IPAddress")਍ഀ
		If objAdmin.Clients.Count > 0 Then਍ഀ
			For Each Client In objAdmin.Clients਍ഀ
				lngClientID = Client.ClientID਍ഀ
				strIPAddress = Client.IPAddress਍ഀ
				rstClients.AddNew aryFields, Array(lngClientID, strIPAddress)਍ഀ
			Next਍ഀ
		End If਍ഀ
	Else਍ഀ
		txtStatus.Value = "クライアントがモニターされていない"਍ഀ
	End If਍ഀ
End Sub਍ഀ
਍ഀ
Sub Trace(strMessage)਍ഀ
	aryTrace = Split(txtTrace.Value, vbCrLf)਍ഀ
	ReDim Preserve aryTrace(5)਍ഀ
	txtTrace.Value = FormatDateTime(Now, vbShortTime) & " " & strMessage & vbCrLf _਍ഀ
		& Join(aryTrace, vbCrLf)਍ഀ
End Sub਍ഀ
਍ഀ
</script>਍ഀ
</body>਍ഀ
</html>਍ഀ