Что нового

Проверка значений в реестре

prokazzza

Новичок
Сообщения
160
Репутация
2
Поискал в интернете но ничего толком не нашел, подскажите как сделать проверку определенного значения в реестре (не ветки), к примеру проверить действительно ли существует пользователь Админ и выдать сообщение если пользователь другой

Код:
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]
"Logon User Name"="Админ"
??
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Код:
RegRead
?
 
Автор
P

prokazzza

Новичок
Сообщения
160
Репутация
2
Пробывал вот так

Код:
If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer","Logon User Name","Администратор") Then


выдает ошибку, пробывал разные способы все равно ошибка. В нете тож нечего нету.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
prokazzza
У Вас лишний параметр в RegRead(), потому и ошибка. А зачем читать реестр?
Код:
$sUser = RegRead('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer','Logon User Name')
MsgBox(64, 'Info', $sUser & @LF & @UserName)
 

zlo-kazan

Скриптер
Сообщения
374
Репутация
100
prokazzza сказал(а):
выдает ошибку, пробывал разные способы все равно ошибка. В нете тож нечего нету.
Я бы тоже ошибку выдавал... :smile:
В RegRead нет третьего параметра... правильно будет
Код:
If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer","Logon User Name") = "Администратор" Then


P.S. для модеров. если можно удалите "полезное сообщение" с prokazzza... досадный миссклик
 

VladUs

Скриптер
Сообщения
621
Репутация
180
prokazzza [?]
к примеру проверить действительно ли существует пользователь Админ и выдать сообщение если пользователь другой
Код:
$sValue = "Админ"
$oObjWMIService =   ObjGet("winmgmts:\\" & @ComputerName & "\root\CIMV2")
$iColItems = $oObjWMIService.ExecQuery("SELECT * FROM Win32_UserAccount")
For $objItem in $iColItems
   ConsoleWrite ($objItem.Name & @CRLF)
   If $objItem.Name = $sValue Then
       MsgBox(1,"","Пользователь " & $sValue & " найден")
   EndIf
   
Next

Скрипт перечисляет всех пользователей, после чего выводит сообщение, если искомый пользователь найден.

zlo-kazan
P.S. для модеров. если можно удалите "полезное сообщение" с prokazzza... досадный миссклик
Вы это можете сделать и сами, нажав на звездочку рядом с Вашим ником, где отметили сообщение полезным.
 

zlo-kazan

Скриптер
Сообщения
374
Репутация
100
VladUs

Если б не это. Я бы уже давно. =)
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
OffTopic:
zlo-kazan
VladUs
У prokazzza первая благодарность, а Вы удалить... злые Вы. ;D
 

VladUs

Скриптер
Сообщения
621
Репутация
180
madmasles [?]
У prokazzza первая благодарность, а Вы удалить... злые Вы
OffTopic:
Ну... это больше подходит к zlo-kazan и ник у него говорящий сам за себя.
А я вообще за мир во всем мире
.
 
Верх