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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] считывание и подсчет учетных записей Outlook Express (http://forum.oszone.net/showthread.php?t=143558)

magwolf

26-06-2009 14:22 1152307

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

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

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

amel27

27-06-2009 16:20 1153126

на 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

27-06-2009 18:52 1153232

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

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

Время: 05:31.