Set Server = CreateObject("WMSServer.Server")
do While 1
  for i = 0 to Server.Players.Count - 1
    Set Item = Server.Players.Item(i)
    WScript.Echo Item.ID & ":" & Item.NetworkAddress & ":" & Item.Port & ":" & Item.RequestedURL & ":" & Item.Status
  next
  WScript.Echo "---"
  WScript.Sleep 1000
loop