Sub ShowSiteHealth(connection, siteCode)

	Dim siteHealth
	Dim health

	On Error Resume Next 

	' Get the site status summarizer.
	Set siteHealth = connection.Get("SMS_SummarizerSiteStatus.SiteCode='" & siteCode & "'")
	If Err.Number<>0 Then
		Wscript.Echo "Couldn't get site health"
		Exit Sub
	End If

	' Display the site health.
	health="Health for site " + siteCode + " "

	Select Case siteHealth.Status
		Case 0
			heath = health + "is OK"
		Case 1
			health = health + "has warnings"
		Case 2
			health = health + "is critical"
		Case Else
			health = health + "is not known"
	End Select	
	 
	Wscript.Echo health
End Sub

public void ShowSiteHealth(WqlConnectionManager connection, string siteCode)
{
	try
	{
		IResultObject siteHealth = connection.GetInstance(@"SMS_SummarizerSiteStatus.SiteCode='" + siteCode + "'");

		Console.Write("Health for site {0}", siteCode);
		switch (siteHealth["Status"].IntegerValue)
		{
			case 0:
				Console.WriteLine("is OK");
				break;
			case 1:
				Console.WriteLine("has warnings");
				break;
			case 2:
				Console.WriteLine("is critical");
				break;
			default:
				Console.WriteLine("is not known");
				break;
	}
}
	catch (SmsException e)
	{
		Console.WriteLine("Failed to show site status: " + e.Message);
}
}