[решено] считывание и подсчет учетных записей Outlook Express

[magwolf]

Ребета подскажите как на VBS написать скрипт для Outlook Express, каторый считает из реестра ветку реестра(HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\), а именно значения учетных записей (00000034\,00000017\, и т.*д.) и подсчитать их количество.

Заранее благодарить

[amel27]

на VBS с привлечением регулярных выражений:
Const HKEY_CURRENT_USER = &H80000001

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
Set regEx = CreateObject("VBScript.RegExp")

regEx.Pattern = "^\d{8}$"
sPath = "Software\Microsoft\Internet Account Manager\Accounts"
iCount = 0

objReg.EnumKey HKEY_CURRENT_USER, sPath, arrSubKeys
If IsArray(arrSubKeys) Then
For Each subkey In arrSubKeys
If regEx.Test(subkey) Then iCount=iCount+1
Next
End If

WScript.Echo iCount

[magwolf]

Большое спасибо

Вы можете подсказать хорошую литературу по vbs или ресурс где можно изучит язык.