Stuff

<tcascript>
<language name="VB" />
<waitForUserAction value="true"/>

<scriptCode><![CDATA[

Imports System

Public Class BroadcastTS
	Public Shared Sub Main()
        	Dim VoiceServers() As TCAdminSDK.Objects.VirtualVoiceServer = TCAdminSDK.Objects.VirtualVoiceServer.GetVoiceServers
	        If Not VoiceServers Is Nothing Then
        	    For Each voiceserver As TCAdminSDK.Objects.VirtualVoiceServer In VoiceServers
	                If voiceserver.VoiceServerType = TCAdminSDK.Objects.VoiceServerType.TeamSpeak2 AndAlso voiceserver.CurrentStatus = TCAdminSDK.Objects.VoiceServerStatus.Running Then
	                    Console.WriteLine("Sending Message to Port: " & voiceserver.Port)
			    'How would I do a TCAdminSDK.Util.TeamSpeakServer.VirtualServer.SendMessage() now?
        	        End If
        	    Next
	        End If
	End Sub
End Class

]]></scriptCode>

</tcascript>