none
Logiciel pour inventorier les comptes Outlook installés RRS feed

  • Question

  • Bonjour,

    existe-t-il un logiciel permettant d'inventorier les comptes mails installés dans outlook 2003? Cela me permettrai de tenir à jour un document reprenant les comptes installés sur chaque poste du domaine.

    Merci

    jeudi 8 mars 2012 14:20

Réponses

  • Bonjour,

    on peut réaliser cela très facilement par script de type VBS!

    En tout cas pour avoir la liste des profils utilisés. Ensuite, il y aurait un peu de recherche pour examiner les sous-clés et déterminer s'il s'agit de comptes Exchange, IMAP, POP, etc...

    Ce script serait placé dans le script d'ouverture de session et écrirait sur une zone partagée (ou dans une base).

    Voici un début de script qui doit te donner la liste des profils. J'ai laissé en commentaire une boucle d'accès à certains paramètres d'un profil Exchange.

    ' ***** Thierry DEMAN *****
    ' ***** v1.1 liste des profiles Outlook ****
    'option explicit
    'on error resume next
    ' Declare the variables
    dim wshNet, wshShell, userName,UserObj, DomainName,ProfileOutlook,ObjFs,testcle,ServeurExchange,changeprofile
    dim strcomputer,Arrvalues,CleReg,ObjRegistry,OldValue
    ' Create a WshNet object
    set wshNet = createObject("wscript.Network")
    ' Create a wshShell object
    set wshShell = createObject("wscript.shell")
    ' Create an Object File System object
    SET objFS=CreateObject ("Scripting.FileSystemObject")
    Const HKEY_CURRENT_USER = &H80000001 
    Const REG_SZ = 1
    Const REG_EXPAND_SZ = 2
    Const REG_BINARY = 3
    Const REG_DWORD = 4
    Const REG_MULTI_SZ = 7
    strComputer = "."
    Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") 
    UserName=WshNet.username
    ' Config Outlook
    CleReg="Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
    objRegistry.EnumKey HKEY_CURRENT_USER, CleReg, arrSubkeys 
    If IsArray(arrSubkeys) Then 
      For Each strSubkey In arrSubkeys 
        Wscript.echo "Profile Name: "+StrSubkey
    '    clereg2=CleReg+"\"+StrSubKey+"\13dbb0c8aa05101a9bb000aa002fc45a"
    '    objRegistry.enumvalues HKEY_CURRENT_USER, CleReg2, arr2Subkeys, arrValueTypes
    '     if IsArray(arr2Subkeys) Then
    '       For i = 0 to UBound(arr2Subkeys)
    '         StrName= arr2Subkeys(i)
    '         select case StrName
    '           case "001f6622":
    '           case "001f6625": 
    '        end select
    '       next
    '     End if
      Next 
    else
      wscript.echo "No outlook profiles"
    End IF
    A+

    Thierry DEMAN. Exchange MVP. https://www.mcpvirtualbusinesscard.com/VBCServer/MVPtdeman/profile (69 MCPs) http://base.faqexchange.info

    mercredi 2 mai 2012 12:53
    Modérateur

Toutes les réponses

  • Pas d'idée?
    mardi 13 mars 2012 11:19
  • Salut Tchao57,

    j'ai fait quelque recherche pour vous, mais malheureusement je ne vois pas grand chose pour inventorier les compte mails installés dans Outlook..

    Que cherchez vous a faire exactement? Pourriez-vous être plus précis, comme ça on peux peut-être vous proposer des workarround ..

    Gokan


    My blog SharePoint Pirate: http://www.gokanozcifci.be
    Microsoft Certified Technology Specialist: SharePoint 2010, Configuring
    Microsoft Certified Personal
    SharePoint Server 2010 Contributor on BTgonulluleri.com

    mardi 13 mars 2012 12:26
  • Bonjour Gokan et merci pour la réponse. En fait je ne peux pas être vraiment plus précis, je pense que vous avez bien saisi l'objet de ma demande. Je vais quand même tenter. En fait je souhaiterai savoir quels sont les comptes mails installés dans Outlook sur les postes clients d'un domaine. Il y a environ 15 postes et sur chacun d'entre eux au moins 10 comptes POP installés + un compte exchange. Ce que je désire c'est connaitre au jour le jour quels sont ces comptes installés sur chaque ordinateur et dans l'idéal connaitre les paramètres des serveurs POP et SMTP. Avec un logiciel d'audit des comptes par exemple, que je lancerai à mon gré lors d'audit. Cela me permettrait de savoir toujours quels comptes sont installés et chez qui ils le sont.

    Merci Beaucoup

    mardi 13 mars 2012 18:07
  • Bonjour,

    Toujours rien? Moi je ne trouve absolument rien.

    mardi 20 mars 2012 10:40
  • Désolé,

    J'ai beau a chercher, je trouve rien.

    Peut-être quelq'un d'autre, à une idée?

    Merci, Gokan


    My blog SharePoint Pirate: http://www.gokanozcifci.be
    Microsoft Certified Technology Specialist: SharePoint 2010, Configuring
    Microsoft Certified Personal
    SharePoint Server 2010 Contributor on BTgonulluleri.com

    mardi 20 mars 2012 21:49
  • Bonjour Gokan,

    merci de ton aide. Je n'arrive rien trouver non plus. J’espère que si quelqu'un passe par là il ou elle pourra nous aider.

    mercredi 21 mars 2012 12:06
  • Bonjour,

    on peut réaliser cela très facilement par script de type VBS!

    En tout cas pour avoir la liste des profils utilisés. Ensuite, il y aurait un peu de recherche pour examiner les sous-clés et déterminer s'il s'agit de comptes Exchange, IMAP, POP, etc...

    Ce script serait placé dans le script d'ouverture de session et écrirait sur une zone partagée (ou dans une base).

    Voici un début de script qui doit te donner la liste des profils. J'ai laissé en commentaire une boucle d'accès à certains paramètres d'un profil Exchange.

    ' ***** Thierry DEMAN *****
    ' ***** v1.1 liste des profiles Outlook ****
    'option explicit
    'on error resume next
    ' Declare the variables
    dim wshNet, wshShell, userName,UserObj, DomainName,ProfileOutlook,ObjFs,testcle,ServeurExchange,changeprofile
    dim strcomputer,Arrvalues,CleReg,ObjRegistry,OldValue
    ' Create a WshNet object
    set wshNet = createObject("wscript.Network")
    ' Create a wshShell object
    set wshShell = createObject("wscript.shell")
    ' Create an Object File System object
    SET objFS=CreateObject ("Scripting.FileSystemObject")
    Const HKEY_CURRENT_USER = &H80000001 
    Const REG_SZ = 1
    Const REG_EXPAND_SZ = 2
    Const REG_BINARY = 3
    Const REG_DWORD = 4
    Const REG_MULTI_SZ = 7
    strComputer = "."
    Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") 
    UserName=WshNet.username
    ' Config Outlook
    CleReg="Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
    objRegistry.EnumKey HKEY_CURRENT_USER, CleReg, arrSubkeys 
    If IsArray(arrSubkeys) Then 
      For Each strSubkey In arrSubkeys 
        Wscript.echo "Profile Name: "+StrSubkey
    '    clereg2=CleReg+"\"+StrSubKey+"\13dbb0c8aa05101a9bb000aa002fc45a"
    '    objRegistry.enumvalues HKEY_CURRENT_USER, CleReg2, arr2Subkeys, arrValueTypes
    '     if IsArray(arr2Subkeys) Then
    '       For i = 0 to UBound(arr2Subkeys)
    '         StrName= arr2Subkeys(i)
    '         select case StrName
    '           case "001f6622":
    '           case "001f6625": 
    '        end select
    '       next
    '     End if
      Next 
    else
      wscript.echo "No outlook profiles"
    End IF
    A+

    Thierry DEMAN. Exchange MVP. https://www.mcpvirtualbusinesscard.com/VBCServer/MVPtdeman/profile (69 MCPs) http://base.faqexchange.info

    mercredi 2 mai 2012 12:53
    Modérateur
  • Bonjour Thierry et merci beaucoup pour la réponse.

    Ce thread m'était complètement sorti de la tête.

    Où le script est censé enregistrer ce qu'il a collecté comme info?

    De plus, est-il possible de savoir si un serveur pop et smtp sont renseignés dans le profil?

    Merci encore.

    lundi 25 juin 2012 15:25