[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