dump all the UserProperties of the first Account

' DumpUserProps.vbs
' Must be run with cscript
set oOL = CreateObject("Outlook.Application")
set oNS = oOL.GetNamespace("MAPI")
set oBCMFolder = oNS.Folders("Business Contact Manager")
set oBCMAccountsFolder = oBCMFolder.Folders("Accounts")
set oItems = oBCMAccountsFolder.Items
set oAccount = oItems(1)
wscript.stdout.writeline "UserProperties"
for each userProp in oAccount.UserProperties
  wscript.stdout.writeline userProp.Name & "=" _
    & userProp.Value
next