Mail in Exchnage 2003 Queue oder Link anzeigen

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

Hi NG

da wir teilweise große Probleme mit einem Mail Relay haben, versuche ich
gerade die Unzustellbarkeits Queue / Link unseres Exchnage Server zu
monitoren.

Ich komme nur einfach nicht an die Mails in der Queue dran.
Und die Technet Lösung über
"Set messgs = objWMIService2.InstancesOf("Exchange_QueuedMessage")" geht
leider auch nicht.

ich hab mal was zusammen geschrieben:


#################################################################################
Const computer = "saratoga"
Const admin = "administrator"
Const passwd = "1234567"
Const VirtualServer = "1"

'############remote verbinden
Set objWMILocator2 = CreateObject ("WBEMScripting.SWbemLocator")
Set objWMIService2 = objWMILocator2.ConnectServer (computer,
"root/MicrosoftExchangeV2", admin, passwd)

If Err.number <> 0 Then
wsh.Echo ("Fehler beim Verbinden zm WMI Namespace")

End If




Set PendingQueue = objWMIService2.ExecQuery("select * from
Exchange_SMTPQueue where messagecount>0")

For Each m In PendingQueue
wsh.Echo "Anzahl: " & m.messageCount & " "_
& " Im Link: " & m.Linkname & m.LinkID & m.VirtualMachine
wsh.Echo "QueueID: " & m.queueID & VbCrLf & "QueueName: " &
m.queueName


sqlString = """select * from Exchange_QueuedSMTPMessage where
QueueID='"_
& m.queueID & "' And QueueName='"_
& m.queueName & "'"_
& " And VirtualMachine='" & m.VirtualMachine & "'" & " And
VirtualServerName='1'"_
& " And LinkID='" & m.LinkID & "' " & "AND LinkName='" & m.LinkName
& "'" & " And ProtocolName='smtp'"_
& ""

Set a = objWMIService2.ExecQuery(sqlString)
'##### der SQL String wird zusammengebaut und enthält '#####die
richtigen Daten


For Each t In a
wsh.Echo "Nu müsste die MSG ID kommen/ kommt aber nicht"
wsh.Echo t.messageID
Next


Next

##################################################################
Hat evtl. jemand 'ne Idee.

Danke für's Lesen


Andreas
.

Relevant Pages

  • Re: Mails über Skript versenden
    ... ALlerdings muss CDO als CDO.DLL registriert sein. ... Const receiver = "Hugo@hotmail.com" ... Const body = "Der Text Ihrer Nachricht" ... Set oCDO = Wscript.CreateObject ...
    (microsoft.public.de.german.scripting.wsh)
  • Re: Singly Linked List in C
    ... While a linked list is certainly one way to implement a queue, a circular buffer could be a better approach, if you can accept a fixed upper limit to the number of elements in the queue. ... I would not consider it objectionable, but I would want to make sure that you understand that making 'sp' const has nothing to do with protecting the argument of the function from modification. ... The first const would protect the thing that the pointer points at from change. ...
    (comp.lang.c)
  • Re: UTF-8 kodierte Daten empfangen
    ... Const adTypeText = 2 ... Const adTypeBinary = 1 ... SET Bs = CreateObject ...
    (microsoft.public.de.inetserver.iis.asp)
  • Re: Thread safe queue in C
    ... within linux with C and i need a thread safe queue.How can i obtain a ... Anyway, creating a queue with POSIX Threads is rather trivial, I don't see why you can't quickly create one: ... typedef struct queue_s queue; ... queue* const _this, ...
    (comp.programming.threads)
  • Text auslesen und ab einer bestimmten Zeichenfolge abschneiden
    ... Set WSHShell = WScript.CreateObject ... Const inF = "Pfad zur Datei" ... Dim Text ... Dim fso, WSHShell ...
    (microsoft.public.de.german.scripting.wsh)