'On Error Resume Next 
wscript.echo time

dim store(55)

lowestcount=999
STORE(1)=CountMailboxes("SXGM-501","Mailbox Store 1D")
STORE(2)=CountMailboxes("SXGM-501","Mailbox Store 2A")
STORE(3)=CountMailboxes("SXGM-501","Mailbox Store 3A")
STORE(4)=CountMailboxes("SXGM-501","Mailbox Store 3B")
STORE(5)=CountMailboxes("SXGM-501","Mailbox Store 3C")
STORE(6)=CountMailboxes("SXGM-501","Mailbox Store 3D")
STORE(7)=CountMailboxes("SXGM-501","Mailbox Store 4A")
STORE(8)=CountMailboxes("SXGM-501","Mailbox Store 4B")
STORE(9)=CountMailboxes("SXGM-501","Mailbox Store 4C")
STORE(10)=CountMailboxes("SXGM-501","Mailbox Store 4D")
STORE(11)=CountMailboxes("SXGM-502","Mailbox Store 1D")
STORE(12)=CountMailboxes("SXGM-502","Mailbox Store 3A")
STORE(13)=CountMailboxes("SXGM-502","Mailbox Store 3B")
STORE(14)=CountMailboxes("SXGM-502","Mailbox Store 3C")
STORE(15)=CountMailboxes("SXGM-502","Mailbox Store 3D")
STORE(16)=CountMailboxes("SXGM-502","Mailbox Store 4A")
STORE(17)=CountMailboxes("SXGM-502","Mailbox Store 4B")
STORE(18)=CountMailboxes("SXGM-502","Mailbox Store 4C")
STORE(19)=CountMailboxes("SXGM-502","Mailbox Store 4D")
STORE(20)=CountMailboxes("SXGM-503","Mailbox Store 1D")
STORE(21)=CountMailboxes("SXGM-503","Mailbox Store 3A")
STORE(22)=CountMailboxes("SXGM-503","Mailbox Store 3B")
STORE(23)=CountMailboxes("SXGM-503","Mailbox Store 3C")
STORE(24)=CountMailboxes("SXGM-503","Mailbox Store 3D")
STORE(25)=CountMailboxes("SXGM-503","Mailbox Store 4A")
STORE(26)=CountMailboxes("SXGM-503","Mailbox Store 4B")
STORE(27)=CountMailboxes("SXGM-503","Mailbox Store 4C")
STORE(28)=CountMailboxes("SXGM-503","Mailbox Store 4D")
STORE(29)=CountMailboxes("SXGM-601","Mailbox Store 1D")
STORE(30)=CountMailboxes("SXGM-601","Mailbox Store 3A")
STORE(31)=CountMailboxes("SXGM-601","Mailbox Store 3B")
STORE(32)=CountMailboxes("SXGM-601","Mailbox Store 3C")
STORE(33)=CountMailboxes("SXGM-601","Mailbox Store 3D")
STORE(34)=CountMailboxes("SXGM-601","Mailbox Store 4A")
STORE(35)=CountMailboxes("SXGM-601","Mailbox Store 4B")
STORE(36)=CountMailboxes("SXGM-601","Mailbox Store 4C")
STORE(37)=CountMailboxes("SXGM-601","Mailbox Store 4D")
STORE(38)=CountMailboxes("SXGM-602","Mailbox Store 1D")
STORE(39)=CountMailboxes("SXGM-602","Mailbox Store 3A")
STORE(40)=CountMailboxes("SXGM-602","Mailbox Store 3B")
STORE(41)=CountMailboxes("SXGM-602","Mailbox Store 3C")
STORE(42)=CountMailboxes("SXGM-602","Mailbox Store 3D")
STORE(43)=CountMailboxes("SXGM-602","Mailbox Store 4A")
STORE(44)=CountMailboxes("SXGM-602","Mailbox Store 4B")
STORE(45)=CountMailboxes("SXGM-602","Mailbox Store 4C")
STORE(46)=CountMailboxes("SXGM-602","Mailbox Store 4D")
STORE(47)=CountMailboxes("SXGM-603","Mailbox Store 1D")
STORE(48)=CountMailboxes("SXGM-603","Mailbox Store 3A")
STORE(49)=CountMailboxes("SXGM-603","Mailbox Store 3B")
STORE(50)=CountMailboxes("SXGM-603","Mailbox Store 3C")
STORE(51)=CountMailboxes("SXGM-603","Mailbox Store 3D")
STORE(52)=CountMailboxes("SXGM-603","Mailbox Store 4A")
STORE(53)=CountMailboxes("SXGM-603","Mailbox Store 4B")
STORE(54)=CountMailboxes("SXGM-603","Mailbox Store 4C")
STORE(55)=CountMailboxes("SXGM-603","Mailbox Store 4D")


for x=1 to 55
	numbertotest=store(x)
	if store(x)<lowestcount then 
		currentwinner=x
		lowestcount=store(x)
	end if
next

wscript.echo "Winner is array element " & currentwinner & vbcrlf 

if currentwinner=1 then HomeMDB="CN=Mailbox Store 1D (SXGM-501),CN=First Storage Group,CN=InformationStore,CN=SXGM-501,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=2 then HomeMDB="CN=Mailbox Store 3A (SXGM-501),CN=Third Storage Group,CN=InformationStore,CN=SXGM-501,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=3 then HomeMDB="CN=Mailbox Store 3B (SXGM-501),CN=Third Storage Group,CN=InformationStore,CN=SXGM-501,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=4 then HomeMDB="CN=Mailbox Store 3C (SXGM-501),CN=Third Storage Group,CN=InformationStore,CN=SXGM-501,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=5 then HomeMDB="CN=Mailbox Store 3D (SXGM-501),CN=Third Storage Group,CN=InformationStore,CN=SXGM-501,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=6 then HomeMDB="CN=Mailbox Store 4A (SXGM-501),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-501,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=7 then HomeMDB="CN=Mailbox Store 4B (SXGM-501),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-501,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=8 then HomeMDB="CN=Mailbox Store 4C (SXGM-501),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-501,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=9 then HomeMDB="CN=Mailbox Store 4D (SXGM-501),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-501,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=10 then HomeMDB="CN=Mailbox Store 1D (SXGM-502),CN=First Storage Group,CN=InformationStore,CN=SXGM-502,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=11 then HomeMDB="CN=Mailbox Store 3A (SXGM-502),CN=Third Storage Group,CN=InformationStore,CN=SXGM-502,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=12 then HomeMDB="CN=Mailbox Store 3B (SXGM-502),CN=Third Storage Group,CN=InformationStore,CN=SXGM-502,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=13 then HomeMDB="CN=Mailbox Store 3C (SXGM-502),CN=Third Storage Group,CN=InformationStore,CN=SXGM-502,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=14 then HomeMDB="CN=Mailbox Store 3D (SXGM-502),CN=Third Storage Group,CN=InformationStore,CN=SXGM-502,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=15 then HomeMDB="CN=Mailbox Store 4A (SXGM-502),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-502,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=16 then HomeMDB="CN=Mailbox Store 4B (SXGM-502),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-502,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=17 then HomeMDB="CN=Mailbox Store 4C (SXGM-502),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-502,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=18 then HomeMDB="CN=Mailbox Store 4D (SXGM-502),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-502,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=19 then HomeMDB="CN=Mailbox Store 1D (SXGM-503),CN=First Storage Group,CN=InformationStore,CN=SXGM-503,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=20 then HomeMDB="CN=Mailbox Store 3A (SXGM-503),CN=Third Storage Group,CN=InformationStore,CN=SXGM-503,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=21 then HomeMDB="CN=Mailbox Store 3B (SXGM-503),CN=Third Storage Group,CN=InformationStore,CN=SXGM-503,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=22 then HomeMDB="CN=Mailbox Store 3C (SXGM-503),CN=Third Storage Group,CN=InformationStore,CN=SXGM-503,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=23 then HomeMDB="CN=Mailbox Store 3D (SXGM-503),CN=Third Storage Group,CN=InformationStore,CN=SXGM-503,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=24 then HomeMDB="CN=Mailbox Store 4A (SXGM-503),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-503,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=25 then HomeMDB="CN=Mailbox Store 4B (SXGM-503),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-503,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=26 then HomeMDB="CN=Mailbox Store 4C (SXGM-503),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-503,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=27 then HomeMDB="CN=Mailbox Store 4D (SXGM-503),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-503,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=28 then HomeMDB="CN=Mailbox Store 2A (SXGM-501),CN=Second Storage Group,CN=InformationStore,CN=SXGM-501,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=29 then HomeMDB="CN=Mailbox Store 1D (SXGM-601),CN=First Storage Group,CN=InformationStore,CN=SXGM-601,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=30 then HomeMDB="CN=Mailbox Store 3A (SXGM-601),CN=Third Storage Group,CN=InformationStore,CN=SXGM-601,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=31 then HomeMDB="CN=Mailbox Store 3B (SXGM-601),CN=Third Storage Group,CN=InformationStore,CN=SXGM-601,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=32 then HomeMDB="CN=Mailbox Store 3C (SXGM-601),CN=Third Storage Group,CN=InformationStore,CN=SXGM-601,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=33 then HomeMDB="CN=Mailbox Store 3D (SXGM-601),CN=Third Storage Group,CN=InformationStore,CN=SXGM-601,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=34 then HomeMDB="CN=Mailbox Store 4A (SXGM-601),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-601,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=35 then HomeMDB="CN=Mailbox Store 4B (SXGM-601),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-601,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=36 then HomeMDB="CN=Mailbox Store 4C (SXGM-601),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-601,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=37 then HomeMDB="CN=Mailbox Store 4D (SXGM-601),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-601,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=38 then HomeMDB="CN=Mailbox Store 1D (SXGM-602),CN=First Storage Group,CN=InformationStore,CN=SXGM-602,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=39 then HomeMDB="CN=Mailbox Store 3A (SXGM-602),CN=Third Storage Group,CN=InformationStore,CN=SXGM-602,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=40 then HomeMDB="CN=Mailbox Store 3B (SXGM-602),CN=Third Storage Group,CN=InformationStore,CN=SXGM-602,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=41 then HomeMDB="CN=Mailbox Store 3C (SXGM-602),CN=Third Storage Group,CN=InformationStore,CN=SXGM-602,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=42 then HomeMDB="CN=Mailbox Store 3D (SXGM-602),CN=Third Storage Group,CN=InformationStore,CN=SXGM-602,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=43 then HomeMDB="CN=Mailbox Store 4A (SXGM-602),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-602,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=44 then HomeMDB="CN=Mailbox Store 4B (SXGM-602),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-602,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=45 then HomeMDB="CN=Mailbox Store 4C (SXGM-602),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-602,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=46 then HomeMDB="CN=Mailbox Store 4D (SXGM-602),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-602,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=47 then HomeMDB="CN=Mailbox Store 1D (SXGM-603),CN=First Storage Group,CN=InformationStore,CN=SXGM-603,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=48 then HomeMDB="CN=Mailbox Store 3A (SXGM-603),CN=Third Storage Group,CN=InformationStore,CN=SXGM-603,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=49 then HomeMDB="CN=Mailbox Store 3B (SXGM-603),CN=Third Storage Group,CN=InformationStore,CN=SXGM-603,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=50 then HomeMDB="CN=Mailbox Store 3C (SXGM-603),CN=Third Storage Group,CN=InformationStore,CN=SXGM-603,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=51 then HomeMDB="CN=Mailbox Store 3D (SXGM-603),CN=Third Storage Group,CN=InformationStore,CN=SXGM-603,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=52 then HomeMDB="CN=Mailbox Store 4A (SXGM-603),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-603,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=53 then HomeMDB="CN=Mailbox Store 4B (SXGM-603),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-603,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=54 then HomeMDB="CN=Mailbox Store 4C (SXGM-603),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-603,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"
if currentwinner=55 then HomeMDB="CN=Mailbox Store 4D (SXGM-603),CN=Fourth Storage Group,CN=InformationStore,CN=SXGM-603,CN=Servers,CN=CAN-TORONTO,CN=Administrative Groups,CN=GEMS,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=forest,DC=rbc,DC=com"

wscript.echo "My MDB path: " & HomeMDB
wscript.echo time
wscript.quit(0)

Function CountMailboxes(sServerName,Storename)
	CountMailboxes=65535
	Dim cComputerName
	Const cWMINameSpace = "root/MicrosoftExchangeV2"
	Const cWMIInstance = "Exchange_Mailbox"
	cComputerName = sServerName

	Dim strWinMgmts            ' Connection string for WMI
	Dim objWMIExchange   ' Exchange Namespace WMI object
	Dim listExchange_Mailboxs  ' ExchangeLogons collection
	Dim objExchange_Mailbox           ' A single ExchangeLogon WMI object

	Set rootDSE = GetObject("LDAP://RootDSE")
	DomainContainer = rootDSE.Get("defaultNamingContext")

	strWinMgmts = "winmgmts:{impersonationLevel=impersonate}!//"& _
	cComputerName&"/"&cWMINameSpace
	On Error Resume Next
	Set objWMIExchange =  GetObject(strWinMgmts)
	'wscript.echo Err.Number
	If Err.number<>0 Then 
		ErrorFlag=1
	End If
	' Verify we were able to correctly set the object.
	
  	Set listExchange_Mailboxs = objWMIExchange.InstancesOf(cWMIInstance)

  	If (listExchange_Mailboxs.count > 0) Then
	    i=0
	    For Each objExchange_Mailbox in listExchange_Mailboxs

   	    	if InStr (objExchange_Mailbox.StoreName,Storename)>0 and instr(objExchange_Mailbox.MailboxDisplayname,"SystemMailbox")=0 and instr(objExchange_Mailbox.MailboxDisplayname,"SMTP ")=0 and instr(objExchange_Mailbox.MailboxDisplayName,"SXGM")=0 and instr(objExchange_Mailbox.MailboxDisplayName,"System Attendant")=0 Then
   	    		i=i+1
			End If
     	Next
	End If
	
	if ErrorFlag=1 then
		CountMailboxes=99999
	else
		CountMailboxes=i
	end if 
	wscript.echo Date & " " & Time & " " & Storename & " (" & sServerName & "): " & i
	Logging.WriteLine(Date & " " & Time & " Store density on " & sServerName & "/" & StoreName & ": " & i)
End Function