Lundi 20 Mai 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 : 3
Membres en ligne : 0

 pirobert 5 jours
 jcgdisle 25 semaines
 EMERGENCY 46 semaines
 beaulieu 58 semaines
 callaghi 61 semaines
 Charlie76 67 semaines
 joscopp 78 semaines
 JièL 78 semaines
 julbast 78 semaines
 zorro71 103 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:159
En ligne :3
Max. en ligne:312
Max. / jour:66 529
Total hier:3 732
Total ce mois:104 534
Total visites:21 769 226
Moyenne/jour:5 669

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 19430 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
R09060 La case « Afficher ... comme carnet d'adresses... » est grisée, R99095 Retrait d'argent ?, R15270 [VBA] Exécuter un script sur une règle, R09120 Partager le carnet d'adresse d'Outlook 2002/2003 avec Outlook Express 5/6, R06070 Classer automatiquement les messages reçus ou envoyés, R01130 Choisir l'éditeur de message, R15200 [VBA] Enregistrer en .msg, R99060 Solution RA-DI-CA-LE !, R05020 Modifier la police et la taille des caractères imprimés dans l’en-tête, R99070 Réglages masqués, R99160 Le mot de passe, R08160 L'entête du mail ne s'imprime pas (XP SP2 et IE7), R00120 Gérer TOUS vos comptes Mails avec Mail2Web, R20150 Configurer un compte Yahoo pour Outlook 2007, R15370 [VBA] Envoyer ou renvoyer un ou plusieurs mails

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 [/\]