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
