Auslesen der Public Folder Exchange2003



Hallo,

ich habe da ein Problem, welches beim Auslesen der totalmessagesize und
NormalMessageSize auftritt.
Wenn der Wert eine bestimmte Größe überschreitet (ca. 2GB), dann bekomme ich
einen negativen Wert zurück. Die Größen werden ja in Byte angebene.
Folgenden Code nutze ich:

strQuery="Select * from Exchange_PublicFolder" 'Exchange_Mailbox"

Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService =
SWBemlocator.ConnectServer(strComputer,"\root\MicrosoftExchangeV2",UserName,Password)
Set colItems = objWMIService.ExecQuery(strQuery,,48)

For Each objItem in colItems
objFile.writeline objItem.name & Chr(9) & objItem.totalmessagesize / 1024 &
Chr(9) & objItem.NormalMessageSize / 1024 & Chr(9) & objItem.messagecount &
Chr(9) & objItem.Path
Next

Wer kann mir da eine Lösung nennen bzw einen andere Möglichkeit.

Danke
Manfred
.



Relevant Pages

  • Re: Was für ein RAM habe ich?
    ... > Speichermodule anzeigt die eingebaut sind (Hersteller, Modell, Typ, ... Set objWMI = GetObject("winmgmts:\\" & strComputer) ... Set colItems = objWMI.ExecQuery ... For Each objItem in colItems ...
    (microsoft.public.de.german.windowsxp.sonstiges)
  • Größe einer Festplatte ermitteln
    ... Set objWMIService = GetObject("winmgmts:\\" & strComputer ... Set colItems = objWMIService.ExecQuery("Select * from ... For Each objItem in colItems ... >Freundlichen Gruß ...
    (microsoft.public.de.german.scripting.wsh)
  • Falsche Zeit bei LastLogon
    ... Generell funktioniert das folgende Skript auch, ... Benutzer wieder abgemeldet und um 14.00h wieder angemeldet. ... Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate, ... Set colItems = objWMIService.InstancesOf ...
    (microsoft.public.de.german.scripting.wsh)
  • Re: Gesamten Arbeitsspeicher in Batch abfragen
    ... Set objWMI = GetObject("winmgmts:\\" & strComputer) ... Set colItems = objWMI.ExecQuery ... For Each objItem in colItems ...
    (microsoft.public.de.german.windowsxp.sonstiges)
  • VBScr stets im Hintergrund und nur bei best. Event aktiv werden
    ... zwar genau den Event der kommt, ... Verb. ... Set objWMIService = GetObject("winmgmts:" ...
    (microsoft.public.de.german.scripting.wsh)