Nano Hash - криптовалюты, майнинг, программирование

Прочитать значение реестра Windows в массив

Мне нужно прочитать значение реестра Windows в массив в VBA. Значение имеет тип REG_MULTI_SZ.

Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
             strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Control\Lsa\Authentication Packages"
strValueName = "Sources"
Return = objReg.GetMultiStringValue(HKEY_LOCAL_MACHINE, strKeyPath, _
         strValueName, arrValues)
If (Return = 0) And (Err.Number = 0) Then   
    'Treat the multistring value as a collection of strings 
    'separated by spaces and output
    For Each strValue In arrValues
        WScript.Echo  strValue
    Next
Else
    WScript.Echo "GetMultiStringValue failed. Error = " & Err.Number
End If

введите здесь описание изображения

Выдает ошибку с номером 0 и без описания. Любая подсказка?

windows-7 vbscript
31.03.2016

  • Дайте определение не радости. Вы получаете ошибку? Нежелательный вывод? Выхода нет вообще? Какова фактическая цена arrValues? (WScript.Echo TypeName(arrValues)) 31.03.2016
  • @AnsgarWiechers Привет! Пожалуйста, взгляните на обновленный вопрос. Благодарю вас! 31.03.2016
  • Вы зависите от 2 условий. Если Err.Number равно 0, но вы все еще попадаете в ветку Else, это означает, что Return не равно 0, поэтому проверьте это значение. 31.03.2016

Ответы:


1

Согласно вашему снимку экрана, ваш ключ - «Пакеты аутентификации», а не «Источники».

Измените это:

strKeyPath = "SYSTEM\CurrentControlSet\Control\Lsa\Authentication Packages"
strValueName = "Sources"

в это:

strKeyPath = "SYSTEM\CurrentControlSet\Control\Lsa"
strValueName = "Authentication Packages"
31.03.2016

2

Это была простая ошибка. Рабочий код здесь.

const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"& strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Control\Lsa"
strValueName = "Authentication Packages"

Return = objReg.GetMultiStringValue(HKEY_LOCAL_MACHINE,strKeyPath, strValueName,arrValues)
 WScript.Echo  "GetMultiStringValue. Return = " & Return

    If (Return = 0) And (Err.Number = 0) Then   
' Treat the multistring value as a collection of strings 
'    separated by spaces and output
    For Each strValue In arrValues
    WScript.Echo  strValue
Next
Else
    Wscript.Echo "GetMultiStringValue failed. Error = " & Err.Number
End If
31.03.2016
Новые материалы
Кластеризация: более глубокий взгляд
Кластеризация — это метод обучения без учителя, в котором мы пытаемся найти группы в наборе данных на основе некоторых известных или неизвестных свойств, которые могут существовать. Независимо от..
Как написать эффективное резюме
Предложения по дизайну и макету, чтобы представить себя профессионально Вам не позвонили на собеседование после того, как вы несколько раз подали заявку на работу своей мечты? У вас может..
Частный метод Python: улучшение инкапсуляции и безопасности
Введение Python — универсальный и мощный язык программирования, известный своей простотой и удобством использования. Одной из ключевых особенностей, отличающих Python от других языков, является..
Как я автоматизирую тестирование с помощью Jest
Шутка для победы, когда дело касается автоматизации тестирования Одной очень важной частью разработки программного обеспечения является автоматизация тестирования, поскольку она создает..
Работа с векторными символическими архитектурами, часть 4 (искусственный интеллект)
Hyperseed: неконтролируемое обучение с векторными символическими архитектурами (arXiv) Автор: Евгений Осипов , Сачин Кахавала , Диланта Хапутантри , Тимал Кемпития , Дасвин Де Сильва ,..
Понимание расстояния Вассерштейна: мощная метрика в машинном обучении
В обширной области машинного обучения часто возникает необходимость сравнивать и измерять различия между распределениями вероятностей. Традиционные метрики расстояния, такие как евклидово..
Обеспечение масштабируемости LLM: облачный анализ с помощью AWS Fargate и Copilot
В динамичной области искусственного интеллекта все большее распространение получают модели больших языков (LLM). Они жизненно важны для различных приложений, таких как интеллектуальные..