Вопрос : Поле pager экспорта от активно директории

Smogло кто-то помочь мне в писании сценария VB, для того чтобы ехпортировать поле pager от активно директории и ввести его в ключа регистратуры? class=

Ответ : Поле pager экспорта от активно директории

Внизу Кодий должно работать.  Измените strRegKey и strValueName для того чтобы одеть имя положения и значения что вы хотите положить номер Pager.

Отношения,

Rob.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:

Установите objADSysInfo = CreateObject («ADSystemInfo») strUser = objADSysInfo.UserName Установите objUser = GetObject («LDAP: /» & strUser) strPager = objUser.Pager strRegKey = «HKCU \ средство программирования \ MyKey \» strValueName = «MyPager» Если право, то (strRegKey, 1) <> «\» после этого strRegKey = strRegKey & «\» Установите objShell = CreateObject («WScript.Shell») На ошибке возобновьте затем strRegKey objShell.RegWrite & strValueName, strPager, «REG_SZ» Если Err.Number = 0 после этого MsgBox «ваш Pager хранилось в регистратуре.» Еще MsgBox «суменное для того чтобы хранить ваш Pager в регистратуру. Ошибка» & Err.Number & «: » & Err.Description Закончитесь если