Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Старожил


Сообщения: 352
Благодарности: 193

Профиль | Отправить PM | Цитировать


Ближе к цели будет отфильтровать пользователей по наличию профиля
Скрытый текст
Код: Выделить весь код
!define CountUsersR `!insertmacro CountUsersR `
!macro  CountUsersR outVar
  Push $0
  Push $1
  Push $2
  Push $3

  StrCpy $0 ''
  StrCpy $1 -1
  ${Do}
    IntOp $1 $1 + 1
    EnumRegKey $2 HKLM 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList' $1
    ${IfThen} $2 == '' ${|} ${ExitDo} ${|}
    StrCpy $3 $2 8
    ${IfThen} $3 == 'S-1-5-21' ${|} IntOp $0 $0 + 1 ${|}
  ${Loop}

  Pop $3
  Pop $2
  Pop $1
  Exch $0

  Pop ${outVar}
!macroend
Это сообщение посчитали полезным следующие участники:

Отправлено: 17:29, 20-09-2023 | #2791