Samedi 19 Janvier 2019  
Navigation
FAQ Outlook
» Foire Aux Questions «
Recherche
Téléchargements
Forums Outlook
Plan du site
Liens
Login

Les inscriptions sont fermées

Pseudo

Mot de passe

Se souvenir de moi



Mot de passe oublié ? Mot de passe oublié ?
Connexions
Bienvenue à [FAMACLUB]
le 1,414ème membre
Visiteurs en ligne : 4
Membres en ligne : 0

 jcgdisle 8 semaines
 EMERGENCY 29 semaines
 beaulieu 40 semaines
 callaghi 44 semaines
 Charlie76 50 semaines
 joscopp 61 semaines
 JièL 61 semaines
 julbast 61 semaines
 pirobert 62 semaines
 zorro71 85 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:3 621
En ligne :4
Max. en ligne:312
Max. / jour:66 529
Total hier:4 741
Total ce mois:84 081
Total visites:20 998 706
Moyenne/jour:5 646

Dernières 24h

























Publicité ; elle permet de financer le site
Navigation parmi les catégories/articles
« Catégorie     Q17000 Formulaires (13)  Catégorie »
[<<]  « Article  Article »  [>>]
R17020 Lecture des propriétés d'un compte exchange
Suivant le formulaire que l'on désire réaliser, il peut être utile d'aller lire les informations se trouvant sur le serveur exchange, p.ex:
- les propriétés d'un compte
- le calendrier d'un compte

Avec vbscript cela est possible en utilisant
- LDAP pour la lecture des propriétés
- webdav pour la lecture du calendrier.

Exchange regroupe 4 types d'information:
- Service Anuaire (directory service)
- Banque d'information (information store)
- Agent de transfert des message(message transfer agent)
- Surveillance du système(system attendant)


Lecture des champs des propriétés d'un compte Exchange

Les propriétés d'un compte se trouve dans le service anuaire. On peut aller lire ces informations grâce à LDAP (il faut bien entendu que celui-ci soit activé dans exchange).

Voici le code miraculeux :
Dim MyUser
Dim HomeServer
 
Set MyUser = GetObject("LDAP://CN=Administrator,CN=Users,DC=sunnydale,DC=muni")
HomeServer = myUser.Get("msExchHomeServerName")


La ligne "LDAP://CN=Administrator,CN=Users,DC=sunnydale,DC=muni" permet d'aller lire le compte désiré. modifier la ligne pour correspondre à l'arborescence de votre serveur exchange.

La ligne "HomeServer = myUser.Get("msExchHomeServerName")" permet d'extraire une information du compte. Si, par exemple, on veut extraire le champ "info" d'un compte, on remplace "msExchHomeServerName" par "info".

Remarque :
Pour avoir cet accès, il faut préalablement que le serveur Exchange permette l'accès lecture (et écriture) sur le champ du compte.


Lecture du calendrier d'un compte exchange

Pour pouvoir lire ces informations avec webdav, il faut avoir :
- le lien http du compte
- le domaine
- le nom d'utilisateur du compte
- le mot de passe

Le script est définit dans la msdn2 : http://msdn2.microsoft.com/en-us/library/aa123570.aspx

voici le fameux code à enregistrer avec l'extension *.vbs
Option Explicit

' Variables.
Dim strCalendarURI ' As String
Dim reqDoc ' As Msxml2.DOMDocument
Dim resDoc ' As Msxml2.DOMDocument
Dim pi ' As IXMLDOMProcessingInstruction
Dim strPassword ' As String
Dim strUserName ' As String
Dim searchrequestNode ' As IXMLDOMNode
Dim sqlNode ' As IXMLDOMNode
Dim strQuery ' As String
Dim queryNode ' As IXMLDOMText
Dim req ' As MSXML2.XMLHTTP
Dim objSubjectNodeList ' As IXMLDOMNodeList
Dim objLocationNodeList ' As IXMLDOMNodeList
Dim objStartTimeNodeList ' As IXMLDOMNodeList
Dim objEndTimeNodeList ' As IXMLDOMNodeList
Dim objBusyStatusNodeList ' As IXMLDOMNodeList
Dim objInstanceTypeNodeList ' As IXMLDOMNodeList
Dim objNode ' As IXMLDOMNode
Dim i ' As Integer
Dim strInstanceType ' As String

' Initialize variables.
strUserName = "Domain\UserName"
strPassword = "!Password"
strCalendarURI = "http://server/exchange/username/calendar/"
set reqDoc = createobject("microsoft.xmldom")
set resDoc = createobject("microsoft.xmldom")
set pi = reqDoc.createProcessingInstruction("xml","version=""1.0""")

' Append processing instruction node to the DOM document.
reqDoc.appendChild pi

' Create the DAV:searchrequest node and set it
' to the root element of the document.
set searchrequestNode = reqDoc.createNode(1,"searchrequest","DAV:")
set reqDoc.documentElement = searchrequestNode

' Create the DAV:sql node and append it to the root element.
set sqlNode = reqDoc.createNode(1,"sql","DAV:")
searchrequestNode.appendChild sqlNode

' Build the SQL query.
strQuery = "SELECT ""urn:schemas:calendar:location"", ""urn:schemas:httpmail:subject"", "
strQuery = strQuery & " ""urn:schemas:calendar:dtstart"", ""urn:schemas:calendar:dtend"", "
strQuery = strQuery & " ""urn:schemas:calendar:busystatus"", ""urn:schemas:calendar:instancetype"" "
strQuery = strQuery & " FROM Scope('SHALLOW TRAVERSAL OF """ & strCalendarURI & """') "
strQuery = strQuery & "WHERE NOT ""urn:schemas:calendar:instancetype"" = 1 "
strQuery = strQuery & "AND ""DAV:contentclass"" = 'urn:content-classes:appointment' "
strQuery = strQuery & "AND ""urn:schemas:calendar:dtstart"" > '2003/06/01 00:00:00' "
strQuery = strQuery & "ORDER BY ""urn:schemas:calendar:dtstart"" ASC"

' Create the SQL query textnode and append it to document.
set queryNode = reqDoc.createTextNode(strQuery)
sqlNode.appendChild queryNode

' Create the XMLHTTP object.
set req = createobject("msxml2.xmlhttp")

' Specify the SEARCH method, the URL, that the request will be sent synchronously,
' the user name, and the password.
req.open "SEARCH", strCalendarURI, false, strUserName, strPassword

' Set the Content-Type header to "text/xml".
req.setrequestheader "Content-Type", "text/xml"

' Send the SEARCH request.
req.send reqDoc

' An error occurred on the server.
If req.status >= 500 Then

' Display request status and status text.
wscript.echo "Status: " & req.status
wscript.echo "Status text: An error occurred on the server."

' Success. Display the item display names.
ElseIf req.status = 207 Then

' Display request status and status text.
wscript.echo "Status: " & req.status
wscript.echo "Status text: " & req.statustext

' Get the XML response.
set resDoc = req.responseXML

' Build a list of the urn:schemas:httpmail:subject XML nodes,
' corresponding to the calendar item subjects returned in the search request.
' The urn:schemas:httpmail: namespace is typically
' assigned the e: prefix in the XML response body.
Set objSubjectNodeList = resDoc.getElementsByTagName("e:subject")

' Build a list of the urn:schemas:calendar:location XML nodes,
' corresponding to the calendar item locations returned in the search request.
' The urn:schemas:calendar: namespace is typically
' assigned the d: prefix in the XML response body.
Set objLocationNodeList = resDoc.getElementsByTagName("d:location")

' Build a list of the urn:schemas:calendar:dtstart XML nodes,
' corresponding to the calendar item start times returned in the
' search request.
Set objStartTimeNodeList = resDoc.getElementsByTagName("d:dtstart")

' Build a list of the urn:schemas:calendar:dtend XML nodes,
' corresponding to the calendar item end times returned in the
' search request.
Set objEndTimeNodeList = resDoc.getElementsByTagName("d:dtend")

' Build a list of the urn:schemas:calendar:busystatus XML nodes,
' corresponding to the calendar item busy statuses returned in the
' search request.
Set objBusyStatusNodeList = resDoc.getElementsByTagName("d:busystatus")

' Build a list of the urn:schemas:calendar:instancetype XML nodes,
' corresponding to the calendar item instance types returned in the
' search request.
Set objInstancetypeNodeList = resDoc.getElementsByTagName("d:instancetype")

If objSubjectNodeList.length > 0 Then
wscript.echo "Calendar items..."

' Loop through returned calendar items.
For i = 0 To (objSubjectNodeList.length -1)

' Display subject.
Set objNode = objSubjectNodeList.nextNode
wscript.echo " Subject: " & objNode.Text

' Display location.
Set objNode = objLocationNodeList.nextNode
wscript.echo " Location: " & objNode.Text

' Display start time.
Set objNode = objStartTimeNodeList.nextNode
wscript.echo " Start time: " & objNode.Text

' Display end time.
Set objNode = objEndTimeNodeList.nextNode
wscript.echo " End time: " & objNode.Text

' Display busy status.
Set objNode = objBusyStatusNodeList.nextNode
wscript.echo " Busy status: " & objNode.Text

' Display instance type.
Set objNode = objInstanceTypeNodeList.nextNode
strInstanceType = objNode.Text

If strInstanceType = "0" Then
wscript.echo " Instance type: 0-Single appointment"

ElseIf strInstanceType = "1" Then
wscript.echo " Instance type: 1-Master recurring appointment"

ElseIf strInstanceType = "2" Then
wscript.echo " Instance type: 2-Single instance, recurring appointment"

ElseIf strInstanceType = "3" Then
wscript.echo " Instance type: 3-Exception to a recurring appointment"

Else
wscript.echo " Instance type: Unknown"

End If

wscript.echo ""
Next
Else
wscript.echo "No calendar items found..."
End If

Else
' Display the status, status text, and response text.
wscript.echo "Status: " & req.status
wscript.echo "Status text: " & req.statustext
wscript.echo "Response text: " & req.responsetext

End If

' Clean up.
Set req = nothing



Publié par angel le mardi 17 avril 2007 08:15 0 Commentaires 19188 Lecture(s) Imprimer
Commentaires
les commentaires sont fermés.
Copyright et partage
Ce site est sous licence Creative Commons.
Vous pouvez utiliser toutes les informations présentent ici, mais il vous est interdit de les reproduire sans citer la source.

Creative Commons License
OUI au partage
NON au « copillage »

Ajouter aux favoris / partager : 
URL :
BBcode :
HTML :
Cliquez ci dessus sur le lien que vous voulez copier et [Ctrl] + [C] ou cliquez sur le bouton [ C ]
Articles similaires
Articles Catégories
R15045 [VBA] Ouvrir l'arborescence des pst contenant une boîte de réception Q15000 Macros - VBA
R20031 Configurer un compte Hotmail (Windows Live Mail) en POP pour Outlook 2002/2003 Q20000 Tutoriels (en images)
R06005 Emplacements des différents fichiers d'Outlook Q06000 Les fichiers d'Outlook
R20150 Configurer un compte Yahoo pour Outlook 2007 Q20000 Tutoriels (en images)
R20050 Configurer un compte Yahoo pour Outlook 2002/2003 Q20000 Tutoriels (en images)
Nuage de tags
R11030 Importer tout ou partie d'un fichier .PST, R03110 Déplacer les messages lors de l'envoi, R20040 Configurer un compte GMAIL pour Outlook 2002/2003, R01190 Personnaliser la page d’accueil « Outlook Aujourd’hui », R17020 Lecture des propriétés d'un compte exchange, R07090 Supprimer / Modifier un expéditeur indésirable de la liste, R13050 Affecter une tâche à quelqu'un, R12090 Ajouter les jours fériés Français jusqu'en 2012 pour Outlook 2002/2003, R09210 Créer une liste de distribution, R10005 Copier le PST, R06010 Changer l'emplacement du .PST d'Outlook, R00020 Mettre Outlook 2002 (et autres) dans le systray, R09200 Trier les destinataires dans le carnet d'adresses (version 2000), R04020 Insérer un élément d'Outlook dans un message, R03100 Pièces jointes reçues en winmail.dat ou ATT00001.dat ou invisibles

aucun Crack, CrackZ, no-CD, DownloadZ, TelechargementZ, Serial, Numéro de série, N0 de série, Serialz ni Keygen pour Outlook sur ce site.

Blague aléatoire
Publicité
Météo Marseille
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]