feiertage.vbs

[a_hempelt 10]

Exch 2007 auf W2k3 64-bit

 

Ich nutze, bzw. will das Script feiertage.vbs nutzen und will damit firmen-interne Termine der kommenden Monate in alle Postfächer (>200) der Mitarbeiter eintragen bzw. importieren.

Der Zugriff für das Script auf die Postfächer ist gegeben, nur bei der Timezone komm ich nicht weiter.

 

Auf msxfag.de wird angegeben, dass die Zeitzone für Berlin entsprechend anzupassen ist

Const CdoTmzGMT1 = 3
objSession.SetOption "TimeZone", CdoTmzGMT1

 

Auf msdn.microsoft.com ist der eintrag für CdoTmzBerlin jedoch "4". Funktioniert aber auch nicht...

 

 

Leider komme ich an folgender Stelle im Script nicht weiter:

 

function OpenMailbox (strHomeServer,strMail,arrEntries)

   dim oMapiMessages, oMapiFolder, oMapiMessage, oMapiSession
   dim oAppointmentItems, oAppointment, intTimezone

   ...
   Set oMapiSession = CreateObject("MAPI.Session")
   ...

   newlogentry  "  Getting Mailbox Timezone", 3
   intTimezone = oMapiSession.GetOption("TimeZone") 
   if [b]Err.Number <> 0[/b] Then
       objDebug.writeln "  Error getting TimeZone",2
       intTimezone = 0
       OpenMailbox = "ERROR GetTimeZone (Err.Number: "& Err.Number &")"
       totalerr = totalerr + 1
       Exit function
   end if

...
end function

 

Err.Number gibt "-2147221219" zurück und somit bricht das Script hier ab.

 

Also ziehe ich daraus den Schluß, dass CreateObject("MAPI.Session").GetOption("TimeZone") keinen Wert zurück gibt bzw. einen Fehler auslöst. Aber warum...?

 

Das Logfile gibt folgendes zurück (als Bsp. die erste Mailbox, alle weiteren sind vom Fehler identisch):

 

30.10.2012 12:37:55,Out0,feiertage: gestartet

30.10.2012 12:37:56,Dbg6, newlogentry: 3 - Loading Appointments from File

30.10.2012 12:37:56,Dbg5, reading Header

30.10.2012 12:37:56,Dbg5, Importing Entry:1

30.10.2012 12:37:56,Dbg6, newlogentry: 3 - Loading Appointments 1

30.10.2012 12:37:56,Dbg6, newlogentry: 4 - Cal: Tag der Arbeit at 2013/05/01

30.10.2012 12:37:56,Dbg6, newlogentry: 3 - Loading List of Mailboxes from AD

30.10.2012 12:37:56,Dbg5,Looking for GCstrGCPath=GC://DOMAINNAME.LOCAL

30.10.2012 12:37:56,Out0,Total Mailboxes to check:214

30.10.2012 12:37:56,Dbg6, newlogentry: 3 - Loading List of Mailboxes from AD DONE: Total:214

30.10.2012 12:37:56,Out0, Processing DN:CN=mailbox-001,OU=Ressourcen,OU=MY,DC=DOMAINNAME,DC=local

30.10.2012 12:37:56,Dbg5, Start Processing User

30.10.2012 12:37:56,Dbg5, GetHomeServer for : CN=...,CN=...,CN=InformationStore,CN=...,CN=Servers,CN=Exchange Administrative Group (FYDIBOHF23SPDLT),CN=Administrative Groups,CN=Exchange,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=DOMAINNAME,DC=local

30.10.2012 12:37:56,Dbg5, GetHomeServer is : Server-Exch

30.10.2012 12:37:56,Dbg6, strHomeServer:Server-Exch

30.10.2012 12:37:56,Dbg6, strMailbox :mailbox-001@domain.local

30.10.2012 12:37:56,Out0, Mailbox : mailbox-001@domain.local

30.10.2012 12:37:56,Dbg6, newlogentry: 3 - Create MAPI Session

30.10.2012 12:37:56,Err1, Error creating MAPI Session Skip Mailbox

 

 

Kann mir jemand veraten wie weiter?

Edited October 30, 2012 by a_hempelt
"genauere" Fomrulierung