# Connect to WMI on reporting server
#
my $SWbemLocator = Win32::OLE->new("WbemScripting.SWbemLocator") or 
		FatalCOMError("Can't open WbemScripting object");
my $SWbemServices = $SWbemLocator->ConnectServer($Server, "root/sms/site_$SiteCode") or 
		FatalCOMError("Can't connect to server: $Server");