' Liste les numéros USER_ID des identités d'Outlook Express.
' www.faqOE.Com
' P.Gastaldi (paskal)
' MVP Microsost
option explicit
Const HKCU = &H80000001
Const READYSTATE_COMPLETE = 4
Dim strResult
Dim SubKeys,subkey,oReg,Return,strValue,strName
Dim oIE
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
Set oIE = WScript.CreateObject("InternetExplorer.Application","IE_")
With oIE
.left = 40:.top = 80:.width = 600:.height = 300:.menubar = False:.toolbar = False:.statusbar = False
End With
oIE.navigate("about:blank")
Do While Not oIE.ReadyState = READYSTATE_COMPLETE : Loop
oReg.EnumKey HKCU, "Identities", SubKeys
For Each subkey In SubKeys
oReg.GetStringValue HKCU,"Identities\" & subkey ,"User ID",strValue
If (strValue <> "") and (Err.Number = 0) Then
oReg.GetStringValue HKCU,"Identities\" & subkey ,"Username",strName
strName= "" & strName & "
"
end if
strResult = strResult & strName & strValue & "
"
Next
oIE.Document.write("Numéro USER_ID de chaque identité OE")
oIE.Document.write("")
oIE.Document.write("Numéro USER_ID de chaque identité OE
")
oIE.Document.write(strResult)
oIE.Document.write("FAQ Outlook Express")
oIE.Document.write("")
oIE.visible = 2
oIE.Document.close
Set oIE = Nothing
Set oReg = Nothing